[gitmo/Mouse.git] / t / 050_metaclasses / 017_use_base_of_moose.t

#!/usr/bin/env perl

use strict;
use warnings;

use Test::More tests => 4;
use Test::Exception;

{
    package NoOpTrait;
    use Mouse::Role;


}

{
    package Parent;
    use Mouse "-traits" => 'NoOpTrait';

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

{
    package Child;
    use base 'Parent';
}
is(Child->meta->name, 'Child', "correct metaclass name");
my $child = Child->new(attr => "ibute");
ok($child, "constructor works");


is($child->attr, "ibute", "getter inherited properly");

$child->attr("ition");
is($child->attr, "ition", "setter inherited properly");
Commit	Line	Data
41888e7d	1	#!/usr/bin/env perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More tests => 4;
	7	use Test::Exception;
	8
	9	{
	10	package NoOpTrait;
	11	use Mouse::Role;
8aba926d	12
8aba926d	13
41888e7d	14	}
	15
	16	{
	17	package Parent;
8aba926d	18	use Mouse "-traits" => 'NoOpTrait';
41888e7d	19
	20	has attr => (
	21	is => 'rw',
	22	isa => 'Str',
	23	);
	24	}
	25
	26	{
	27	package Child;
	28	use base 'Parent';
	29	}
41888e7d	30	is(Child->meta->name, 'Child', "correct metaclass name");
41888e7d	31	my $child = Child->new(attr => "ibute");
	32	ok($child, "constructor works");
	33
8aba926d	34
41888e7d	35	is($child->attr, "ibute", "getter inherited properly");
	36
	37	$child->attr("ition");
	38	is($child->attr, "ition", "setter inherited properly");