6 use Test::More tests => 3;
11 sub new { bless {} => shift }
13 package OverloadingTest;
16 use overload '+' => sub { die "called plus operator in OT" },
19 package InheritingFromOverloadedTest;
20 use base 'OverloadingTest';
22 use overload '+' => sub { die "called plus operator in IFOT" },
27 use base 'OverloadingTest';
31 use base 'InheritingFromOverloadedTest';
36 use overload '+' => sub { die "called plus operator in Foo" },
42 use overload '+' => sub { die "called plus operator in Bar" },
50 Class::C3::initialize();
54 like($@, qr/no method found,/);
56 my $y = IFIFOT->new();
58 like($@, qr/called plus operator in IFOT/);
62 like($@, qr/no method found,/);