Branch Coverage

blib/lib/File/FormatIdentification/Pronom.pm
Criterion Covered Total %
branch 50 106 47.1


line true false branch
41 0 50262 unless (defined $regex)
43 23442 26820 if (not defined $rx) { }
49 0 26820 unless (defined $local_regex)
52 18453 8367 if ($pos_diff > 0) { }
8367 0 elsif (0 == $pos_diff) { }
54 3900 14553 if (scalar @rx_groups > 0 and $rx_groups[0]{'position'} == $rx->{'position'} or $pos_diff > 1) { }
129 4983 0 if (defined $minoffset and length $minoffset > 0)
132 3678 1305 if (defined $maxoffset and length $maxoffset > 0)
137 4953 30 if ($maxtmp >= $mintmp) { }
150 4983 0 if (defined $minoffset and length $minoffset > 0)
158 1299 4794 if ($maxtmp > $maxresidual) { }
0 4794 elsif ($maxtmp < 0) { }
165 108 5985 if ($mintmp > $minresidual) { }
297 5688 elsif ($mintmp < 0) { }
173 4983 1110 if ($i == 0) { }
189 921 elsif ($i == $maxloops) { }
182 27 6066 if (defined $maxstr and $maxstr > 0 and $minstr > $maxstr) { }
193 1305 4788 if (not defined $maxoffset or length $maxoffset == 0)
196 0 6093 if (not defined $minoffset or length $minoffset == 0)
216 21729 5091 if (defined $minoffset and length $minoffset > 0 and defined $maxoffset and length $maxoffset > 0 and $minoffset == $maxoffset) { }
108 4983 elsif (!defined($minoffset) || length $minoffset == 0 and !defined($maxoffset) || length $maxoffset == 0) { }
222 4245 17484 if ($minoffset > 0)
259 6480 12183 if ($fq->localname eq 'LeftFragment') { }
12183 0 elsif ($fq->localname eq 'RightFragment') { }
301 471 7686 if (not defined $direction or length $direction == 0) { }
6885 801 elsif ($direction eq 'BOFoffset') { }
801 0 elsif ($direction eq 'EOFoffset') { }
339 276 6852 if (not defined $reference or 0 == length $reference) { }
6051 801 elsif ($reference eq 'BOFoffset') { }
801 0 elsif ($reference eq 'EOFoffset') { }
449 0 0 if (defined $signatureid)
459 0 0 if (exists $found_signature_ids{$priority_over_sid})
541 0 0 if (defined $sig)
551 0 0 if (defined $sig)
560 0 0 unless (defined $id)
574 0 0 unless (defined $internalid)
590 0 0 unless (defined $internalid)
592 0 0 if (defined $value)
599 0 0 unless (defined $internalid)
612 0 0 unless (defined $internalid)
684 0 0 if (exists $uniq_regexes{$rx})
693 0 0 unless (defined $sigid)
701 0 0 if (0 == scalar @ints) { }
730 0 0 if (defined $best_quality_internal)
750 0 0 if (defined $worst_quality_internal)
807 0 0 unless open my $FH, ">>", "$csv_file"
808 0 0 unless ($file_exists)
815 0 0 unless (defined $result)
841 0 0 if (defined $verbose)
847 0 0 if (defined $verbose)
859 0 0 if (defined $verbose)
869 0 0 if (defined $verbose)
881 0 0 if (defined $verbose)