5 package NoAttributes::CT;
7 BEGIN { extends qw/Catalyst::Controller/; };
12 package NoAttributes::RT;
14 extends qw/Catalyst::Controller/;
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');
24 local $TODO = "Known MX::MethodAttributes issue" if $c++;
25 ok $meth->can('attributes'), 'method metaclass has ->attributes method for ' . $class;;