<br>Se você bater o olho aqui vai dar uma clareada:<br><br><a href="http://search.cpan.org/~smueller/Attribute-Handlers-0.81/lib/Attribute/Handlers.pm">http://search.cpan.org/~smueller/Attribute-Handlers-0.81/lib/Attribute/Handlers.pm</a><br>
<br>[]s<br><br><div class="gmail_quote">2008/12/19 Pedro Henrique <span dir="ltr">&lt;<a href="mailto:phikeda@gmail.com">phikeda@gmail.com</a>&gt;</span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
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><font color="#888888"><br>PH<br>
</font><br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>-------(\_------------_/)-----------<br>-------)--(----------)--(-----------<br>
------(----(--------)----)----------<br>-------)----(------)----(-----------<br>-------(----(------)----)-----------<br>--------\_-(\\.--.//)-_/------------<br>----------\)`-6--6-&#39;(/--------------<br>-----------/--------\---------------<br>
----------(--)----(--)--------------<br>-----------`(_c__c_)`---------------<br>--------------`--`------------------<br><a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br>