[Omaha.pm] FW: FW: Class::Date - change once set

[Jay Hannah]

From: "Balázs Szabó (dLux)" [mailto:dlux at dlux.hu]
> use Class::Date qw(date);
> $a = date "2000-11-11";
> $b = date "1970-10-21";
>
> print "a: $a, b: $b\n";
> swap1($a, $b);
> print "a: $a, b: $b\n";
>
> sub swap1 {
>    $x = $_[0];
>    $_[0] = $_[1];
>    $_[1] = $x;
> }

Ahhh, yes. I misread your email the first time. To make sure I know 
what's happening let me walk through it...

> sub swap1 {

$a is obj in year 2000. $b is obj in year 1970. $_[0] is a ref to $a. 
$_[1] is a ref to $b.

>    $x = $_[0];

$x is created, a new obj in year 2000.  (via clone() inside Class::Date)

>    $_[0] = $_[1];

$a obj is destroyed. A new $a is created, year 1970.  (via clone() 
inside Class::Date)

>    $_[1] = $x;
> }

$b obj is destroyed. A new $b is created, year 2000.  (via clone() 
inside Class::Date)

Is that right?

Thanks,

j