File Coverage

blib/lib/Run/Parts/Debian.pm
Criterion Covered Total %
statement 14 14 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod 2 2 100.0
total 22 22 100.0


line stmt bran cond sub pod time code
1             package Run::Parts::Debian;
2              
3             # ABSTRACT: Perl interface to Debian's run-parts tool
4              
5 5     5   30 use Modern::Perl;
  5         9  
  5         39  
6 5     5   696 use Run::Parts::Common;
  5         10  
  5         1067  
7              
8             our $VERSION = '0.08'; # VERSION generated by DZP::OurPkgVersion
9              
10              
11             sub new {
12 5     5 1 25 my $self = {};
13 5         17 bless($self, shift);
14 5         31 $self->{dir} = shift;
15              
16 5         26 return $self;
17             }
18              
19              
20             sub run_parts_command {
21 26     26 1 68 my $self = shift;
22 26         78 my $rp_cmd = shift;
23              
24 26 100       212 my $command =
25             "/bin/run-parts " .
26             ($rp_cmd ? "'--$rp_cmd'" : '') .
27             " '".$self->{dir}."'";
28              
29 26         345180 return chomped_lines(`$command`);
30             }
31              
32              
33             q; # End of Run::Parts::Debian
34              
35             __END__