Branch Coverage

blib/lib/Number/Phone/Country.pm
Criterion Covered Total %
branch 31 32 96.8


line true false branch
15 136 3 if (lc $param eq 'noexport') { }
2 1 elsif (lc $param eq 'uk') { }
19 1 136 if ($export)
167 3 5568 unless substr($phone, 0, 1) =~ /[1+]/
171 1485 4086 if ($phone =~ /^1(\d{3})\d{7}$/) { }
174 772 27316 if ($area =~ /^($NANP_areas{$country})$/x)
182 4077 30943 if (exists $Number::Phone::Country::idd_codes{$idd})
184 732 3345 if (ref $country eq "ARRAY")
188 16 994 if ($@) { }
646 348 elsif ($class->new('+' . $phone)) { }
192 3 643 $country_code eq 'GB' && $use_uk ? :
209 4088 62 if $country =~ /^[a-z]{2}$/i
211 1 4149 unless my $data = $Number::Phone::Country::prefix_codes{$country}
219 1 244 unless my $data = $Number::Phone::Country::prefix_codes{$country}
227 0 239 unless my $data = $Number::Phone::Country::prefix_codes{$country}
235 1 239 unless my $data = $Number::Phone::Country::prefix_codes{$country}