5 use Test::More 'no_plan';
10 use constant NO_SUCH_FILE => "kiwifoo_is_so_much_fun";
16 isa_ok($@, 'autodie::exception');
18 is($@->caller, 'main::foo', "Caller should be main::foo");
22 open(my $fh, '<', NO_SUCH_FILE);
29 isa_ok($@, 'autodie::exception');
31 is($@->line, $Caller_helper::line, "External line number check");
32 is($@->file, $INC{"Caller_helper.pm"}, "External filename check");
33 is($@->package, "Caller_helper", "External package check");
34 is($@->caller, "Caller_helper::foo", "External subname check");