[Rio-pm] importando métodos?

[Pedro Henrique]

Amigos,

alguém sabe se é possível "importar" um método para dentro de um objeto? Por
exemplo:

package AdicionaMetodo;

sub importar
{
    my $objeto = shift;
    # adiciona a sub "novo" (é possível ???)
}

sub novo
{
   print "alo, mundo!\n";
}

1;

package Principal;
use AdicionaMetodo;

sub new
{
    my $class = shift;
    my $self = {};
    bless $self, $class;

    AdicionaMetodo::importar($self);
    return $self;
}

1;

e agora no meu programa posso fazer:

use Principal;

my $objeto = Principal->new();
$objeto->novo();  # exibe "alo, mundo!"


Só consigo fazer adicionando referência à minha função, mas nesse caso o
programa fica mais ou menos assim:

$objeto->{novo}->();

e eu queria que fosse como um método mesmo:

$objeto->novo();


Alguém pode me dar uma luz?

Vlw,

PH
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20081105/18836c49/attachment.html>