Commit | Line | Data |
41888e7d |
1 | use lib "t/lib"; |
2 | package MyExporter::User; |
3 | use MyExporter; |
4 | |
5 | use Test::More (tests => 4); |
6 | use Test::Exception; |
7 | |
8 | lives_and { |
9 | with_prototype { |
10 | my $caller = caller(0); |
11 | is($caller, 'MyExporter', "With_caller prototype code gets called from MyMouseX"); |
12 | }; |
13 | } "check function with prototype"; |
14 | |
15 | lives_and { |
16 | as_is_prototype { |
17 | my $caller = caller(0); |
18 | is($caller, 'MyExporter', "As-is prototype code gets called from MyMouseX"); |
19 | }; |
20 | } "check function with prototype"; |