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   14 use Modern::Perl;
  5         4  
  5         14  
6 5     5   407 use Run::Parts::Common;
  5         3  
  5         585  
7              
8             our $VERSION = '0.06_90'; # VERSION generated by DZP::OurPkgVersion
9              
10              
11             sub new {
12 5     5 1 6 my $self = {};
13 5         12 bless($self, shift);
14 5         16 $self->{dir} = shift;
15              
16 5         14 return $self;
17             }
18              
19              
20             sub run_parts_command {
21 26     26 1 43 my $self = shift;
22 26         39 my $rp_cmd = shift;
23              
24 26 100       136 my $command =
25             "/bin/run-parts " .
26             ($rp_cmd ? "'--$rp_cmd'" : '') .
27             " '".$self->{dir}."'";
28              
29 26         53371 return chomped_lines(`$command`);
30             }
31              
32              
33             q<debian/rules>; # End of Run::Parts::Debian
34              
35             __END__
36              
37             =pod
38              
39             =encoding UTF-8
40              
41             =head1 NAME
42              
43             Run::Parts::Debian - Perl interface to Debian's run-parts tool
44              
45             =head1 VERSION
46              
47             version 0.06_90
48              
49             =head1 SYNOPSIS
50              
51             Perl interface to Debian's L<run-parts(8)> tool. L<run-parts(8)> runs
52             all the executable files named within constraints described below,
53             found in the given directory. Other files and directories are
54             silently ignored.
55              
56             Additionally it can just print the names of the all matching files
57             (not limited to executables, but ignores blacklisted files like
58             e.g. backup files), but don't actually run them.
59              
60             This is useful when functionality or configuration is split over
61             multiple files in one directory.
62              
63             This module is not thought to be used directly and its interface may
64             change. See L<Run::Parts> for a stable user interface.
65              
66             =head1 METHODS
67              
68             =head2 new (Constructor)
69              
70             Creates a new L<Run::Parts> object. Takes one parameter, the directory on
71             which run-parts should work.
72              
73             =head2 run_parts_command
74              
75             Returns the L<run-parts(8)> command to run with the given command
76             parameter
77              
78             =head1 SEE ALSO
79              
80             L<Run::Parts>, L<run-parts(8)>
81              
82             =head1 BUGS
83              
84             Please report any bugs or feature requests to C<bug-run-parts at
85             rt.cpan.org>, or through the web interface at
86             L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Run-Parts>. I will
87             be notified, and then you'll automatically be notified of progress on
88             your bug as I make changes.
89              
90             =head1 AUTHOR
91              
92             Axel Beckert <abe@deuxchevaux.org>
93              
94             =head1 COPYRIGHT AND LICENSE
95              
96             This software is copyright (c) 2014 by Axel Beckert.
97              
98             This is free software; you can redistribute it and/or modify it under
99             the same terms as the Perl 5 programming language system itself.
100              
101             =cut