+++ /dev/null
-use strict;
-use warnings;
-{
- package ParentClass;
- use Mouse;
-}
-{
- package SomeClass;
- use base 'ParentClass';
-}
-{
- package SubClassUseBase;
- use base qw/SomeClass/;
- use Mouse;
-}
-
-use Test::More tests => 1;
-use Test::Exception;
-
-lives_ok {
- Mouse->init_meta(for_class => 'SomeClass');
-} 'Mouse class => use base => Mouse Class, then Mouse->init_meta on middle class ok';