[gitmo/Role-Tiny.git] / t / namespace-clean.t

use Test::More;

BEGIN {
    eval { require namespace::autoclean ; 1 }
        or plan skip_all => 'test requires namespace::autoclean';
}

BEGIN {
    package Local::Role;
    use Role::Tiny;
    sub foo { 1 };
}

BEGIN {
    package Local::Class;
    use namespace::autoclean;
    use Role::Tiny::With;
    with qw( Local::Role );
};

can_ok 'Local::Class', 'foo';
can_ok 'Local::Class', 'does';

done_testing();
Commit	Line	Data
efc1e387	1	use Test::More;
	2
	3	BEGIN {
	4	eval { require namespace::autoclean ; 1 }
	5	or plan skip_all => 'test requires namespace::autoclean';
	6	}
	7
	8	BEGIN {
	9	package Local::Role;
	10	use Role::Tiny;
	11	sub foo { 1 };
	12	}
	13
	14	BEGIN {
	15	package Local::Class;
	16	use namespace::autoclean;
	17	use Role::Tiny::With;
	18	with qw( Local::Role );
	19	};
	20
	21	can_ok 'Local::Class', 'foo';
	22	can_ok 'Local::Class', 'does';
	23
	24	done_testing();