| blib/lib/Number/Phone/JP.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 22 | 28 | 78.5 |
| line | true | false | branch |
|---|---|---|---|
| 16 | 14 | 75 | if (@_) { } |
| 19 | 0 | 15 | unless $package->require |
| 23 | 1 | 443 | if ($TEL_TABLE{$k}) { } |
| 44 | 67 | 15 | if @_ |
| 51 | 0 | 66219 | if (ref $number eq 'ARRAY') { } |
| 0 | 66219 | elsif (defined $_[0]) { } | |
| 66152 | 67 | elsif ($number =~ /^\D*(0\d+)\D(.+)$/) { } | |
| 67 | 0 | elsif ($number =~ s/^\+81//) { } | |
| 74 | 79 | 518 | if ($TEL_TABLE{$pref}) |
| 90 | 0 | 66163 | unless ($self->_prefix or $self->_number) |
| 95 | 0 | 66163 | unless $pref =~ s/^0// |
| 97 | 221 | 65942 | unless defined $re |
| 127 | 18 | 4 | unless $result |
| 130 | 2 | 2 | if $pref ne '70' |