File Coverage

blib/lib/Number/Phone/Lib.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch	6	6	100.0
condition			n/a
subroutine	3	3	100.0
pod	1	1	100.0
total	22	22	100.0

package Number::Phone::Lib;

use strict;
use base 'Number::Phone';

our $VERSION = '1.0';

sub new {
    my $class = shift;
    my($country, $number) = $class->_new_args(@_);
    return undef unless $country;

    # libphonenumber erroneously treats non-geographic numbers such
    # as 1-800 numbers as being in the US
    $country = 'US' if($country eq 'NANP');
    $country = 'GB' if($country eq 'UK');

    return $class->_make_stub_object($number, $country);
}

1;
__END__