Amigos,<br><br>alguém sabe se é possível &quot;importar&quot; um método para dentro de um objeto? Por exemplo:<br><br>package AdicionaMetodo;<br><br>sub importar <br>{<br>&nbsp;&nbsp;&nbsp; my $objeto = shift;<br>&nbsp;&nbsp;&nbsp; # adiciona a sub &quot;novo&quot; (é possível ???)<br>
}<br><br>sub novo <br>{<br>&nbsp;&nbsp; print &quot;alo, mundo!\n&quot;;<br>}<br><br>1;<br><br>package Principal;<br>use AdicionaMetodo;<br><br>sub new <br>{<br>&nbsp;&nbsp;&nbsp; my $class = shift;<br>&nbsp;&nbsp;&nbsp; my $self = {};<br>&nbsp;&nbsp;&nbsp; bless $self, $class;<br>
<br>&nbsp;&nbsp;&nbsp; AdicionaMetodo::importar($self);<br>&nbsp;&nbsp;&nbsp; return $self;<br>}<br><br>1;<br><br>e agora no meu programa posso fazer:<br><br>use Principal;<br><br>my $objeto = Principal-&gt;new();<br>$objeto-&gt;novo();&nbsp; # exibe &quot;alo, mundo!&quot;<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-&gt;{novo}-&gt;();<br><br>e eu queria que fosse como um método mesmo:<br><br>$objeto-&gt;novo();<br>
<br><br>Alguém pode me dar uma luz?<br><br>Vlw,<br><font color="#888888"><br>PH</font>