Commit | Line | Data |
---|---|---|
8ee5b111 | 1 | use strict; |
2 | use warnings; | |
3 | use Test::More; | |
4 | ||
5 | use FindBin qw/ $Bin /; | |
6 | use lib "$Bin/lib"; | |
7 | ||
8 | { | |
9 | package ExampleRole; | |
10 | use Moo::Role; | |
11 | ||
12 | requires 'foo'; | |
13 | ||
14 | with qw/ | |
15 | ExampleMooseRoleOne | |
16 | ExampleMooseRoleTwo | |
17 | /; | |
18 | } | |
19 | ||
20 | { | |
21 | package ExampleClass; | |
22 | use Moose; | |
23 | ||
24 | with 'ExampleRole'; | |
25 | ||
26 | sub foo {} | |
27 | } | |
28 | ||
29 | ok 1; | |
30 | ||
31 | done_testing; | |
32 |