Update t/lib
[gitmo/Mouse.git] / t / lib / MyExporter.pm
CommitLineData
1eb43e0a 1
2# This is automatically generated by author/import-moose-test.pl.
3# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
4use t::lib::MooseCompat;
5
6package MyExporter;
7use Mouse::Exporter;
8use Test::More;
9
10Mouse::Exporter->setup_import_methods(
11 with_meta => [qw(with_prototype)],
12 as_is => [qw(as_is_prototype)],
13);
14
15sub with_prototype (&) {
16 my ($class, $code) = @_;
17 isa_ok($code, 'CODE', 'with_prototype received a coderef');
18 $code->();
19}
20
21sub as_is_prototype (&) {
22 my ($code) = @_;
23 isa_ok($code, 'CODE', 'as_is_prototype received a coderef');
24 $code->();
25}
26
271;