projects
/
gitmo/MooseX-Types.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
af5acd0d753bd90bef44a0fc95a874a5c8fac900
[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 tests => 1;
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';