1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
# This is automatically generated by author/import-moose-test.pl.
# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
use MooseCompat;
package MyExporter;
use Mouse::Exporter;
use Test::More;
Mouse::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;
|
