[gitmo/Mouse.git] / t / 402-basic-role-application.t

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

do {
    package Role;
    use Mouse::Role;

    has 'attr';

    no Mouse::Role;
};

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

    no Mouse;
};

ok(Class->meta->has_attribute('attr'), "role application added the attribute");
Commit	Line	Data
086c223b	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4	use Test::More tests => 1;
	5
	6	do {
	7	package Role;
	8	use Mouse::Role;
	9
	10	has 'attr';
	11
	12	no Mouse::Role;
	13	};
	14
	15	do {
	16	package Class;
	17	use Mouse;
	18	with 'Role';
	19
	20	no Mouse;
	21	};
	22
	23	ok(Class->meta->has_attribute('attr'), "role application added the attribute");
	24