1print "1..3\n"; 2 3use Data::Dump qw(dump); 4 5$a = 42; 6@a = (\$a); 7 8$d = dump($a, $a, \$a, \\$a, "$a", $a+0, \@a); 9 10print "$d;\n"; 11 12print "not " unless $d eq q(do { 13 my $a = 42; 14 ($a, $a, \\$a, \\\\$a, 42, 42, [\\$a]); 15}); 16print "ok 1\n"; 17 18$d = dump(\\$a, \$a, $a, \@a); 19print "$d;\n"; 20 21print "not " unless $d eq q(do { 22 my $a = \\\\42; 23 ($a, $$a, $$$a, [$$a]); 24}); 25print "ok 2\n"; 26 27# not really a scalar test, but anyway 28$a = []; 29$d = dump(\$a, $a); 30 31print "$d;\n"; 32print "not " unless $d eq q(do { 33 my $a = \[]; 34 ($a, $$a); 35}); 36print "ok 3\n"; 37