1234567891011121314151617 use Test::More;use lib 't/lib';use Caller::Reverse qw/all/;is([caller_first(1)]->[0], 'main', 'main');is(caller_first(1), 'main', 'main');is(caller_first, undef, 'main');use Bar;ok(my $b = Bar->new);is($b->test, 'Foo', 'Foo');is($b->testing, 'Bar', 'Bar');done_testing;
use
Test::More;
lib
't/lib'
;
Caller::Reverse
qw/all/
is([caller_first(1)]->[0],
'main'
,
);
is(caller_first(1),
is(caller_first,
undef
Bar;
ok(
my
$b
= Bar->new);
is(
->test,
'Foo'
->testing,
'Bar'
done_testing;