9 use Test::More tests => 3;
11 use Scope::Upper qw<localize_delete UP>;
16 for (reverse 0 .. ($n-1)) {
17 localize_delete '@A', $_ => UP UP;
21 is_deeply \@A, [ 1 .. $n ], '@A was correctly initialized';
24 is_deeply \@A, [ ], '@A is empty inside the block';
26 is_deeply \@A, [ 1 .. $n ], '@A regained its elements';