6 use Test::More tests => 4 + 10 + 6 + 5 + 6;
8 use Scope::Upper qw/localize/;
12 sub loc { local $x; my $y = $_[1]; localize '$x', $y, $_[0] + 1 }
21 is($x, 1, 'localized to 1');
23 is($x, 7, 'no longer localized');
34 is($x, 8, 'not localized');
36 is($x, 9, 'not localized');
38 is($x, 1, 'localized to 1');
40 is($x, 1, 'localized to 1');
42 is($x, 1, 'localized to 1');
44 is($x, 10, 'localized to undef');
46 is($x, 1, 'localized to 1');
48 is($x, 1, 'localized to 1');
63 is($x, 10, 'not localized');
65 is($x, 9, 'not localized');
67 is($x, 1, 'localized to 1');
69 is($x, 7, 'no longer localized');
81 is($x, 8, 'not localized');
84 is($x, 2, 'localized to 2');
86 is($x, 1, 'localized to 1');
97 is($x, undef, 'not localized');
100 is($x, undef, 'not localized');
102 is($x, 2, 'localized to 2');
104 is($x, 1, 'localized to 1');