6 use Test::More no_plan => 1;
11 use_ok('Class::MOP::Method');
14 my $meta = Class::MOP::Method->meta;
15 isa_ok($meta, 'Class::MOP::Class');
19 my $meta = Class::MOP::Method->meta();
20 isa_ok($meta, 'Class::MOP::Class');
22 foreach my $method_name (qw(
26 ok($meta->has_method($method_name), '... Class::MOP::Method->has_method(' . $method_name . ')');
31 Class::MOP::Method->wrap()
32 } '... bad args for &wrap';
35 Class::MOP::Method->wrap('Fail')
36 } '... bad args for &wrap';
39 Class::MOP::Method->wrap([])
40 } '... bad args for &wrap';