File Coverage

blib/lib/String/Normal/Type/Phone.pm

Criterion	Covered	Total	%
statement	20	22	90.9
branch	3	6	50.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	30	35	85.7

package String::Normal::Type::Phone;
use strict;
use warnings;

use String::Normal::Config::AreaCodes;

our $codes;

sub transform {
    my ($self,$value) = @_;

    # Replace phone letters with numbers and remove non-digits (credit Ray Toal)
    $value =~ tr/a-z/22233344455566677778889999/;
    $value =~ s/\D//g;

    # remove any leading 1 from 11 digit number
    $value =~ /^1\d{10}$/ and substr( $value, 0, 1 ) = '';

    if (length($value) != 10) {
        die "invalid length";
    }

    # validate area code (first digit cannot be 1 or 0)
    my $areacode_first = substr $value, 0, 1;
    if ($areacode_first < 2) {
        die "invalid area code";
    }

    return $value;
}

sub new {
    my $self = shift;
    $codes = String::Normal::Config::AreaCodes::_data( @_ );
    return bless {@_}, $self;
}

1;

__END__