6 use Test::More tests => 4;
15 sub new { bless {} => shift }
17 package OverloadingTest;
20 use overload '+' => sub { die "called plus operator in OT" },
23 package InheritingFromOverloadedTest;
24 use base 'OverloadingTest';
26 use overload '+' => sub { die "called plus operator in IFOT" },
31 use base 'OverloadingTest';
35 use base 'InheritingFromOverloadedTest';
40 use overload '+' => sub { die "called plus operator in Foo" },
46 use overload '+' => sub { die "called plus operator in Bar" },
54 Class::C3::initialize();
58 like($@, qr/no method found,/);
60 my $y = IFIFOT->new();
62 like($@, qr/called plus operator in IFOT/);
66 like($@, qr/no method found,/);