projects
/
gitmo/MooseX-Types.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
b979d40ed17ad24a108620f55f6e09966133d4d3
[gitmo/MooseX-Types.git]
/
t
/
19_typelib_with_role.t
1
#!/usr/bin/env perl
2
use strict;
3
use warnings;
4
5
use Test::More;
6
7
{
8
package MyRole;
9
use Moose::Role;
10
requires 'foo';
11
}
12
13
eval q{
14
15
package MyClass;
16
use Moose;
17
use MooseX::Types -declare => ['Foo'];
18
use MooseX::Types::Moose 'Int';
19
with 'MyRole';
20
21
subtype Foo, as Int;
22
23
sub foo {}
24
};
25
26
ok !$@, 'type export not picked up as a method on role application';
27
28
done_testing();