6 use Test::More tests => 9;
8 use Scope::Upper qw/TOPLEVEL/;
10 is TOPLEVEL, 0, 'main is 0';
13 is TOPLEVEL, 1, '{ 1 }';
17 is TOPLEVEL, 1, 'do { 1 }';
21 is TOPLEVEL, 1, 'eval { 1 }';
25 is TOPLEVEL, 1, 'eval "1"';
29 is TOPLEVEL, 1, 'do { 1 } while (0)';
33 is TOPLEVEL, 1, 'sub { 1 }';
37 is TOPLEVEL, 1, 'for () { 1 }';