File Coverage

blib/lib/Number/Phone/UK/Data.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	8	8	100.0
condition	3	3	100.0
subroutine	8	8	100.0
pod	0	2	0.0
total	48	50	96.0

package Number::Phone::UK::Data;

use warnings;
use strict;

use Number::Phone;

our $VERSION = "2.0002";

use Data::CompactReadonly;
use File::ShareDir;

my $file = Number::Phone::_find_data_file('Number-Phone-UK-Data.db');

my $slurped = 0;
my $db;
my $pid = -1;

sub db {
    return $db if($slurped);
    if(!$db || $pid != $$) {
        # we want to re-open the DB if we've forked, because of
        # https://github.com/DrHyde/perl-modules-Number-Phone/issues/72
        $pid = $$;
        $db = Data::CompactReadonly->read($file, tie => 1, fast_collections => 1);
    }
    return $db
}

sub slurp {
    return if($slurped);
    $db = _slurp(db());
    $slurped++;
}

sub _slurp {
    my $db = shift;
    if(!ref($db)) {
        return $db
    } else {
        return { map {
            $_ => _slurp($db->{$_})
        } keys(%{$db}) };
    }
}

1;