[gitmo/Moose.git] / t / roles / new_meta_role.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;

do {
    package My::Meta::Role;
    use Moose;
    BEGIN { extends 'Moose::Meta::Role' };
};

do {
    package My::Role;
    use Moose::Role -metaclass => 'My::Meta::Role';
};

is(My::Role->meta->meta->name, 'My::Meta::Role');

done_testing;
Commit	Line	Data
d8f1e5f6	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
a28e50e4	4	use Test::More;
d8f1e5f6	5
	6	do {
	7	package My::Meta::Role;
	8	use Moose;
	9	BEGIN { extends 'Moose::Meta::Role' };
	10	};
	11
	12	do {
	13	package My::Role;
	14	use Moose::Role -metaclass => 'My::Meta::Role';
	15	};
	16
	17	is(My::Role->meta->meta->name, 'My::Meta::Role');
	18
a28e50e4	19	done_testing;