projects
/
gitmo/MooseX-Role-Parameterized.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Link to my prole blog post
[gitmo/MooseX-Role-Parameterized.git]
/
t
/
012-rename-role.t
1
#!/usr/bin/env perl
2
use strict;
3
use warnings;
4
use Test::More tests => 1;
5
6
do {
7
package MyRole;
8
use MooseX::Role::Parameterized (
9
role => { -as => 'parameterized_role' },
10
'method',
11
);
12
13
parameterized_role {
14
method ok => sub {};
15
};
16
};
17
18
my $role = MyRole->meta->generate_role;
19
ok($role->has_method('ok'), "renaming the role block export works");
20