7 my $meta_class = Class::MOP::Class->create_anon_class;
9 my %methods = map { $_->name => 1 } $meta_class->get_all_methods();
10 my %method_names = map { $_ => 1 } $meta_class->get_all_method_names();
12 my @universal_methods = qw/isa can VERSION/;
13 push @universal_methods, 'DOES' if $] >= 5.010;
15 for my $method (@universal_methods) {
17 $meta_class->find_method_by_name($method),
18 "find_method_by_name finds UNIVERSAL method $method"
21 $meta_class->find_next_method_by_name($method),
22 "find_next_method_by_name finds UNIVERSAL method $method"
25 scalar $meta_class->find_all_methods_by_name($method),
26 "find_all_methods_by_name finds UNIVERSAL method $method"
30 "get_all_methods includes $method from UNIVERSAL"
33 $method_names{$method},
34 "get_all_method_names includes $method from UNIVERSAL"