Amigos,<br><br>estou aprendendo a usar atributos em Perl mas estou com problemas. Meu código, a partir da documentação do 'attributes', é esse:<br><br><code><br>use strict;<br>use warnings;<br>use attributes;<br>
<br>sub MODIFY_CODE_ATTRIBUTES {<br> my ($class, $code, @attrs) = @_;<br><br> my $allowed = 'bar';<br> my @bad = grep { $_ ne $allowed } @attrs;<br><br> return @bad;<br>}<br><br>print "atributos de 'foo':\n";<br>
my @attrlist = attributes::get(\&foo);<br>for (@attrlist) {<br> print " atributo: $_ \n";<br>}<br>print "fim da lista.\n";<br><br>sub foo :bar {<br> print "alo, mundo";<br>}<br></code><br>
<br>Mas, ao contrário do que esperava, não consigo obter atributo algum:<br><br>$ perl atributos.pl<br>atributos de 'foo':<br>fim da lista.<br>$<br><br><br>Alguém pode me dar uma luz? O que estou fazendo de errado?<br>
<br>Vlw,<br><br>PH<br>