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