Commit | Line | Data |
---|---|---|
bfe18b35 | 1 | use strictures; |
2 | use Test::More; | |
3 | use lib 'xt/lib'; | |
4 | ||
5 | BEGIN { $::ExampleMooRole_LOADED = 0 } | |
6 | BEGIN { | |
7 | package ExampleMooConsumer; | |
8 | use Moo; | |
9 | ||
10 | with "ExampleMooRole"; | |
11 | } | |
12 | BEGIN { | |
13 | package ExampleMooseConsumer; | |
14 | use Moose; | |
15 | ||
16 | with "ExampleMooRole"; | |
17 | } | |
18 | ||
19 | is $::ExampleMooRole_LOADED, 1, "role loaded only once"; | |
20 | ||
21 | done_testing; |