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

package # hah, fooled you PAUSE
    Number::Phone::BuildTools;

use strict;
use warnings;

use Exporter qw(import);
our @ISA = qw(Exporter);
our @EXPORT = qw(PM_from_manifest files_from_manifest modules_from_manifest);
our $without_uk = 0;

sub PM_from_manifest {
    open(my $manifest, 'MANIFEST') || die("Couldn't open MANIFEST\n");
    return {
        map { $_ => "blib/$_" }
        grep {
            /^lib.*\.pm$/ && (
                !$without_uk ||
                $_ !~ /UK/
            )
        }
        map { chomp; $_ } <$manifest>
    };
}

sub files_from_manifest { return sort keys %{PM_from_manifest()}; }

sub modules_from_manifest {
    return map {
        s/(^lib\/|\.pm$)//g;
        s/\//::/g;
        $_
    } files_from_manifest();
}

1;