Наткнулся на весьма забавный способ сделать indirect вызов.
$ perl -Mstrict -M5.010
sub Content::headers { say "@_"; return 456 }
sub call(@) { say "call: @_" }
call( headers { "Content" => 123 } "new","arg" );
Попробуйте предсказать что будет выведено, а потом запустите )
--
Best wishes,
Vladimir V. Perepelitsa aka Mons Anderson
<[email protected]>, <[email protected]>
http://github.com/Mons
-- Moscow.pm mailing list [email protected] | http://moscow.pm.org
