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
31
32
33
|
use strict;
use warnings;
{
package Catalyst::Controller;
use Moose;
use namespace::autoclean;
use MooseX::MethodAttributes;
with 'MooseX::MethodAttributes::Role::AttrContainer::Inheritable';
}
{
package ControllerRole;
use Moose::Role -traits => 'MethodAttributes';
use namespace::autoclean;
sub excluded : Local {}
}
{
package roles::Controller::Foo;
use Moose;
BEGIN { extends 'Catalyst::Controller'; }
with 'ControllerRole' => { -excludes => 'not_attributed' };
}
use Test::More tests => 1;
my $meta = roles::Controller::Foo->meta;
TODO: {
local $TODO = 'Aliasing and exclusion does not work';
ok !$meta->get_method('excluded');
}
|
