File Coverage

blib/lib/Run/Parts/Common.pm
Criterion Covered Total %
statement 14 14 100.0
branch 6 6 100.0
condition n/a
subroutine 5 5 100.0
pod 2 2 100.0
total 27 27 100.0


line stmt bran cond sub pod time code
1             package Run::Parts::Common;
2              
3             # ABSTRACT: Common helpers for Run::Parts and its backends
4              
5 5     5   35 use Modern::Perl;
  5         10  
  5         47  
6 5     5   5431 use Exporter::Easy ( EXPORT => [qw[lines chomped_lines]] );
  5         7986  
  5         40  
7 5     5   656 use Scalar::Util qw(blessed);
  5         13  
  5         1134  
8              
9             our $VERSION = '0.08'; # VERSION generated by DZP::OurPkgVersion
10              
11              
12             sub lines {
13             # Sanity check
14 65 100   65 1 4525 die "lines is no method" if blessed $_[0];
15              
16 64 100       4339 return wantarray ? @_ : join("\n", @_)."\n";
17             }
18              
19              
20             sub chomped_lines {
21             # Sanity check
22 27 100   27 1 4976 die "chomped_lines is no method" if blessed $_[0];
23              
24 26         306 chomp(@_);
25 26         500 return lines(@_);
26             }
27              
28              
29              
30              
31             23; # End of Run::Parts::Common
32              
33             __END__