Your IP : 216.73.216.1

Current Path : /usr/share/doc/perl-Moose/t/metaclasses/
Upload File :
Current File : //usr/share/doc/perl-Moose/t/metaclasses/moose_nonmoose_moose_chain_init_meta.t

use strict;
use warnings;
{
    package ParentClass;
    use Moose;
}
{
    package SomeClass;
    use parent -norequire => 'ParentClass';
}
{
    package SubClassUseBase;
    use parent -norequire => 'SomeClass';
    use Moose;
}

use Test::More;
use Test::Fatal;

is( exception {
    Moose->init_meta(for_class => 'SomeClass');
}, undef, 'Moose class => use parent => Moose Class, then Moose->init_meta on middle class ok' );

done_testing;