t/lib/MyExporter.pm

   1
   2 # This is automatically generated by author/import-moose-test.pl.
   3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
   4 use t::lib::MooseCompat;
   5
   6 package MyExporter;
   7 use Mouse::Exporter;
   8 use Test::More;
   9
  10 Mouse::Exporter->setup_import_methods(
  11     with_meta => [qw(with_prototype)],
  12     as_is     => [qw(as_is_prototype)],
  13 );
  14
  15 sub with_prototype (&) {
  16     my ($class, $code) = @_;
  17     isa_ok($code, 'CODE', 'with_prototype received a coderef');
  18     $code->();
  19 }
  20
  21 sub as_is_prototype (&) {
  22     my ($code) = @_;
  23     isa_ok($code, 'CODE', 'as_is_prototype received a coderef');
  24     $code->();
  25 }
  26
  27 1;