Trazendo um tópico que surgiu no Moscow.pm:
$ perl -Mstrict -M5.010
sub Content::headers { say "@_"; return 456 }
sub call(@) { say "call: @_" }
call( headers { "Content" => 123 } "new","arg" );Tentem deduzir o que será printado, e depois executem. ABS()
=begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: [email protected] L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer
