t/050_metaclasses/021_export_with_prototype.t

   1 use lib "t/lib";
   2 package MyExporter::User;
   3 use MyExporter;
   4
   5 use Test::More;
   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 MyMooseX");
  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 MyMooseX");
  19     };
  20 } "check function with prototype";
  21
  22 done_testing;