trAvis - MANAGER
Edit File: 301-bugs-non-mouse.t
#!/usr/bin/perl use strict; use warnings; use Test::More 'no_plan'; use Test::Exception; { package Foo; use Mouse; has foo => ( is => "rw" ); package Bar; sub oink { "oink" } package Gorch; use Mouse; extends qw(Bar Foo); ::lives_ok{ has '+foo' => ( default => "the default" ); } 'inherit attr when @ISA contains a non Mouse class before a Mouse class with the base attr'; } { my $g = Gorch->new; is( $g->foo, "the default", "inherited attribute" ); }