-#!perl
-
use strict;
use warnings;
-# UNIVERSAL methods
-
use Test::More;
use Class::MOP;
push @universal_methods, 'DOES' if $] >= 5.010;
TODO: {
- local $TODO = 'UNIVERSAL methods should be available';
-
for my $method ( @universal_methods ) {
- ok $meta_class->find_method_by_name($method), "has UNIVERSAL method $method";
+ ok $meta_class->find_method_by_name($method), "has UNIVERSAL method $method";
}
};