Coverage Summary

# 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