File Coverage

blib/lib/Run/Parts.pm

Criterion	Covered	Total	%
statement	40	42	100.0
branch	9	10	100.0
condition	6	6	100.0
subroutine	11	11	100.0
pod	6	6	100.0
total	72	75	100.0

package Run::Parts;

# ABSTRACT: Offers functionality of Debian's run-parts tool in Perl

use Modern::Perl;

use File::Slurp 9999.17;
use Run::Parts::Common;

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


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

    my $backend = shift;
    if (defined $backend) {
        if (ref $backend) {
            $self->{backend} = ref($backend)->new($self->{dir});
        } elsif ($backend eq 'debian' or $backend eq 'run-parts') {
            use Run::Parts::Debian;
            $self->{backend} = Run::Parts::Debian->new($self->{dir});
        } elsif ($backend eq 'perl' or $backend eq 'module') {
            use Run::Parts::Perl;
            $self->{backend} = Run::Parts::Perl->new($self->{dir});
        } else {
            warn "Unknown backend $backend in use";
            require $backend;
            # uncoverable statement
            $self->{backend} = $backend->new($self->{dir});
        }
    } else {
        # uncoverable branch false
        if (-x '/bin/run-parts') {
            $self->{backend} = Run::Parts::Debian->new($self->{dir});
        } else {
            # uncoverable statement
            $self->{backend} = Run::Parts::Perl->new($self->{dir});
        }
    }

    return $self;
}


sub run_parts_command {
    my $self = shift;
    return $self->{backend}->run_parts_command(@_);
}


sub list {
    my $self = shift;
    return $self->run_parts_command('list');
}


sub test {
    my $self = shift;
    return $self->run_parts_command('test');
}


sub run {
    my $self = shift;
    return $self->run_parts_command();
}


sub concat {
    my $self = shift;
    return lines(map { read_file($_, { chomp => 1 }) } $self->list());
}


42; # End of Run::Parts

__END__