<div>Наткнулся на весьма забавный способ сделать indirect вызов.</div><div><br></div><div>$ perl -Mstrict -M5.010</div><div>sub Content::headers { say "@_"; return 456 } </div><div>sub call(@) { say "call: @_" }</div>
<div>call( headers { "Content" => 123 } "new","arg" );</div><div><br></div><div>Попробуйте предсказать что будет выведено, а потом запустите )</div><div><br></div>-- <br>Best wishes,<br>Vladimir V. Perepelitsa aka Mons Anderson<br>
<<a href="mailto:inthrax@gmail.com">inthrax@gmail.com</a>>, <<a href="mailto:mons@cpan.org">mons@cpan.org</a>><br><a href="http://github.com/Mons">http://github.com/Mons</a><br>