Commit | Line | Data |
10e970e4 |
1 | use strict; |
2 | use Test::More; |
3 | |
4 | { |
5 | package NoAttributes::CT; |
6 | use Moose; |
7 | BEGIN { extends qw/Catalyst::Controller/; }; |
8 | |
9 | sub test {} |
10 | } |
11 | { |
12 | package NoAttributes::RT; |
13 | use Moose; |
14 | extends qw/Catalyst::Controller/; |
15 | |
16 | sub test {} |
17 | } |
9c74923d |
18 | my $c = 0; |
10e970e4 |
19 | foreach my $class (qw/ CT RT /) { |
20 | my $class_name = 'NoAttributes::' . $class; |
21 | my $meta = $class_name->meta; |
22 | my $meth = $meta->find_method_by_name('test'); |
1e34b59f |
23 | { |
9c74923d |
24 | local $TODO = "Known MX::MethodAttributes issue" if $c++; |
1e34b59f |
25 | ok $meth->can('attributes'), 'method metaclass has ->attributes method for ' . $class;; |
26 | } |
10e970e4 |
27 | } |
28 | |
29 | done_testing; |
30 | |