Amigos,<br><br>estou aprendendo a usar atributos em Perl mas estou com problemas. Meu código, a partir da documentação do &#39;attributes&#39;, é esse:<br><br>&lt;code&gt;<br>use strict;<br>use warnings;<br>use attributes;<br>

<br>sub MODIFY_CODE_ATTRIBUTES {<br>&nbsp;&nbsp;&nbsp; my ($class, $code, @attrs) = @_;<br><br>&nbsp;&nbsp;&nbsp; my $allowed = &#39;bar&#39;;<br>&nbsp;&nbsp;&nbsp; my @bad = grep { $_ ne $allowed } @attrs;<br><br>&nbsp;&nbsp;&nbsp; return @bad;<br>}<br><br>print &quot;atributos de &#39;foo&#39;:\n&quot;;<br>

my @attrlist = attributes::get(\&amp;foo);<br>for (@attrlist) {<br>&nbsp;&nbsp;&nbsp; print &quot;&nbsp;&nbsp; atributo: $_ \n&quot;;<br>}<br>print &quot;fim da lista.\n&quot;;<br><br>sub foo :bar {<br>&nbsp;&nbsp;&nbsp; print &quot;alo, mundo&quot;;<br>}<br>&lt;/code&gt;<br>

<br>Mas, ao contrário do que esperava, não consigo obter atributo algum:<br><br>$ perl atributos.pl<br>atributos de &#39;foo&#39;:<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>