[Moscow.pm] Прототипы функций для файлов

[Maxim Vuets]

2013/12/27 Анатолий Гришаев <0body0 на rambler.ru>:
> Возможно ли создать функцию с прототипом как у print?

http://www.perlmonks.org/?node_id=905550

> print_utf FILE_UTF $foo;
> print_cp1251 FILE_UTF $foo;

Чего вы добиваетесь этим?

> В догонку: а можно ли узнать как тебя вызвали как метод или как программу?

Методу первым аргументом передается объект или класс, на котором его вызвали:
http://perldoc.perl.org/perlobj.html#Method-Invocation

Также: https://metacpan.org/pod/Devel::Caller, called_as_method()