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