[gitmo/Moo.git] / xt / moose-consume-moo-role-after-consumed-by-moo.t

use strictures;
use Test::More;
use lib 'xt/lib';

BEGIN { $::ExampleMooRole_LOADED = 0 }
BEGIN {
    package ExampleMooConsumer;
    use Moo;

    with "ExampleMooRole";
}
BEGIN {
    package ExampleMooseConsumer;
    use Moose;

    with "ExampleMooRole";
}

is $::ExampleMooRole_LOADED, 1, "role loaded only once";

done_testing;
Commit	Line	Data
bfe18b35	1	use strictures;
	2	use Test::More;
	3	use lib 'xt/lib';
	4
	5	BEGIN { $::ExampleMooRole_LOADED = 0 }
	6	BEGIN {
	7	package ExampleMooConsumer;
	8	use Moo;
	9
	10	with "ExampleMooRole";
	11	}
	12	BEGIN {
	13	package ExampleMooseConsumer;
	14	use Moose;
	15
	16	with "ExampleMooRole";
	17	}
	18
	19	is $::ExampleMooRole_LOADED, 1, "role loaded only once";
	20
	21	done_testing;