1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#!/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" );
}
|
