Venus
(
A/AW/AWNCORP/Venus-4.15.tar.gz, AWNCORP, 2023;
MetaCPAN
)
t;
ok $result->isa('Example');
my $e1 = refaddr $result;
my $e2 = refaddr $result->renew;
isnt $e1, $e2;
$result
});
=example-2 renew
package Example;
use Venus::Class;
base 'Venu
>isa('Example');
is_deeply $result->values, [1,2];
my $e1 = $result;
my $e2 = $e1->renew;
isnt refaddr($e1), refaddr($e2);
is_deeply $e1->values, $e2->values;
$result
});
=example-3 rene
w;
isnt refaddr($e1), refaddr($e2);
is_deeply $e1->keys, $e2->keys;
is_deeply $e1->values, $e2->values;
my $e3 = $result->renew(values => [1..4]);
isnt refaddr($e1), refaddr($e3);
isnt ref