File Coverage

blib/lib/FormValidator/Simple/Plugin/Number/Phone/JP.pm
Criterion Covered Total %
statement 13 13 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 19 20 95.0


line stmt bran cond sub pod time code
1             package FormValidator::Simple::Plugin::Number::Phone::JP;
2              
3 2     2   378293 use strict;
  2         5  
  2         76  
4 2     2   1845 use Number::Phone::JP;
  2         731837  
  2         17  
5 2     2   31509 use FormValidator::Simple::Constants;
  2         5  
  2         457  
6              
7             our $VERSION = '0.04';
8             our @CARP_NOT = qw(Number::Phone::JP);
9              
10             sub NUMBER_PHONE_JP {
11 26     26 0 45559 my ($self, $params, $args) = @_;
12 26         50 my $data = $params->[0];
13             #return FALSE unless $data;
14            
15 26         104 my $tel = Number::Phone::JP->new($data);
16 26 100       832 return $tel->is_valid_number ? TRUE : FALSE;
17             }
18              
19              
20             1;
21             __END__