Commit | Line | Data |
19ac4f06 |
1 | #!/usr/bin/env perl |
2 | use strict; |
3 | use warnings; |
4 | use Test::More; |
5 | use Test::Moose; |
6 | |
7 | BEGIN { |
8 | package My::Meta::Role; |
9 | use Moose::Role; |
10 | $INC{'My/Meta/Role.pm'} = __FILE__; |
11 | } |
12 | |
13 | BEGIN { |
14 | package My::Exporter; |
15 | use Moose::Exporter; |
16 | |
17 | Moose::Exporter->setup_import_methods( |
18 | also => ['Moose'], |
19 | class_metaroles => { |
20 | class => ['My::Meta::Role'], |
21 | }, |
22 | ); |
23 | $INC{'My/Exporter.pm'} = __FILE__; |
24 | } |
25 | |
26 | { |
27 | package My::Class; |
28 | use My::Exporter; |
29 | } |
30 | |
31 | { |
32 | my $meta = My::Class->meta; |
33 | isa_ok($meta, 'Moose::Meta::Class'); |
34 | does_ok($meta, 'My::Meta::Role'); |
35 | } |
36 | |
37 | done_testing; |