8 package Foo::Meta::Constructor1;
13 package Foo::Meta::Constructor2;
20 Moose::Util::MetaRole::apply_metaroles(
22 class_metaroles => { constructor => ['Foo::Meta::Constructor1'] },
29 Moose::Util::MetaRole::apply_metaroles(
31 class_metaroles => { constructor => ['Foo::Meta::Constructor2'] },
37 package Foo::Sub::Sub;
39 Moose::Util::MetaRole::apply_metaroles(
41 class_metaroles => { constructor => ['Foo::Meta::Constructor2'] },
43 ::is( ::exception { extends 'Foo::Sub' }, undef, "doesn't try to fix if nothing is needed" );