[Rio-pm] atributos

Pedro Henrique phikeda em gmail.com
Sexta Dezembro 19 08:32:47 PST 2008


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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20081219/328db1be/attachment.html>


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