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