Commit | Line | Data |
1eb43e0a |
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; |