Branch Coverage

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 445 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 219 65944 unless defined $re
127 18 4 unless $result
130 2 2 if $pref ne '70'