projects
/
gitmo/Mouse.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
ba46a3f6d47f733b287f36dc7ea059e8c5216b99
[gitmo/Mouse.git]
/
t
/
001_mouse
/
070-inherit-role-attr.t
1
#!perl -w
2
use strict;
3
use Test::More;
4
{
5
package Role;
6
use Mouse::Role;
7
8
has foo => (
9
is => 'bare',
10
init_arg => undef,
11
);
12
13
package Class;
14
use Mouse;
15
with 'Role';
16
17
has "+foo" => (
18
default => 'bar',
19
);
20
21
::ok( __PACKAGE__->meta->find_attribute_by_name('foo')->has_default );
22
}
23
24
my $foo = Class->meta->get_attribute('foo');
25
ok $foo;
26
is $foo->name, 'foo';
27
is $foo->init_arg, undef;
28
is $foo->default, 'bar';
29
30
done_testing;
31