[gitmo/Mouse.git] / t / 030_roles / failing / 038_new_meta_role.t

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

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

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

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