Prev Next Index | Sort::Maker | Page 8/12 |
sub { sort { do{ my( $left, $right ) = map { $_->[0] } $a, $b; $left cmp $right } || do{ my( $left, $right ) = map { $_->[1] } $a, $b; $left cmp $right } } @_ ; }
Prev Next Index | YAPC::NA 2004, Buffalo, NY | Page 8/12 |
© 2004 Uri Guttman |