[gitmo/Mouse.git] / t / 404-methods.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
BEGIN {
    if (eval "require Class::Method::Modifiers; 1") {
        plan tests => 1;
    }
    else {
        plan skip_all => "Class::Method::Modifiers required for this test";
    }
}
use Mouse::Util ':test';

my @calls;

do {
    package Role;
    use Mouse::Role;

    sub method {
        push @calls, 'Role::method';
    };

    no Mouse::Role;
};

do {
    package Class;
    use Mouse;
    with 'Role';

    no Mouse;
};

Class->method;
is_deeply([splice @calls], [
    'Role::method',
]);
Commit	Line	Data
66cff612	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4	use Test::More;
	5	BEGIN {
	6	if (eval "require Class::Method::Modifiers; 1") {
	7	plan tests => 1;
	8	}
	9	else {
	10	plan skip_all => "Class::Method::Modifiers required for this test";
	11	}
	12	}
	13	use Mouse::Util ':test';
	14
	15	my @calls;
	16
	17	do {
	18	package Role;
	19	use Mouse::Role;
	20
	21	sub method {
	22	push @calls, 'Role::method';
	23	};
	24
	25	no Mouse::Role;
	26	};
	27
	28	do {
	29	package Class;
	30	use Mouse;
	31	with 'Role';
	32
	33	no Mouse;
	34	};
	35
	36	Class->method;
	37	is_deeply([splice @calls], [
	38	'Role::method',
	39	]);
	40