File Coverage

buildtools/Number/Phone/BuildTools.pm
Criterion Covered Total %
statement 9 21 42.8
branch 0 4 0.0
condition 0 3 0.0
subroutine 3 6 50.0
pod n/a
total 12 34 35.2


line stmt bran cond sub pod time code
1             package # hah, fooled you PAUSE
2             Number::Phone::BuildTools;
3              
4 1     1   466 use strict;
  1         8  
  1         27  
5 1     1   5 use warnings;
  1         2  
  1         25  
6              
7 1     1   4 use Exporter qw(import);
  1         2  
  1         276  
8             our @ISA = qw(Exporter);
9             our @EXPORT = qw(PM_from_manifest files_from_manifest modules_from_manifest);
10             our $without_uk = 0;
11              
12             sub PM_from_manifest {
13 0 0   0     open(my $manifest, 'MANIFEST') || die("Couldn't open MANIFEST\n");
14             return {
15 0           map { $_ => "blib/$_" }
16             grep {
17 0 0 0       /^lib.*\.pm$/ && (
18             !$without_uk ||
19             $_ !~ /UK/
20             )
21             }
22 0           map { chomp; $_ } <$manifest>
  0            
  0            
23             };
24             }
25              
26 0     0     sub files_from_manifest { return sort keys %{PM_from_manifest()}; }
  0            
27              
28             sub modules_from_manifest {
29             return map {
30 0     0     s/(^lib\/|\.pm$)//g;
  0            
31 0           s/\//::/g;
32 0           $_
33             } files_from_manifest();
34             }
35              
36             1;