File Coverage

blib/lib/CGI/Untaint/telephone.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	24	24	100.0

package CGI::Untaint::telephone;

use 5.006001;
use strict;
use warnings;

our $VERSION = '0.03';

use base 'CGI::Untaint::object';

# a rather basic regex for phone numbers here..
# it should really try and guarantee that if there ARE dots and dashes,
# that they can't occur next to each other..
sub _untaint_re {
    return qr/^\+?\d[-\.\d ]{1,24}$/;
}

sub is_valid {
    my $self = shift;
    my $value = $self->value;
    $value =~ s/[-\.\s]//g;
    return $self->value($value);
}

1;
__END__