Commit | Line | Data |
38bf2a25 |
1 | #!perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | # UNIVERSAL methods |
7 | |
8 | use Test::More; |
9 | use Class::MOP; |
10 | |
11 | my $meta_class = Class::MOP::Class->create_anon_class; |
12 | |
13 | my @universal_methods = qw/isa can VERSION/; |
14 | push @universal_methods, 'DOES' if $] >= 5.010; |
15 | |
16 | TODO: { |
17 | local $TODO = 'UNIVERSAL methods should be available'; |
18 | |
19 | for my $method ( @universal_methods ) { |
20 | ok $meta_class->find_method_by_name($method), "has UNIVERSAL method $method"; |
21 | } |
22 | }; |
23 | |
24 | done_testing; |