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