[gitmo/Mouse.git] / t / 030-has-plus.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 2;

do {
    package Class;
    use Mouse;

    has attr => (
        is  => 'rw',
        isa => 'Bool',
    );

    package Child;
    use Mouse;
    extends 'Class';

    has '+attr' => (
        default => 1,
    );
};

my $obj = Class->new;
ok(!$obj->attr, 'has + does not affect the superclass');

my $obj2 = Child->new;
ok($obj2->attr, 'has + combines child attribute with parent');
Commit	Line	Data
7e2909e5	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4	use Test::More tests => 2;
	5
	6	do {
	7	package Class;
	8	use Mouse;
	9
	10	has attr => (
	11	is => 'rw',
	12	isa => 'Bool',
	13	);
	14
	15	package Child;
	16	use Mouse;
	17	extends 'Class';
	18
	19	has '+attr' => (
	20	default => 1,
	21	);
	22	};
	23
	24	my $obj = Class->new;
	25	ok(!$obj->attr, 'has + does not affect the superclass');
	26
	27	my $obj2 = Child->new;
	28	ok($obj2->attr, 'has + combines child attribute with parent');
	29