[gitmo/Mouse.git] / t / 001_mouse / 063-meta-of-metaclasses.t

#!perl
use strict;
use warnings;

use Test::More tests => 6;

use Mouse ();

can_ok('Mouse::Meta::Class', 'meta');
can_ok('Mouse::Meta::Role', 'meta');

my $meta = Mouse::Meta::Class->meta;
can_ok($meta->constructor_class, 'meta');
can_ok($meta->destructor_class, 'meta');
can_ok($meta->attribute_metaclass, 'meta');

can_ok($meta->get_method('is_anon_class'), 'meta');
Commit	Line	Data
b4d1723e	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