t/metaclasses/export_with_prototype.t

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