Bom, ja que vc esta usando Moose, poderia agrupar o que vc precisa em um modulo, utilizando use Moose::Role. Depois, transforma o seu modulo em um modulo`Pluggable` via MooseX::Object::Pluggable . Algo do tipo:<div><br></div>
<div><br></div><div><code></div><div><br></div><div>package MyModule::Plugins::MyPlugin;</div><div>use Moose::Roles</div><div>#crie atributos, variaveis de classe e as utilidades do seu plugin aqui....</div><div><br>
</div><div><br></div><div>666; #retornando algum valor verdadeiro...</div><div><br></div><div>#No seu modulo principal, ou em algum modulo que vc vai tornar plugavel...</div><div><br></div><div>package MyMainModule;</div>
<div>with 'Moose::Object::Pluggable';</div><div><br></div><div>#trecos do modulo principal aqui...</div><div><br></div><div>__PACKAGE__->meta->make_immutable; #isso faz uma diferenca absurda no desempenho!</div>
<div>666;</div><div><br></div><div>#usando o modulo em um outro script, classe whatever...</div><div><br></div><div>use MyMainModule;</div><div>my $mm = MyMainModuloe->new(...);</div><div>$mm->load_plugin('MyPlugin');</div>
<div><br></div><div>$mm->algodomeuplugin();</div><div><br></div><div><br></div><div><br></div><div></code><br>Cheers!</div><div><br></div><div><br><br><div class="gmail_quote">2013/3/23 Marcio Ferreira <span dir="ltr"><<a href="mailto:marciodesouzaferreira@gmail.com" target="_blank">marciodesouzaferreira@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Ah! Blz... é que perl tem cada truque ~escondido~, que penso ser mais um que nao conheço.<div><br></div><div>Outro dia descobri que é possivel usar um array como chave de hash, porém não se recupera a lista em vias normais, mas usando o Hash::MultiKey[<a href="http://search.cpan.org/~fxn/Hash-MultiKey-0.06/MultiKey.pm" target="_blank">http://search.cpan.org/~fxn/Hash-MultiKey-0.06/MultiKey.pm</a>], vc consegue voltar a trabalhar com a lista :P</div>
<div><div class="im"><div><br>[]s,<br><br>Marcio Ferreira<div></div><div>skype: marcio.ferreir4</div><div><a href="tel:%2821%29%208365-7768" value="+552183657768" target="_blank">(21) 8365-7768</a><br></div></div>
<br><br></div><div><div class="h5"><div class="gmail_quote">2013/3/23 Solli Honorio <span dir="ltr"><<a href="mailto:shonorio@gmail.com" target="_blank">shonorio@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr">Marcio desculpa, é que são tantos Marcio neste post que eu me confundi. Claro que você conhece bem isto, mas eu pensei que a dúvida fosse o MarcioRP. <div><br></div><div>Eu NUNCA utilizo o 'a' e/ou 'b' justamente pelo problema que você informou do hack do sort, e o Renato tem razão, o simples 'my ($a, $b)' já localiza as variáveis e o 'undef' aí é só para a leitura do humano e não tem função prática para o compilador.</div>
<div><br></div><div>Solli Honorio</div><div><div><br></div><div><br></div></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 23 de março de 2013 19:00, Marcio Ferreira <span dir="ltr"><<a href="mailto:marciodesouzaferreira@gmail.com" target="_blank">marciodesouzaferreira@gmail.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div>2013/3/23 Solli Honorio <span dir="ltr"><<a href="mailto:shonorio@gmail.com" target="_blank">shonorio@gmail.com</a>></span><br>
<div class="gmail_quote"><div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr">Marcio,<div><br></div><div>Faça um teste :</div><div><br></div><div><font face="courier new, monospace">perl -Mstrict -e '$a=1'<br></font></div><div><br></div><div>e depois </div>
<div><br></div><div><font face="courier new, monospace">perl -Mstrict -e '$c=1'<br></font></div><div><br></div><div>Me diga o resultado disto e tente enteder o motivo ... eu prometo explicar, mas faça isto primeiro !</div>
</div></blockquote><div><br></div></div><div>Sei que o $a e $b são variaveis já conhecidas do compilador, conheço isso pelo hack que há no _sort_, mas a forma de como foi declarado "my ($a,$b)=undef" nao resolve nada disso, já que só $a recebe _undef_ e $b nao recebe nada.</div>
</div>
<br></div></div><div>=begin disclaimer<br>
Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></div></blockquote></div><div><br><br clear="all"><div><br></div>-- <br>"o animal satisfeito dorme". - Guimarães Rosa
</div></div>
<br>=begin disclaimer<br>
Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div><br></div></div></div>
<br>=begin disclaimer<br>
Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div><br><br clear="all"><div><br></div>-- <br>André Garcia Carneiro<br>Software Engineer<br>(11)982907780
</div>