File Coverage

blib/lib/String/Validator/Phone/NANP.pm

Criterion	Covered	Total	%
statement	88	89	98.8
branch	15	16	93.7
condition	2	3	66.6
subroutine	19	19	100.0
pod	9	9	100.0
total	133	136	97.7

package String::Validator::Phone::NANP;
$String::Validator::Phone::NANP::VERSION = '2.04';
use 5.008;
use strict;
use warnings;
use String::Validator::Common 2.01;
use Number::Phone 3.9001;

# ABSTRACT: Validate North American Phone Numbers


my $phonenanp_messages = {
    phonenanp_not10 => sub {
        my $D = shift; # num1, num2, len
        return "Not a 10 digit Area-Number $D->{num1} .. $D->{num2} = $D->{len}.";
    },
    phonenanp_badarea => 'Invalid Number, perhaps non-existent Area Code',
};

sub new {
    my $class = shift ;
    my $self = { @_ } ;
    use base ( 'String::Validator::Common' ) ;
    unless ( defined $self->{ alphanum } ) { $self->{ alphanum } = 0 } ;
    # disable length checking.
    $self->{ min_len } = 0 ; $self->{ max_len } = 0 ;
    bless $self, $class ;
    $self->{messages}
        = String::Validator::Common::_Messages(
                $phonenanp_messages, $self->{language}, $self->{custom_messages} );
    return $self ;
}

# Private method to change to area-exchange-num format.

sub _clean {
    my $num = uc( shift @_ ) ;
    my $alphanum = shift @_ ;
    if ( $alphanum ) {
        $num =~ s/\W//g ;
        $num =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/22233344455566677778889999/ ;
        }
    else { $num =~ s/\D//g ; }
    $num =~ s/^1// ;
    my $area = substr( $num, 0, 3, '' ) ;
    my $exch = substr( $num, 0, 3, '' ) ;
    return qq /$area-$exch-$num/ ;
}

# North American Numbers have a length of 10.
# Returns 1 if this is true 0 and increases err if not.
sub _must_be10 {
    my $self = shift ;
    my $num = shift ;
    my $num2 = $num ;
    $num2 =~ s/\W//g ;
    my $l = length $num2 ;
    if ( 10 == $l ) { return 1 }
    else { $self->IncreaseErr(
        $self->{messages}{phonenanp_not10}->({
            num1 => $num, num2 => $num2, len => $l }));
        }
    return 0 ;
}

sub _Init  {
    my $self = shift ;
	$self->{ error } = 0 ;
	for ( qw / string original international errstring areacode exchange local /) {
		$self->{ $_ } = '' ; }
    } ;

sub _AreaOK {
  my $self = shift;
  my $ac = shift;
  if ( $ac =~ /\d11/ or $ac < 200 ) {
    $self->IncreaseErr(
        $self->{messages}{phonenanp_badarea} );
    return 0;
  } else { return 1 }
}

sub Check {
    my ( $self, $string1, $string2 ) = @_ ;
    if ( $self->Start( $string1, $string2 ) ) {
        return $self->{ error } }
    $self->{ string } = &_clean( $string1, $self->{alphanum} ) ;
    unless( $self->_must_be10( $self->{ string } ) ) {
        $self->{ string } = '' ; return $self->{ error } }
    $self->{ original } = $string1 ;
    #Number::Phone requires a leading 1.;
    ( $self->{ areacode }, $self->{ exchange }, $self->{ local } ) =
            split /\-/, $self->{ string };
    $self->{ international } = '1-' . $self->{ string } ;
    $self->_AreaOK( $self->{ areacode });
    my $Phone = Number::Phone->new( $self->{ international } ) ;
    unless ( $Phone ) {
        $self->IncreaseErr( $self->{messages}{phonenanp_badarea} ) }
    return $self->{ error } ;
}

# sub String # is inherited from String::Validator::Common.

sub Original { my $self = shift ; return $self->{ original } ; } ;

sub Areacode {
	my $self = shift ;
	return ( $self->{ areacode } ) ;
	}

sub Exchange {
	my $self = shift ;
	return ( $self->{ exchange } ) ;
	}

sub Local {
	my $self = shift ;
	return ( $self->{ local } ) ;
	}

sub International { my $self = shift ; return $self->{ international } }

sub Parens {
	my $self = shift ;
	my $area = $self->Areacode() ;
	my $exchange = $self->Exchange() ;
	my $local = $self->Local() ;
	return "($area) $exchange-$local" ;
	}

sub Number_Phone {
	my $self = shift ;
	unless( $self->{ international } ) { return 0 } ;
	return Number::Phone->new( $self->{ international } ) ;
	}


1; # End of String::Validator::Phone::NANP

__END__