[gitmo/Mouse.git] / t / 001_mouse / 404-role-overrides.t

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

do {
    package My::Role;
    use Mouse::Role;

    sub foo { 'role' }

    package Parent;
    use Mouse;

    sub foo { 'parent' }

    package Child;
    use Mouse;
    extends 'Parent';
    with 'My::Role';
};

is(Child->foo, 'role');

do {
    package ChildOverride;
    use Mouse;
    extends 'Parent';
    with 'My::Role';

    sub foo { 'child' }
};

is(ChildOverride->foo, 'child');
Commit	Line	Data
e743afa0	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4	use Test::More tests => 2;
	5
	6	do {
	7	package My::Role;
	8	use Mouse::Role;
	9
	10	sub foo { 'role' }
	11
	12	package Parent;
	13	use Mouse;
	14
	15	sub foo { 'parent' }
	16
	17	package Child;
	18	use Mouse;
	19	extends 'Parent';
	20	with 'My::Role';
	21	};
	22
	23	is(Child->foo, 'role');
	24
	25	do {
	26	package ChildOverride;
	27	use Mouse;
	28	extends 'Parent';
	29	with 'My::Role';
	30
	31	sub foo { 'child' }
	32	};
	33
	34	is(ChildOverride->foo, 'child');
	35