[gitmo/Mouse.git] / t / 001_mouse / 070-inherit-role-attr.t

#!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;
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