16 use base qw(BaseClass);
25 my $meta = Class::MOP::Class->initialize('Derived');
26 my %methods = map { $_ => $meta->find_method_by_name($_) } 'm1' .. 'm5';
28 while (my ($name, $meta_method) = each %methods) {
29 is $meta_method->fully_qualified_name, "Derived::${name}";
30 throws_ok { $meta_method->execute } qr/Undefined subroutine .* called at/;
39 sub m3 :method { 'tiger' }
46 while (my ($name, $meta_method) = each %methods) {
47 is $meta_method->fully_qualified_name, "Derived::${name}";
48 lives_ok { $meta_method->execute };