Commit | Line | Data |
---|---|---|
f2391d17 | 1 | use strict; |
2 | use warnings; | |
3 | { | |
4 | package ParentClass; | |
5 | use Moose; | |
6 | } | |
7 | { | |
8 | package SomeClass; | |
9 | use base 'ParentClass'; | |
10 | } | |
11 | { | |
12 | package SubClassUseBase; | |
13 | use base qw/SomeClass/; | |
14 | use Moose; | |
15 | } | |
16 | ||
a28e50e4 | 17 | use Test::More; |
b10dde3a | 18 | use Test::Fatal; |
f2391d17 | 19 | |
b10dde3a | 20 | is( exception { |
57a21623 | 21 | Moose->init_meta(for_class => 'SomeClass'); |
b10dde3a | 22 | }, undef, 'Moose class => use base => Moose Class, then Moose->init_meta on middle class ok' ); |
a28e50e4 | 23 | |
24 | done_testing; |