t/050_metaclasses/022_new_metaclass.t

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