[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