[gitmo/Mouse.git] / t / 036-with-method-alias.t

use strict;
use warnings;
use Test::More tests => 5;

{
    package Animal;
    use Mouse::Role;
    sub eat { 'delicious' }
}

{
    package Cat;
    use Mouse::Role;
    with 'Animal', {
        alias => { eat => 'drink' },
    };
    sub eat { 'good!' }
}

{
    package Tama;
    use Mouse;
    with 'Cat';
}

{
    package Dog;
    use Mouse;
    with 'Animal', {
        alias => { eat => 'drink' }
    };
}

ok(!Dog->can('eat'));
ok(Dog->can('drink'));

my $d = Dog->new();
is($d->drink(), 'delicious');

my $t = Tama->new;
is $t->drink(), 'delicious';
is $t->eat(),    'good!';
Commit	Line	Data
4aaa2ed6	1	use strict;
	2	use warnings;
	3	use Test::More tests => 5;
	4
	5	{
	6	package Animal;
	7	use Mouse::Role;
	8	sub eat { 'delicious' }
	9	}
	10
	11	{
	12	package Cat;
	13	use Mouse::Role;
	14	with 'Animal', {
	15	alias => { eat => 'drink' },
	16	};
	17	sub eat { 'good!' }
	18	}
	19
	20	{
	21	package Tama;
	22	use Mouse;
	23	with 'Cat';
	24	}
	25
	26	{
	27	package Dog;
	28	use Mouse;
	29	with 'Animal', {
	30	alias => { eat => 'drink' }
	31	};
	32	}
	33
	34	ok(!Dog->can('eat'));
	35	ok(Dog->can('drink'));
	36
	37	my $d = Dog->new();
	38	is($d->drink(), 'delicious');
	39
	40	my $t = Tama->new;
	41	is $t->drink(), 'delicious';
	42	is $t->eat(), 'good!';
	43