1use v5.10.0; 2 3{ package C1; sub c1 { } our @ISA = qw(C2) } 4{ package C2; sub c2 { } our @ISA = qw(C3) } 5{ package C3; sub c3 { } our @ISA = qw( ) } 6{ package C4; sub c4 { } our @ISA = qw( ) } 7{ package C5; sub c5 { } our @ISA = qw(C1 C4) } 8 9my $obj = bless {}, 'C5'; 10$main::global = bless {}, 'C5'; 11 12$DB::single = 1; 13 14say "Done."; 15