File Coverage

blib/lib/Acme/CPANModules/DiffWrappers.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch	4	4	100.0
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	12	12	100.0

package Acme::CPANModules::DiffWrappers;

use strict;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-10-29'; # DATE
our $DIST = 'Acme-CPANModules-DiffWrappers'; # DIST
our $VERSION = '0.004'; # VERSION

require Acme::CPANModules::CLI::Wrapper::UnixCommand;
my $srclist = $Acme::CPANModules::CLI::Wrapper::UnixCommand::LIST;

sub _includes {
    my ($list, $item) = @_;
    ref $list eq 'ARRAY' ? ((grep {$_ eq $item} @$list) ? 1:0) : ($list eq $item);
}

our $LIST = {
    summary => "List of wrappers for the diff Unix command",
    entries => [
        grep { _includes($_->{'x.command'}, 'diff') } @{ $srclist->{entries} }
    ],
};

1;
# ABSTRACT: List of wrappers for the diff Unix command

__END__