File Coverage

blib/lib/Data/Validate/WithYAML/Plugin/Phone.pm
Criterion Covered Total %
statement 16 16 100.0
branch 3 4 75.0
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 24 25 96.0


line stmt bran cond sub pod time code
1             package Data::Validate::WithYAML::Plugin::Phone;
2              
3 2     2   44780 use warnings;
  2         4  
  2         63  
4 2     2   11 use strict;
  2         4  
  2         59  
5              
6 2     2   11 use Carp;
  2         7  
  2         421  
7              
8             # ABSTRACT: Plugin to check Phone numbers (basic check)
9              
10             our $VERSION = '0.04';
11              
12              
13             sub check {
14 18     18 1 6795 my ($class, $value) = @_;
15            
16 18 50       43 croak "no value to check" unless defined $value;
17            
18 18         20 my $return = 0;
19 18         69 $value =~ s/\s//g;
20 18 100       81 if( $value =~ m{\A (?: \+ | 00? ) [1-9]{2,6} \s*? [/-]? \s*? [0-9]{4,12} \z}x ){
21 13         19 $return = 1;
22             }
23            
24 18         62 return $return;
25             }
26              
27             1;
28              
29             __END__