File Coverage

blib/lib/Sorter/file_by_size.pm

Criterion	Covered	Total	%
statement	8	20	40.0
branch	0	4	0.0
condition	0	2	0.0
subroutine	3	6	50.0
pod	0	2	0.0
total	11	34	32.3

package Sorter::file_by_size;

use 5.010001;
use strict;
use warnings;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-11-10'; # DATE
our $DIST = 'Sorter-file_by_size'; # DIST
our $VERSION = '0.001'; # VERSION

sub meta {
    return +{
        v => 1,
        summary => 'Sort files by size',
        args => {
            follow_symlink => {schema=>'bool*', default=>1},
            reverse => {schema => 'bool*'},
            #ci => {schema => 'bool*'},
        },
    };
}

sub gen_sorter {
    my %args = @_;

    my $follow_symlink = $args{follow_symlink} // 1;
    my $reverse = $args{reverse};

    sub {
        my @items = @_;
        my @sizes = map { my @st = $follow_symlink ? stat($_) : lstat($_); $st[7] } @items;

        map { $items[$_] } sort {
            $reverse ? $sizes[$b] <=> $sizes[$a] : $sizes[$a] <=> $sizes[$b]
        } 0 .. $#items;
    };
}

1;
# ABSTRACT:

__END__