t/001_mouse/063-meta-of-metaclasses.t

   1 #!perl
   2 use strict;
   3 use warnings;
   4
   5 use Test::More tests => 6;
   6
   7 use Mouse ();
   8
   9 can_ok('Mouse::Meta::Class', 'meta');
  10 can_ok('Mouse::Meta::Role', 'meta');
  11
  12 my $meta = Mouse::Meta::Class->meta;
  13 can_ok($meta->constructor_class, 'meta');
  14 can_ok($meta->destructor_class, 'meta');
  15 can_ok($meta->attribute_metaclass, 'meta');
  16
  17 can_ok($meta->get_method('is_anon_class'), 'meta');
  18