File Coverage

blib/lib/Form/Processor/Field/USPhone.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	2	4	50.0
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	22	24	91.6

package Form::Processor::Field::USPhone;
$Form::Processor::Field::USPhone::VERSION = '1.162360';
use strict;
use warnings;
use base 'Form::Processor::Field::Text';


sub validate {
    my $self = shift;

    return unless $self->SUPER::validate;

    my $input = $self->input;

    $input =~ s/\D//g;

    return $self->add_error( 'Phone Number must be 10 digits, including area code' )
        unless length $input == 10;

    return 1;
}


# ABSTRACT: Validate that the input looks like a US phone number






1;

__END__