8 BEGIN { $SIG{__WARN__} = sub { $warn .= "@_" } }
13 has foo => ( is => "rw" );
24 has '+foo' => ( default => "the default" );
25 } 'inherit attr when @ISA contains a non Mouse class before a Mouse class with the base attr';
31 is( $g->foo, "the default", "inherited attribute" );
32 is( $g->oink, "oink", "inherited method from a non-Mouse class");
35 is $warn, '', 'produces no warnings';