File Coverage

blib/lib/Run/Parts/Perl.pm

Criterion	Covered	Total	%
statement	40	40	100.0
branch	1	2	100.0
condition	2	2	100.0
subroutine	10	10	100.0
pod	6	6	100.0
total	59	60	100.0

package Run::Parts::Perl;

# ABSTRACT: Pure Perl implementation of Debian's run-parts tool

use Modern::Perl;
use autodie;
use Taint::Util;
use Run::Parts::Common;

our $VERSION = '0.08'; # VERSION generated by DZP::OurPkgVersion


# On DOS and Windows, run-parts' regular expressions are not really
# applicable. Allow an arbitrary alphanumerical suffix there.
my $win_suffix = dosish() ? qr/\.[a-z0-9]+/i : qr'';
my $file_re = qr/^[-A-Za-z0-9_]+($win_suffix)?$/;


sub new {
    my $self = {};
    bless($self, shift);
    $self->{dir} = shift;

    return $self;
}


sub run_parts_command {
    my $self = shift;
    my $rp_cmd = shift // 'run';

    my @result = $self->$rp_cmd(@_);

    return lines(@result);
}


sub list {
    my $self = shift;
    my $dir = $self->{dir};

    opendir(my $dh, $dir);
    my @list = sort map {
        # $dir can neither be '' nor undef, hence no check necessary
        "$dir/$_";
    } grep {
        /$file_re/
    } readdir($dh);
}


sub test {
    my $self = shift;
    my $dir = $self->{dir};

    return grep { -x } $self->list($dir);
}


sub run {
    my $self = shift;
    my $dir = $self->{dir};

    return map {
        my $command = $_;
        untaint($command);
        # uncoverable branch true
        $command =~ s(/)(\\)g if dosish();
        my $output = `$command`;
        chomp($output);
        $output;
    } $self->test($dir);
}


sub dosish {
    return $^O =~ /^(dos|os2|MSWin32)$/;
}


qr/\.d$/; # End of Run::Parts::Perl

__END__