6 use Test::More tests => 5 + 2 + 3 + 2;
11 package Scope::Context::TestA;
14 package Scope::Context::TestB;
15 my $cxt = Scope::Context->new;
16 package Scope::Context::TestC;
17 ::is $cxt->package, 'Scope::Context::TestA';
18 ::is $cxt->file, __FILE__;
19 ::is $cxt->line, $line;
20 ::is $cxt->sub_name, undef;
21 ::is $cxt->eval_text, undef;
26 my $cxt = Scope::Context->new;
27 [ $cxt->sub_name, $cxt->sub_has_args ]
32 is($info->[0], 'main::flurbz');
38 is(Scope::Context->new->gimme, undef, 'gimme in void context');
41 is(Scope::Context->new->gimme, !!'', 'gimme in scalar context');
44 is(Scope::Context->new->gimme, !!1, 'gimme in list context');
50 my $cxt = Scope::Context->new;
51 [ $cxt->eval_text, $cxt->is_require ];
57 my $eval_text = $info->[0];
58 s/[\s;]*$//g for $eval_text, $src;
59 is $eval_text, $src, 'eval_text in eval';
60 is $info->[1], !!'', 'is_require in eval';