1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
use strict;
# This is automatically generated by author/import-moose-test.pl.
# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
use lib "t/lib";
use MooseCompat;
use warnings;
{
package ParentClass;
use Mouse;
}
{
package SomeClass;
use base 'ParentClass';
}
{
package SubClassUseBase;
use base qw/SomeClass/;
use Mouse;
}
use Test::More;
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';
done_testing;
|
