Help for this page

Select Code to Download


  1. or download this
    my $sort = 'hours'; # really comes from a switch
    
    ...
       ) {
       print join ", ", @$_;
    }
    
  2. or download this
    my %map = (
        hours  => sub {sort { $_[0] <=> $_[0] } };,
    ...
        name   => sub {sort { $_[0] <=> $_[0] } };,
        task   => sub {sort { $_[0] <=> $_[0] } };,
    );