Branch Coverage

blib/lib/Parse/PhoneNumber/ID.pm
Criterion Covered Total %
branch 59 78 75.6


line true false branch
554 1 34 unless ($_Prefix_local)
617 17 18 if ($level >= 6)
625 2 15 if $oldtext ne $text
630 17 18 if ($level >= 6)
635 7 233 defined $diglets->{$1} ? :
641 2 15 if $oldtext ne $text
652 35 0 if ($level >= 1)
661 0 1 if $ind =~ /fax|faks|\bf\b/i
673 2 0 if $ind =~ /fax|faks|\bf\b/i
685 0 1 if $ind =~ /fax|faks|\bf\b/i
698 0 5 if $ind =~ /fax|faks|\bf\b/
703 35 0 if ($level >= 2)
714 0 2 if $ind =~ /fax|faks|\bf\b/i
719 35 0 if ($level >= 2)
729 0 1 if $ind =~ /fax|faks|\bf\b/i
744 0 3 if $ind =~ /fax|faks|\bf\b/i
751 35 0 if ($level >= 3)
770 35 0 if ($level >= 3)
783 35 0 if ($level >= 5)
799 35 0 if ($level >= 5)
815 19 16 if ($level >= 5 and defined $defac)
838 0 9 unless $nums{$a}{'_level'} <=> $nums{$b}{'_level'} or $nums{$b}{'_order'} <=> $nums{$a}{'_order'}
839 1 1 if (defined $args{'max_numbers'} and $args{'max_numbers'} > 0 and @nums > $args{'max_numbers'})
874 120 36 if defined $_
876 3 36 defined $ext && length $ext ? :
885 37 402 if $$textref ne $oldtext
891 32 2 unless $adj
894 0 2 unless abs $first - $adj == 1
904 0 40 unless my($cc, $prefix, $local, $ext) = $num->{'standard'} =~ /^\+(\d+)\.(\d+)\.(\d+)(?:\.ext*(\d+))?$/
910 3 37 if defined $ext
913 38 2 if $cc eq '62'
914 2 38 unless $cc eq '62'
916 21 17 if (length $local >= 8) { }
924 9 29 if (my $c = $cell_prefixes{$prefix}) { }
926 9 0 $c->{'is_gsm'} ? :
927 0 9 $c->{'is_cdma'} ? :
934 27 11 if (my $a = $area_codes{$prefix}) { }
939 1 26 unless ($_fwa_prefixes)
942 18 9 if ($local =~ /^($_fwa_prefixes)/)