Commit | Line | Data |
0d8640df |
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 | |