Commit | Line | Data |
---|---|---|
41888e7d | 1 | use strict; |
2 | use warnings; | |
9864f0e4 | 3 | use Test::More tests => 1; |
4 | use Test::Exception; | |
5 | ||
41888e7d | 6 | { |
7 | package ParentClass; | |
8 | use Mouse; | |
9 | } | |
10 | { | |
11 | package SomeClass; | |
12 | use base 'ParentClass'; | |
13 | } | |
14 | { | |
15 | package SubClassUseBase; | |
16 | use base qw/SomeClass/; | |
17 | use Mouse; | |
18 | } | |
19 | ||
41888e7d | 20 | lives_ok { |
21 | Mouse->init_meta(for_class => 'SomeClass'); | |
22 | } 'Mouse class => use base => Mouse Class, then Mouse->init_meta on middle class ok'; |