File Coverage

blib/lib/Phone/Valid/International/Loose.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition	1	2	50.0
subroutine	8	8	100.0
pod	2	3	66.6
total	31	33	93.9

package Phone::Valid::International::Loose;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.02';

use base 'Import::Export';

our %EX = (
	valid_phone => [qw/all/]
);

our $REGEX;
BEGIN {
	$REGEX = qr/\+(9[976]\d|8[987530]\d|6[987]\d|5[90]\d|42\d|3[875]\d|2[98654321]\d|9[8543210]|8[6421]|6[6543210]|5[87654321]|4[987654310]|3[9643210]|2[70]|7|1)\d{1,14}$/;
}

sub new {
	my ($self, $args) = @_;
	$args ||= {};
	bless $args, $self;
}

sub valid { goto &valid_phone; }

sub valid_phone {
	my $num = $_[1] ? $_[1] : $_[0];
	$num =~ $REGEX;
}

1;

__END__