7 eval "use Test::Output;";
8 plan skip_all => "Test::Output is required for this test" if $@;
14 sub new { bless {}, shift }
17 BEGIN { our @ISA = 'Parent' }
22 local $TODO = "Mouse doesn't track enough context";
24 sub { Child->meta->make_immutable },
25 "Not inlining a constructor for Child since it is not inheriting the default Mouse::Object constructor\n",
26 'Mouse warns when it would have blown away the inherited constructor',
34 __PACKAGE__->meta->make_immutable;
43 sub { Bar->meta->make_immutable },
45 'Mouse does not warn about inlining a constructor when the superclass inlined a constructor',
52 BEGIN { our @ISA = 'Baz' }
55 __PACKAGE__->meta->make_immutable;