blob: a29fff00bd8c1881d5f654b08f172933d0fff493 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
package MyExporter;
use MooseX::Exporter::Easy;
use Test::More;
with_meta with_prototype => sub (&) {
my ($meta, $code) = @_;
isa_ok($code, 'CODE', 'with_prototype received a coderef');
$code->();
};
as_is as_is_prototype => sub (&) {
my ($code) = @_;
isa_ok($code, 'CODE', 'as_is_prototype received a coderef');
$code->();
};
export;
1;
|