<html>
<head>
<style>
P
{
margin:0px;
padding:0px
}
body
{
FONT-SIZE: 10pt;
FONT-FAMILY:Tahoma
}
</style>
</head>
<body>
<br><br>&gt; From: luismottacampos@yahoo.co.uk<br>&gt; Date: Thu, 21 Jun 2007 12:12:44 +0200<br>&gt;<br>&gt;    Se ao invés de somar 1, você modificar %INC (Sim, o HASH, não o  <br>&gt; ARRAY!), você vai ficar feliz?<br><br>Opa, ajudou a entender o problema!<br><br>&gt;    Tente resolver o mesmo problema, para um "exemplo real":<br>&gt; <br>&gt; {<br>&gt;      # Big::Company::Config é um Singleton<br>&gt;      # devolve 'Big::Company::Mock::Object' no ambiente de teste<br>&gt;      my $class = Big::Company::Config-&gt;instance-&gt;get <br>&gt; ( 'Big::Company::Object' );<br>&gt;      BEGIN {<br>&gt;          eval { use $class; }; # pode ser Mock::Object!<br>&gt;          # FIXME: implement error handling ;-)<br>&gt;      }<br>&gt; }<br><br>Além de deixar o módulo "mock" no ambiente de desenvolvimento e o de verdade de em produção, ambos com o mesmo nome?<br><br>Veja se isso ajuda:<br><br>Dentro do código Perl que eu peguei de cobaia:<br><br>&lt;code&gt;<br>use warnings;<br>use strict;<br>use Digest::MD5 qw(md5_base64);<br>&lt;/code&gt;<br><br>Usei o debugger para fazer isso:<br><br>&nbsp; DB&lt;4&gt; x *main::INC{HASH}<br>0&nbsp; HASH(0x226118)<br>&nbsp;&nbsp; 'ActivePerl/Config.pm' =&gt; 'C:/Perl/lib/ActivePerl/Config.pm'<br>&nbsp;&nbsp; 'ActiveState/Path.pm' =&gt; 'C:/Perl/lib/ActiveState/Path.pm'<br>&nbsp;&nbsp; 'AutoLoader.pm' =&gt; 'C:/Perl/site/lib/AutoLoader.pm'<br>&nbsp;&nbsp; 'C:/Perl/site/lib/sitecustomize.pl' =&gt; 'C:/Perl/site/lib/sitecustomize<br>&nbsp;&nbsp; 'Carp.pm' =&gt; 'C:/Perl/lib/Carp.pm'<br>&nbsp;&nbsp; 'Carp/Heavy.pm' =&gt; 'C:/Perl/lib/Carp/Heavy.pm'<br>&nbsp;&nbsp; 'Config.pm' =&gt; 'C:/Perl/lib/Config.pm'<br>&nbsp;&nbsp; 'Config_heavy.pl' =&gt; 'C:/Perl/lib/Config_heavy.pl'<br>&nbsp;&nbsp; 'Cwd.pm' =&gt; 'C:/Perl/lib/Cwd.pm'<br>&nbsp;&nbsp; 'Digest/MD5.pm' =&gt; 'C:/Perl/lib/Digest/MD5.pm'<br>&nbsp;&nbsp; 'Digest/base.pm' =&gt; 'C:/Perl/lib/Digest/base.pm'<br>&nbsp;&nbsp; 'DynaLoader.pm' =&gt; 'C:/Perl/lib/DynaLoader.pm'<br>&nbsp;&nbsp; 'Exporter.pm' =&gt; 'C:/Perl/lib/Exporter.pm'<br>&nbsp;&nbsp; 'File/Basename.pm' =&gt; 'C:/Perl/lib/File/Basename.pm'<br>&nbsp;&nbsp; 'IO.pm' =&gt; 'C:/Perl/lib/IO.pm'<br>&nbsp;&nbsp; 'IO/Handle.pm' =&gt; 'C:/Perl/lib/IO/Handle.pm'<br>&nbsp;&nbsp; 'SelectSaver.pm' =&gt; 'C:/Perl/lib/SelectSaver.pm'<br>&nbsp;&nbsp; 'SelfLoader.pm' =&gt; 'C:/Perl/lib/SelfLoader.pm'<br>&nbsp;&nbsp; 'Symbol.pm' =&gt; 'C:/Perl/lib/Symbol.pm'<br>&nbsp;&nbsp; 'Term/Cap.pm' =&gt; 'C:/Perl/lib/Term/Cap.pm'<br>&nbsp;&nbsp; 'Term/ReadKey.pm' =&gt; 'C:/Perl/lib/Term/ReadKey.pm'<br>&nbsp;&nbsp; 'Term/ReadLine.pm' =&gt; 'C:/Perl/lib/Term/ReadLine.pm'<br>&nbsp;&nbsp; 'Term/ReadLine/Perl.pm' =&gt; 'C:/Perl/lib/Term/ReadLine/Perl.pm'<br>&nbsp;&nbsp; 'Term/ReadLine/readline.pm' =&gt; 'C:/Perl/lib/Term/ReadLine/readline.pm'<br>&nbsp;&nbsp; 'XSLoader.pm' =&gt; 'C:/Perl/lib/XSLoader.pm'<br>&nbsp;&nbsp; 'attributes.pm' =&gt; 'C:/Perl/lib/attributes.pm'<br>&nbsp;&nbsp; 'constant.pm' =&gt; 'C:/Perl/lib/constant.pm'<br>&nbsp;&nbsp; 'dumpvar.pl' =&gt; 'C:/Perl/lib/dumpvar.pl'<br>&nbsp;&nbsp; 'perl5db.pl' =&gt; 'C:/Perl/lib/perl5db.pl'<br>&nbsp;&nbsp; 're.pm' =&gt; 'C:/Perl/lib/re.pm'<br>&nbsp;&nbsp; 'strict.pm' =&gt; 'C:/Perl/lib/strict.pm'<br>&nbsp;&nbsp; 'vars.pm' =&gt; 'C:/Perl/lib/vars.pm'<br>&nbsp;&nbsp; 'warnings.pm' =&gt; 'C:/Perl/lib/warnings.pm'<br>&nbsp;&nbsp; 'warnings/register.pm' =&gt; 'C:/Perl/lib/warnings/register.pm'<br>&nbsp; DB&lt;5&gt; $test = *main::INC{HASH}<br>&nbsp; DB&lt;6&gt; $test-&gt;{Puntaplexos} = 'c:\foobar\Puntaplexos'<br>&nbsp; DB&lt;7&gt; x *main::INC{HASH}<br>0&nbsp; HASH(0x226118)<br>&nbsp;&nbsp; 'ActivePerl/Config.pm' =&gt; 'C:/Perl/lib/ActivePerl/Config.pm'<br>&nbsp;&nbsp; 'ActiveState/Path.pm' =&gt; 'C:/Perl/lib/ActiveState/Path.pm'<br>&nbsp;&nbsp; 'AutoLoader.pm' =&gt; 'C:/Perl/site/lib/AutoLoader.pm'<br>&nbsp;&nbsp; 'C:/Perl/site/lib/sitecustomize.pl' =&gt; 'C:/Perl/site/lib/sitecustomize<br>&nbsp;&nbsp; 'Carp.pm' =&gt; 'C:/Perl/lib/Carp.pm'<br>&nbsp;&nbsp; 'Carp/Heavy.pm' =&gt; 'C:/Perl/lib/Carp/Heavy.pm'<br>&nbsp;&nbsp; 'Config.pm' =&gt; 'C:/Perl/lib/Config.pm'<br>&nbsp;&nbsp; 'Config_heavy.pl' =&gt; 'C:/Perl/lib/Config_heavy.pl'<br>&nbsp;&nbsp; 'Cwd.pm' =&gt; 'C:/Perl/lib/Cwd.pm'<br>&nbsp;&nbsp; 'Digest/MD5.pm' =&gt; 'C:/Perl/lib/Digest/MD5.pm'<br>&nbsp;&nbsp; 'Digest/base.pm' =&gt; 'C:/Perl/lib/Digest/base.pm'<br>&nbsp;&nbsp; 'DynaLoader.pm' =&gt; 'C:/Perl/lib/DynaLoader.pm'<br>&nbsp;&nbsp; 'Exporter.pm' =&gt; 'C:/Perl/lib/Exporter.pm'<br>&nbsp;&nbsp; 'File/Basename.pm' =&gt; 'C:/Perl/lib/File/Basename.pm'<br>&nbsp;&nbsp; 'IO.pm' =&gt; 'C:/Perl/lib/IO.pm'<br>&nbsp;&nbsp; 'IO/Handle.pm' =&gt; 'C:/Perl/lib/IO/Handle.pm'<br>&nbsp;&nbsp; 'Puntaplexos' =&gt; 'c:\\foobar\\Puntaplexos'<br>&nbsp;&nbsp; 'SelectSaver.pm' =&gt; 'C:/Perl/lib/SelectSaver.pm'<br>&nbsp;&nbsp; 'SelfLoader.pm' =&gt; 'C:/Perl/lib/SelfLoader.pm'<br>&nbsp;&nbsp; 'Symbol.pm' =&gt; 'C:/Perl/lib/Symbol.pm'<br>&nbsp;&nbsp; 'Term/Cap.pm' =&gt; 'C:/Perl/lib/Term/Cap.pm'<br>&nbsp;&nbsp; 'Term/ReadKey.pm' =&gt; 'C:/Perl/lib/Term/ReadKey.pm'<br>&nbsp;&nbsp; 'Term/ReadLine.pm' =&gt; 'C:/Perl/lib/Term/ReadLine.pm'<br>&nbsp;&nbsp; 'Term/ReadLine/Perl.pm' =&gt; 'C:/Perl/lib/Term/ReadLine/Perl.pm'<br>&nbsp;&nbsp; 'Term/ReadLine/readline.pm' =&gt; 'C:/Perl/lib/Term/ReadLine/readline.pm'<br>&nbsp;&nbsp; 'XSLoader.pm' =&gt; 'C:/Perl/lib/XSLoader.pm'<br>&nbsp;&nbsp; 'attributes.pm' =&gt; 'C:/Perl/lib/attributes.pm'<br>&nbsp;&nbsp; 'constant.pm' =&gt; 'C:/Perl/lib/constant.pm'<br>&nbsp;&nbsp; 'dumpvar.pl' =&gt; 'C:/Perl/lib/dumpvar.pl'<br>&nbsp;&nbsp; 'perl5db.pl' =&gt; 'C:/Perl/lib/perl5db.pl'<br>&nbsp;&nbsp; 're.pm' =&gt; 'C:/Perl/lib/re.pm'<br>&nbsp;&nbsp; 'strict.pm' =&gt; 'C:/Perl/lib/strict.pm'<br>&nbsp;&nbsp; 'vars.pm' =&gt; 'C:/Perl/lib/vars.pm'<br>&nbsp;&nbsp; 'warnings.pm' =&gt; 'C:/Perl/lib/warnings.pm'<br>&nbsp;&nbsp; 'warnings/register.pm' =&gt; 'C:/Perl/lib/warnings/register.pm'<br>&nbsp; DB&lt;8&gt;<br><br>Só não lembro agora se é "puntaplexos" ou "pumtaplexos". :-)<br>Por favor me conte se funcionou depois. Eu fiquei curioso.<br><br>[]'s<br>Alceu<br><br /><hr />Live Earth is coming.  Learn more about the hottest summer event - only on MSN. <a href='http://liveearth.msn.com?source=msntaglineliveearthwlm' target='_new'>Check it out!</a></body>
</html>