2 package MyExporter::User;
5 use Test::More (tests => 4);
10 my $caller = caller(0);
11 is($caller, 'MyExporter', "With_caller prototype code gets called from MyMouseX");
13 } "check function with prototype";
17 my $caller = caller(0);
18 is($caller, 'MyExporter', "As-is prototype code gets called from MyMouseX");
20 } "check function with prototype";