| Current Path : /usr/share/doc/perl-Moose/t/roles/ |
| Current File : //usr/share/doc/perl-Moose/t/roles/new_meta_role.t |
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;