[Rio-pm] atributos

Daniel de Oliveira Mantovani daniel.oliveira.mantovani em gmail.com
Sexta Dezembro 19 08:56:12 PST 2008


Se você bater o olho aqui vai dar uma clareada:

http://search.cpan.org/~smueller/Attribute-Handlers-0.81/lib/Attribute/Handlers.pm

[]s

2008/12/19 Pedro Henrique <phikeda em gmail.com>

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



-- 
-------(\_------------_/)-----------
-------)--(----------)--(-----------
------(----(--------)----)----------
-------)----(------)----(-----------
-------(----(------)----)-----------
--------\_-(\\.--.//)-_/------------
----------\)`-6--6-'(/--------------
-----------/--------\---------------
----------(--)----(--)--------------
-----------`(_c__c_)`---------------
--------------`--`------------------
http://mantovanihouse.blogspot.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20081219/77b38070/attachment.html>


Mais detalhes sobre a lista de discussão Rio-pm