trAvis - MANAGER

Edit File: MyExporter.pm

package MyExporter; use Moose::Exporter; use Test::More; Moose::Exporter->setup_import_methods( with_meta => [qw(with_prototype)], as_is => [qw(as_is_prototype)], ); sub with_prototype (&) { my ($class, $code) = @_; isa_ok($code, 'CODE', 'with_prototype received a coderef'); $code->(); } sub as_is_prototype (&) { my ($code) = @_; isa_ok($code, 'CODE', 'as_is_prototype received a coderef'); $code->(); } 1;