Tidy code and remove unneeded module loads
[gitmo/Moose.git] / t / lib / MyExporter.pm
CommitLineData
badbc528 1
2
3package MyExporter;
4use Moose::Exporter;
5use Test::More;
6
7Moose::Exporter->setup_import_methods(
3b400403 8 with_meta => [qw(with_prototype)],
9 as_is => [qw(as_is_prototype)],
badbc528 10);
11
12sub with_prototype (&) {
13 my ($class, $code) = @_;
14 isa_ok($code, 'CODE', 'with_prototype received a coderef');
15 $code->();
16}
17
18sub as_is_prototype (&) {
19 my ($code) = @_;
20 isa_ok($code, 'CODE', 'as_is_prototype received a coderef');
21 $code->();
22}
23
3b400403 241;