1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
do {
package My::Meta::Class;
use Moose;
BEGIN { extends 'Moose::Meta::Class' };
package Moose::Meta::Class::Custom::MyMetaClass;
sub register_implementation { 'My::Meta::Class' }
};
do {
package My::Class;
use Moose -metaclass => 'My::Meta::Class';
};
do {
package My::Class::Aliased;
use Moose -metaclass => 'MyMetaClass';
};
is(My::Class->meta->meta->name, 'My::Meta::Class');
is(My::Class::Aliased->meta->meta->name, 'My::Meta::Class');
done_testing;
|
