Branch Coverage

blib/lib/ISO/639.pm
Criterion Covered Total %
branch 3 18 16.6


line true false branch
74 0 0 unless $l =~ //
83 0 0 if $l[$n] =~ /\Aqaa-qtz\Z/
90 0 0 if ($c3 =~ /\A(\w\w\w)\s*\(B\)
(\w\w\w)\s+\(T\)\Z/)
99 0 0 unless length $c3 == 3
100 0 0 unless length $c2 == 2 or not $c2
104 0 0 if ($c2)
3370 0 1 if eval "eof(${p}::DATA)"
3372 0 1 if $@
3374 0 1 if $@