[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