4 use Test::More tests => 20;
27 my $meta = Class::MOP::Class->initialize('Derived');
28 my %methods = map { $_ => $meta->find_method_by_name($_) } 'm1' .. 'm5';
30 while (my ($name, $meta_method) = each %methods) {
31 is $meta_method->fully_qualified_name, "Derived::${name}";
32 throws_ok { $meta_method->execute } qr/Undefined subroutine .* called at/;
41 sub m3 :method { 'tiger' }
48 while (my ($name, $meta_method) = each %methods) {
49 is $meta_method->fully_qualified_name, "Derived::${name}";
50 lives_ok { $meta_method->execute };