Help for this page

Select Code to Download


  1. or download this
    $ perl -Mstrict -Mwarnings -E '
my $passes = {
...
t2
t5
$
  2. or download this
       sort {
           $a->[ 1 ] <=> $b->[ 1 ]
           ||
           $a->[ 1 ] ? 0 : $a->[ 2 ] <=> $b->[ 2 ]
        }
  3. or download this
       sort {
           $a->[ 1 ] <=> $b->[ 1 ]
           ||
           ( $a->[ 1 ] ? 0 : $a->[ 2 ] <=> $b->[ 2 ] )
        }