Amigos,<br><br>alguém sabe se é possível "importar" um método para dentro de um objeto? Por exemplo:<br><br>package AdicionaMetodo;<br><br>sub importar <br>{<br> my $objeto = shift;<br> # adiciona a sub "novo" (é possível ???)<br>
}<br><br>sub novo <br>{<br> print "alo, mundo!\n";<br>}<br><br>1;<br><br>package Principal;<br>use AdicionaMetodo;<br><br>sub new <br>{<br> my $class = shift;<br> my $self = {};<br> bless $self, $class;<br>
<br> AdicionaMetodo::importar($self);<br> return $self;<br>}<br><br>1;<br><br>e agora no meu programa posso fazer:<br><br>use Principal;<br><br>my $objeto = Principal->new();<br>$objeto->novo(); # exibe "alo, mundo!"<br>
<br><br>Só consigo fazer adicionando referência à minha função, mas nesse caso o programa fica mais ou menos assim:<br><br>$objeto->{novo}->();<br><br>e eu queria que fosse como um método mesmo:<br><br>$objeto->novo();<br>
<br><br>Alguém pode me dar uma luz?<br><br>Vlw,<br><font color="#888888"><br>PH</font>