Commit | Line | Data |
---|---|---|
badbc528 | 1 | use lib "t/lib"; |
2 | package MyExporter::User; | |
3 | use MyExporter; | |
4 | ||
a28e50e4 | 5 | use Test::More; |
b10dde3a | 6 | use Test::Fatal; |
badbc528 | 7 | |
b10dde3a | 8 | is( exception { |
badbc528 | 9 | with_prototype { |
10 | my $caller = caller(0); | |
11 | is($caller, 'MyExporter', "With_caller prototype code gets called from MyMooseX"); | |
12 | }; | |
b10dde3a | 13 | }, undef, "check function with prototype" ); |
badbc528 | 14 | |
b10dde3a | 15 | is( exception { |
badbc528 | 16 | as_is_prototype { |
17 | my $caller = caller(0); | |
18 | is($caller, 'MyExporter', "As-is prototype code gets called from MyMooseX"); | |
19 | }; | |
b10dde3a | 20 | }, undef, "check function with prototype" ); |
a28e50e4 | 21 | |
22 | done_testing; |