Commit | Line | Data |
---|---|---|
1cad29ab | 1 | use strict; |
2 | use Test::More tests => 1; | |
3 | ||
4 | { | |
5 | package TestPlugin; | |
6 | use strict; | |
7 | ||
8 | sub setup { | |
9 | shift->maybe::next::method(@_); | |
10 | } | |
11 | } | |
12 | { | |
13 | package TestAppC3ErrorUseMoose; | |
14 | use Moose; | |
15 | ||
16 | use Catalyst::Runtime 5.80; | |
17 | ||
18 | use base qw/Catalyst/; | |
19 | use Catalyst qw/ | |
20 | +TestPlugin | |
21 | /; | |
22 | } | |
23 | ||
24 | use Test::Exception; | |
25 | lives_ok { | |
26 | TestAppC3ErrorUseMoose->setup(); | |
27 | } 'No C3 error'; | |
28 | ||
29 | 1; | |
30 |