File Coverage

blib/lib/Comparer/file_size.pm

Criterion	Covered	Total	%
statement	8	16	50.0
branch	0	6	0.0
condition	0	2	0.0
subroutine	3	6	50.0
pod	0	2	0.0
total	11	32	34.3

package Comparer::file_size;

use 5.010001;
use strict 'subs', 'vars';
use warnings;

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

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

sub gen_comparer {
    my %args = @_;

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

    sub {
        my @st1 = $follow_symlink ? stat($_[0]) : lstat($_[0]);
        my @st2 = $follow_symlink ? stat($_[1]) : lstat($_[1]);

        (
            $st1[7] <=> $st2[7]
        ) * ($reverse ? -1 : 1)
    };
}

1;
# ABSTRACT: Compare file's size

__END__