{
my $meta = Foo->meta;
+ ok(!$meta->is_overloaded);
+
is_deeply([sort $meta->overload_operators],
[sort map { split /\s+/ } values %overload::ops]);
ok(!$meta->has_overloaded_operator('+'));
ok(!$meta->has_overloaded_operator('-'));
- is_deeply([$meta->get_overloaded_operators], []);
-
is_deeply([$meta->get_overload_list], []);
+ is_deeply([$meta->get_all_overloaded_operators], []);
+
is($meta->get_overloaded_operator('+'), undef);
is($meta->get_overloaded_operator('-'), undef);
}
{
my $meta = Foo::Overloaded->meta;
+ ok($meta->is_overloaded);
+
ok($meta->has_overloaded_operator('+'));
ok(!$meta->has_overloaded_operator('-'));
- is_deeply([$meta->get_overloaded_operators], ['+']);
+ is_deeply([$meta->get_overload_list], ['+']);
- my @overloads = $meta->get_overload_list;
+ my @overloads = $meta->get_all_overloaded_operators;
is(scalar(@overloads), 1);
my $plus_meth = $overloads[0];
isa_ok($plus_meth, 'Class::MOP::Method::Overload');
ok($meta->has_overloaded_operator('-'));
- is_deeply([sort $meta->get_overloaded_operators], ['+', '-']);
+ is_deeply([sort $meta->get_overload_list], ['+', '-']);
- is(scalar($meta->get_overload_list), 2);
+ is(scalar($meta->get_all_overloaded_operators), 2);
my $minus_meth = $meta->get_overloaded_operator('-');
isa_ok($minus_meth, 'Class::MOP::Method::Overload');