File Coverage

blib/lib/App/FileTestUtils.pm

Criterion	Covered	Total	%
statement	9	27	33.3
branch	0	12	0.0
condition	0	4	0.0
subroutine	3	4	75.0
pod	0	1	0.0
total	12	48	25.0

package App::FileTestUtils;

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

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-11-30'; # DATE
our $DIST = 'App-FileTestUtils'; # DIST
our $VERSION = '0.005'; # VERSION

use Getopt::Long qw(:config auto_help auto_version gnu_getopt no_ignore_case);

sub do_script {
    require File::Util::Test;
    my ($func) = @_;

    (my $script = $func) =~ s/_/-/g;

    my $opt_grep_mode;
    my $opt_invert_match;
    GetOptions(
        "grep-mode|g" => \$opt_grep_mode,
        "invert-match|v" => \$opt_invert_match,
    ) or die "$script: Error in processing command-line options, exiting\n";

    if ($opt_grep_mode) {
        my @files = @ARGV;
        unless (@files) { chomp(@files = ) }
        for my $file (@files) {
            if (&{"File::Util::Test::$func"}($file) xor $opt_invert_match) { print $file, "\n" }
        }
        exit 0;
    } else {
        unless (@ARGV == 1) {
            die "Usage: $script \n";
        }
        exit(&{"File::Util::Test::$func"}($ARGV[0]) ? 0:1);
    }
}

1;
# ABSTRACT: More CLIs for file testing

__END__