Commit | Line | Data |
---|---|---|
41888e7d | 1 | use strict; |
2 | use warnings; | |
3 | { | |
4 | package ParentClass; | |
5 | use Mouse; | |
6 | } | |
7 | { | |
8 | package SomeClass; | |
9 | use base 'ParentClass'; | |
10 | } | |
11 | { | |
12 | package SubClassUseBase; | |
13 | use base qw/SomeClass/; | |
14 | use Mouse; | |
15 | } | |
16 | ||
17 | use Test::More tests => 1; | |
18 | use Test::Exception; | |
19 | ||
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'; |