File: 070-inherit-role-attr.t

package info (click to toggle)
libmouse-perl 2.6.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 2,156 kB
  • sloc: perl: 14,569; ansic: 218; makefile: 8
file content (31 lines) | stat: -rw-r--r-- 487 bytes parent folder | download | duplicates (7) 
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
 
#!perl -w
use strict;
use Test::More;
{
    package Role;
    use Mouse::Role;

    has foo => (
        is       => 'bare',
        init_arg => undef,
    );

    package Class;
    use Mouse;
    with 'Role';

    has "+foo" => (
        default => 'bar',
    );

    ::ok( __PACKAGE__->meta->find_attribute_by_name('foo')->has_default );
}

my $foo = Class->meta->get_attribute('foo');
ok $foo;
is $foo->name, 'foo';
is $foo->init_arg, undef;
is $foo->default, 'bar';

done_testing;