Help for this page

Select Code to Download


  1. or download this
    >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;"

>
  2. or download this
    >perl -we"() = sort { die } 1"

...
Died at -e line 1.

>