Branch Coverage

blib/lib/ISO/639/3.pm
Criterion Covered Total %
branch 69 148 46.6


line true false branch
102 0 0 if $ISO::639::3::opt_h
104 0 0 $ISO::639::3::opt_m ? :
0 0 $ISO::639::3::opt_3 ? :
0 0 $ISO::639::3::opt_2 ? :
106 0 0 if ($type eq 'name' and @converted) { }
112 0 0 unless $ISO::639::3::opt_n
128 0 0 if $_[0] eq 'iso639-1'
129 0 0 if $_[0] eq 'iso639-3'
130 0 0 if $_[0] eq 'macro'
142 0 0 if exists $TwoToName{$_[0]}
143 0 0 if exists $ThreeToTwo{$_[0]}
144 0 0 if exists $NameToTwo{lc $_[0]}
145 0 0 if exists $TwoToThree{$_[0]}
148 0 0 if (exists $ThreeToMacro{$_[0]})
150 0 0 if exists $ThreeToTwo{$ThreeToMacro{$_[0]}}
154 0 0 if $code =~ s/[\-\_].*$//
155 0 0 if $code ne lc $code
156 0 0 if $_[1]
167 0 0 if exists $ThreeToName{$_[0]}
168 0 0 if exists $TwoToThree{$_[0]}
169 0 0 if exists $NameToThree{lc $_[0]}
170 0 0 if exists $ThreeToThree{$_[0]}
173 0 0 if $code =~ s/[\-\_].*$//
174 0 0 if $code ne lc $code
175 0 0 if $_[1]
189 0 0 if exists $ThreeToMacro{$code}
200 0 0 if exists $TwoToName{$_[0]}
201 0 0 if exists $ThreeToName{$_[0]}
202 0 0 if exists $NameToThree{$_[0]}
203 0 0 if $_[0] =~ s/[\-\_].*$//
204 0 0 if $_[0] ne lc $_[0]
224 3 6 unless $_
226 1 5 if ($f[1] eq 'Part2B') { }
1 4 elsif ($f[0] eq 'M_Id') { }
1 3 elsif ($f[0] eq 'NS_Id') { }
1 2 elsif ($f[0] eq 'C_Id') { }
1 1 elsif ($f[0] eq 'URI') { }
1 0 elsif ($f[4] eq 'Ret_Remedy') { }
253 1 352 unless $_
255 0 352 unless $f[0]
256 335 17 unless (exists $ThreeToThree{$f[0]})
258 185 150 $f[3] ? :
268 1 453 unless $_
270 0 453 unless $f[0]
281 1 65 unless $_
283 0 65 unless $f[0]
284 65 0 unless (exists $ThreeToThree{$f[0]})
286 1 64 if ($f[1])
289 1 0 if ($f[2])
294 65 0 if ($f[2])
307 1 15 unless $_
309 0 15 unless $f[0]
310 11 4 unless (exists $ThreeToThree{$f[0]})
311 0 11 $f[1] ? :
312 9 2 if ($f[2])
315 9 2 if $f[3]
316 11 0 if ($f[4])
320 15 0 if ($f[4])
321 15 0 unless exists $NameToThree{$f[4]}
322 13 2 if ($f[2])
323 13 0 unless exists $NameToTwo{$f[4]}
326 13 2 if ($f[2])
327 10 3 unless exists $TwoToThree{$f[2]}
328 13 0 if ($f[4])
329 10 3 unless exists $TwoToName{$f[2]}
339 1 7867 unless $_
341 0 7867 unless $f[0]
345 184 7683 if ($f[3])
351 420 7447 if ($f[1])
354 183 237 if ($f[3])
358 420 7447 if ($f[2])
361 183 237 if ($f[3])
373 0 115 unless $_
376 0 115 unless $f[0]