1print "1..3\n"; 2 3use Data::Dump qw(dump); 4 5$a = 42; 6bless \$a, "Foo"; 7 8my $d = dump($a); 9 10print "$d\n"; 11print "not " unless $d eq q(do { 12 my $a = 42; 13 bless \$a, "Foo"; 14 $a; 15}); 16print "ok 1\n"; 17 18$d = dump(\$a); 19print "$d\n"; 20print "not " unless $d eq q(bless(do{\\(my $o = 42)}, "Foo")); 21print "ok 2\n"; 22 23$d = dump(\\$a); 24print "$d\n"; 25print "not " unless $d eq q(\\bless(do{\\(my $o = 42)}, "Foo")); 26print "ok 3\n"; 27