[Cascavel-pm] RE: Várias Variações de Variáveis...

Alceu Rodrigues de Freitas Junior glasswalk3r em hotmail.com
Quinta Junho 21 11:06:51 PDT 2007


> From: luismottacampos em yahoo.co.uk> Date: Thu, 21 Jun 2007 12:12:44 +0200>>    Se ao invés de somar 1, você modificar %INC (Sim, o HASH, não o  > ARRAY!), você vai ficar feliz?Opa, ajudou a entender o problema!>    Tente resolver o mesmo problema, para um "exemplo real":> > {>      # Big::Company::Config é um Singleton>      # devolve 'Big::Company::Mock::Object' no ambiente de teste>      my $class = Big::Company::Config->instance->get > ( 'Big::Company::Object' );>      BEGIN {>          eval { use $class; }; # pode ser Mock::Object!>          # FIXME: implement error handling ;-)>      }> }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?Veja se isso ajuda:Dentro do código Perl que eu peguei de cobaia:<code>use warnings;use strict;use Digest::MD5 qw(md5_base64);</code>Usei o debugger para fazer isso:  DB<4> x *main::INC{HASH}0  HASH(0x226118)   'ActivePerl/Config.pm' => 'C:/Perl/lib/ActivePerl/Config.pm'   'ActiveState/Path.pm' => 'C:/Perl/lib/ActiveState/Path.pm'   'AutoLoader.pm' => 'C:/Perl/site/lib/AutoLoader.pm'   'C:/Perl/site/lib/sitecustomize.pl' => 'C:/Perl/site/lib/sitecustomize   'Carp.pm' => 'C:/Perl/lib/Carp.pm'   'Carp/Heavy.pm' => 'C:/Perl/lib/Carp/Heavy.pm'   'Config.pm' => 'C:/Perl/lib/Config.pm'   'Config_heavy.pl' => 'C:/Perl/lib/Config_heavy.pl'   'Cwd.pm' => 'C:/Perl/lib/Cwd.pm'   'Digest/MD5.pm' => 'C:/Perl/lib/Digest/MD5.pm'   'Digest/base.pm' => 'C:/Perl/lib/Digest/base.pm'   'DynaLoader.pm' => 'C:/Perl/lib/DynaLoader.pm'   'Exporter.pm' => 'C:/Perl/lib/Exporter.pm'   'File/Basename.pm' => 'C:/Perl/lib/File/Basename.pm'   'IO.pm' => 'C:/Perl/lib/IO.pm'   'IO/Handle.pm' => 'C:/Perl/lib/IO/Handle.pm'   'SelectSaver.pm' => 'C:/Perl/lib/SelectSaver.pm'   'SelfLoader.pm' => 'C:/Perl/lib/SelfLoader.pm'   'Symbol.pm' => 'C:/Perl/lib/Symbol.pm'   'Term/Cap.pm' => 'C:/Perl/lib/Term/Cap.pm'   'Term/ReadKey.pm' => 'C:/Perl/lib/Term/ReadKey.pm'   'Term/ReadLine.pm' => 'C:/Perl/lib/Term/ReadLine.pm'   'Term/ReadLine/Perl.pm' => 'C:/Perl/lib/Term/ReadLine/Perl.pm'   'Term/ReadLine/readline.pm' => 'C:/Perl/lib/Term/ReadLine/readline.pm'   'XSLoader.pm' => 'C:/Perl/lib/XSLoader.pm'   'attributes.pm' => 'C:/Perl/lib/attributes.pm'   'constant.pm' => 'C:/Perl/lib/constant.pm'   'dumpvar.pl' => 'C:/Perl/lib/dumpvar.pl'   'perl5db.pl' => 'C:/Perl/lib/perl5db.pl'   're.pm' => 'C:/Perl/lib/re.pm'   'strict.pm' => 'C:/Perl/lib/strict.pm'   'vars.pm' => 'C:/Perl/lib/vars.pm'   'warnings.pm' => 'C:/Perl/lib/warnings.pm'   'warnings/register.pm' => 'C:/Perl/lib/warnings/register.pm'  DB<5> $test = *main::INC{HASH}  DB<6> $test->{Puntaplexos} = 'c:\foobar\Puntaplexos'  DB<7> x *main::INC{HASH}0  HASH(0x226118)   'ActivePerl/Config.pm' => 'C:/Perl/lib/ActivePerl/Config.pm'   'ActiveState/Path.pm' => 'C:/Perl/lib/ActiveState/Path.pm'   'AutoLoader.pm' => 'C:/Perl/site/lib/AutoLoader.pm'   'C:/Perl/site/lib/sitecustomize.pl' => 'C:/Perl/site/lib/sitecustomize   'Carp.pm' => 'C:/Perl/lib/Carp.pm'   'Carp/Heavy.pm' => 'C:/Perl/lib/Carp/Heavy.pm'   'Config.pm' => 'C:/Perl/lib/Config.pm'   'Config_heavy.pl' => 'C:/Perl/lib/Config_heavy.pl'   'Cwd.pm' => 'C:/Perl/lib/Cwd.pm'   'Digest/MD5.pm' => 'C:/Perl/lib/Digest/MD5.pm'   'Digest/base.pm' => 'C:/Perl/lib/Digest/base.pm'   'DynaLoader.pm' => 'C:/Perl/lib/DynaLoader.pm'   'Exporter.pm' => 'C:/Perl/lib/Exporter.pm'   'File/Basename.pm' => 'C:/Perl/lib/File/Basename.pm'   'IO.pm' => 'C:/Perl/lib/IO.pm'   'IO/Handle.pm' => 'C:/Perl/lib/IO/Handle.pm'   'Puntaplexos' => 'c:\\foobar\\Puntaplexos'   'SelectSaver.pm' => 'C:/Perl/lib/SelectSaver.pm'   'SelfLoader.pm' => 'C:/Perl/lib/SelfLoader.pm'   'Symbol.pm' => 'C:/Perl/lib/Symbol.pm'   'Term/Cap.pm' => 'C:/Perl/lib/Term/Cap.pm'   'Term/ReadKey.pm' => 'C:/Perl/lib/Term/ReadKey.pm'   'Term/ReadLine.pm' => 'C:/Perl/lib/Term/ReadLine.pm'   'Term/ReadLine/Perl.pm' => 'C:/Perl/lib/Term/ReadLine/Perl.pm'   'Term/ReadLine/readline.pm' => 'C:/Perl/lib/Term/ReadLine/readline.pm'   'XSLoader.pm' => 'C:/Perl/lib/XSLoader.pm'   'attributes.pm' => 'C:/Perl/lib/attributes.pm'   'constant.pm' => 'C:/Perl/lib/constant.pm'   'dumpvar.pl' => 'C:/Perl/lib/dumpvar.pl'   'perl5db.pl' => 'C:/Perl/lib/perl5db.pl'   're.pm' => 'C:/Perl/lib/re.pm'   'strict.pm' => 'C:/Perl/lib/strict.pm'   'vars.pm' => 'C:/Perl/lib/vars.pm'   'warnings.pm' => 'C:/Perl/lib/warnings.pm'   'warnings/register.pm' => 'C:/Perl/lib/warnings/register.pm'  DB<8>Só não lembro agora se é "puntaplexos" ou "pumtaplexos". :-)Por favor me conte se funcionou depois. Eu fiquei curioso.[]'sAlceu
_________________________________________________________________
Play free games, earn tickets, get cool prizes! Join Live Search Club. 
http://club.live.com/home.aspx?icid=CLUB_wlmailtextlink
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070621/37825ada/attachment-0001.html 


Mais detalhes sobre a lista de discussão Cascavel-pm