6 use Test::More tests => 2 * 2 * 4;
15 $r = $w->{a}{b} for 1 .. $n;
17 is_deeply $w, undef, 'numerous fetches from an undef lexical';
23 $r = $w->{a}{b} for 1 .. $n;
25 is_deeply $w, { a => undef },'numerous fetches from a 1-level hashref lexical';
33 $r = $w->{a}{b} for 1 .. $n;
35 is_deeply $w, undef, 'numerous fetches from an undef global';
41 $r = $w->{a}{b} for 1 .. $n;
43 is_deeply $w, { a => undef },'numerous fetches from a 1-level hashref global';
51 @r = @{$x}{qw<a b>} for 1 .. $n;
53 is_deeply $x, undef, 'numerous slices from an undef lexical';
59 @r = @{$x->{a}}{qw<b c>} for 1 .. $n;
61 is_deeply $x, { a => undef }, 'numerous slices from a 1-level hashref lexical';
69 @r = @{$x}{qw<a b>} for 1 .. $n;
71 is_deeply $x, undef, 'numerous slices from an undef global';
77 @r = @{$x->{a}}{qw<b c>} for 1 .. $n;
79 is_deeply $x, { a => undef }, 'numerous slices from a 1-level hashref global';
87 $r = exists $y->{a}{b} for 1 .. $n;
89 is_deeply $y, undef, 'numerous exists from an undef lexical';
95 $r = exists $y->{a}{b} for 1 .. $n;
97 is_deeply $y, { a => undef },'numerous exists from a 1-level hashref lexical';
105 $r = exists $y->{a}{b} for 1 .. $n;
107 is_deeply $y, undef, 'numerous exists from an undef global';
113 $r = exists $y->{a}{b} for 1 .. $n;
115 is_deeply $y, { a => undef },'numerous exists from a 1-level hashref global';
123 $r = delete $z->{a}{b} for 1 .. $n;
125 is_deeply $z, undef, 'numerous deletes from an undef lexical';
131 $r = delete $z->{a}{b} for 1 .. $n;
133 is_deeply $z, { a => undef },'numerous deletes from a 1-level hashref lexical';
141 $r = delete $z->{a}{b} for 1 .. $n;
143 is_deeply $z, undef, 'numerous deletes from an undef global';
149 $r = delete $z->{a}{b} for 1 .. $n;
151 is_deeply $z, { a => undef },'numerous deletes from a 1-level hashref global';