File Coverage

blib/lib/SortKey/Num/file_size.pm

Criterion	Covered	Total	%
statement	8	15	53.3
branch	0	6	0.0
condition	0	2	0.0
subroutine	3	6	50.0
pod	0	2	0.0
total	11	31	35.4

package SortKey::Num::file_size;

use 5.010001;
use strict;
use warnings;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-11-10'; # DATE
our $DIST = 'SortKey-Num-file_size'; # DIST
our $VERSION = '0.001'; # VERSION

sub meta {
    return +{
        v => 1,
        args => {
            follow_symlink => {schema=>'bool*', default=>1},
        },
    };
}

sub gen_keygen {
    my %args = @_;

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

    sub {
        my $arg = @_ ? shift : $_;
        my @st = $follow_symlink ? stat($arg) : lstat($arg);
        @st ? $st[7] : undef;
    }
}

1;
# ABSTRACT: File size as sort key

__END__