<span style="font-family: courier new,monospace;">Eden, o &#39;use base&#39; não resolve o problema ?</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">Pedro eu não entendi bem o teu problema, mas se for relacionado a herança, você pode encontrar informações no &#39;perldoc perlboot&#39;.</span><br style="font-family: courier new,monospace;">
<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">Solli M. Honório</span><br style="font-family: courier new,monospace;"><br><div class="gmail_quote">2008/11/5 Eden Cardim <span dir="ltr">&lt;<a href="mailto:edencardim@gmail.com">edencardim@gmail.com</a>&gt;</span><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">2008/11/5 Pedro Henrique &lt;<a href="mailto:phikeda@gmail.com">phikeda@gmail.com</a>&gt;:<br>

<div><div></div><div class="Wj3C7c">&gt; Amigos,<br>
&gt;<br>
&gt; alguém sabe se é possível &quot;importar&quot; um método para dentro de um objeto? Por<br>
&gt; exemplo:<br>
&gt;<br>
&gt; package AdicionaMetodo;<br>
&gt;<br>
&gt; sub importar<br>
&gt; {<br>
&gt; &nbsp; &nbsp; my $objeto = shift;<br>
&gt; &nbsp; &nbsp; # adiciona a sub &quot;novo&quot; (é possível ???)<br>
&gt; }<br>
&gt;<br>
&gt; sub novo<br>
&gt; {<br>
&gt; &nbsp; &nbsp;print &quot;alo, mundo!\n&quot;;<br>
&gt; }<br>
&gt;<br>
&gt; 1;<br>
&gt;<br>
&gt; package Principal;<br>
&gt; use AdicionaMetodo;<br>
&gt;<br>
&gt; sub new<br>
&gt; {<br>
&gt; &nbsp; &nbsp; my $class = shift;<br>
&gt; &nbsp; &nbsp; my $self = {};<br>
&gt; &nbsp; &nbsp; bless $self, $class;<br>
&gt;<br>
&gt; &nbsp; &nbsp; AdicionaMetodo::importar($self);<br>
&gt; &nbsp; &nbsp; return $self;<br>
&gt; }<br>
&gt;<br>
&gt; 1;<br>
&gt;<br>
&gt; e agora no meu programa posso fazer:<br>
&gt;<br>
&gt; use Principal;<br>
&gt;<br>
&gt; my $objeto = Principal-&gt;new();<br>
&gt; $objeto-&gt;novo(); &nbsp;# exibe &quot;alo, mundo!&quot;<br>
&gt;<br>
&gt;<br>
&gt; Só consigo fazer adicionando referência à minha função, mas nesse caso o<br>
&gt; programa fica mais ou menos assim:<br>
&gt;<br>
&gt; $objeto-&gt;{novo}-&gt;();<br>
&gt;<br>
&gt; e eu queria que fosse como um método mesmo:<br>
&gt;<br>
&gt; $objeto-&gt;novo();<br>
&gt;<br>
&gt;<br>
&gt; Alguém pode me dar uma luz?<br>
<br>
</div></div>Bom, se fosse JavaScript dava, mas no perl você só pode criar um<br>
método para a classe inteira (não pro objeto), os gurus dos internals<br>
podem me corrigir aqui. Mas a principal pergunta é: porque você quer<br>
fazer isso?<br>
<br>
Um meio-termo seria criar um método de acesso que fizesse a<br>
dereferenciação por você<br>
<br>
sub novo {<br>
 &nbsp;shift-&gt;{novo}-&gt;(@_)<br>
}<br>
<font color="#888888"><br>
--<br>
<a href="http://edenc.vox.com" target="_blank">edenc.vox.com</a><br>
_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
</font></blockquote></div><br><br clear="all"><br>-- <br>&quot;o animal satisfeito dorme&quot;. - Guimarães Rosa<br>