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 like( exception { $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 is( exception { $meta_method->execute }, undef );