1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
|
print "1..5\n";
use strict;
use Data::Dump::Streamer qw(alias_av push_alias alias_hv);
my $a= "a";
my @a= (1, 2, 3, 4);
alias_av(@a, 1, $a);
push_alias(@a, $a);
print "not " unless "@a" eq "1 a 3 4 a";
print "ok 1\n";
$a= 2;
print "not " unless "@a" eq "1 2 3 4 2";
print "ok 2\n";
$a[1]= "z";
print "not " unless $a[4] eq "z";
print "ok 3\n";
my %h;
alias_hv(%h, "foo", $a);
$h{foo}= "bar";
print "not " unless $a eq "bar";
print "ok 4\n";
$a[2]= [3];
alias_av(@a, 2, $a[2][0]);
print "not " unless $a[2] == 3;
print "ok 5\n";
if (shift) {
require Devel::Peek;
Devel::Peek::Dump($a);
Devel::Peek::Dump(\@a);
Devel::Peek::Dump(\%h);
}
|