view release on metacpan or  search on metacpan

lib/BuzzSaw/DataSource/Files.pm  view on Meta::CPAN

161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
    my $sorter;
    if ( $1 eq 'asc' ) {
        $sorter = sub { $a->[1] <=> $b->[1] }; 
    } else {
        $sorter = sub { $b->[1] <=> $a->[1] }; 
    }
 
    # Schwartzian transform for efficient sorting
    @files = map  { $_->[0] }
             sort $sorter
             map  { [ $_, (stat($_))[7] ] } keys %files;
 
} elsif ( $order_by =~ m/^name_(asc|desc)$/ ) {
 
    if ( $1 eq 'asc' ) {
        @files = sort { $a cmp $b } keys %files;
    } else {
        @files = sort { $b cmp $a } keys %files;
    }
 
} else {