[PortoAlegre-pm] Quiz

[Igor Sutton Lopes]

Adriano,

Respondendo a minha pergunta. Encontrei o módulo Lexical::Alias, que  
faz o que eu perguntei:

<code>
#!env perl -l

use strict;
use warnings;

use Lexical::Alias;
use Test::More tests => 3;

my $this = 23;
my $that;

alias $this, $that;

is($this, $that);

$this = 12;

is($this, $that);

$that = 36;

is($this, $that);
</code>

Fica aí a dica :-)

--
Igor Sutton Lopes <igor.sutton em segula.pt>



-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/portoalegre-pm/attachments/20070205/4eeb6711/attachment.html 
-------------- Próxima Parte ----------
Um anexo não texto foi limpo...
Nome  : PGP.sig
Tipo  : application/pgp-signature
Tam   : 186 bytes
Descr.: This is a digitally signed message part
Url   : http://mail.pm.org/pipermail/portoalegre-pm/attachments/20070205/4eeb6711/attachment.bin