>perl -we"@hierarchy = qw(EEBL::League::Schedule); () = sort { $a->isa($b) ? -1 : $b->isa($a) ? +1 : 0 } @hierarchy;"

>perl -we"@hierarchy = qw(EEBL::Team EEBL EEBL::Config); () = sort { $a->isa($b) ? -1 : $b->isa($a) ? +1 : 0 } @hierarchy;"

>