| line |
true |
false |
branch |
|
100
|
1 |
0 |
if (ref $arg) { } |
|
101
|
0 |
1 |
unless read $arg, $BIBL, $Biblio::Document::Parser::Brody::MAX_SIZE |
|
106
|
0 |
1 |
unless length $BIBL |
|
116
|
0 |
1 |
if (%HEADERS) { } |
|
119
|
0 |
0 |
if ($HEADERS{$regexp} > 3) { } |
|
121
|
0 |
0 |
if $Biblio::Document::Parser::Brody::DEBUG |
|
123
|
0 |
0 |
if $Biblio::Document::Parser::Brody::DEBUG |
|
126
|
0 |
1 |
if $Biblio::Document::Parser::Brody::DEBUG |
|
149
|
0 |
0 |
if ++$c == 5 |
|
150
|
0 |
0 |
if ($c >= 5) |
|
151
|
0 |
0 |
if $Biblio::Document::Parser::Brody::DEBUG |
|
152
|
0 |
0 |
if @REFS = &style_numbered_square($BIBL) |
|
158
|
0 |
0 |
if ++$c == 5 |
|
159
|
0 |
0 |
if ($c >= 5) |
|
160
|
0 |
0 |
if $Biblio::Document::Parser::Brody::DEBUG |
|
162
|
0 |
0 |
if @REFS = &style_numbered($BIBL) |
|
168
|
0 |
0 |
if ++$c == 5 |
|
169
|
0 |
0 |
if ($c >= 5) |
|
170
|
0 |
0 |
if $Biblio::Document::Parser::Brody::DEBUG |
|
171
|
0 |
0 |
if @REFS = &style_years($BIBL) |
|
185
|
0 |
0 |
unless my $ref = $REFS[$i] |
|
190
|
0 |
0 |
if defined $_ |
|
245
|
0 |
0 |
if ($$ref =~ /$Biblio::Document::Parser::Brody::RE_EOR/im or $$ref =~ /^\s*acknowledgements:/im) |
|
250
|
0 |
0 |
if ($$ref =~ /(?:\s*\n){3,}/s) |
|
254
|
0 |
0 |
if (length $$ref > 1024) |
|
267
|
0 |
0 |
if ($REFS[$i] =~ /^\d+\./) { } |
|
269
|
0 |
0 |
if ($val != $i / 2 + 1) { } |
|
277
|
0 |
0 |
if (end_of_references(\$REFS[$i - 1])) |
|
297
|
0 |
0 |
unless my(@REFS) = split(/^\s*\[(\d+)\]/m, $', 0) |
|
298
|
0 |
0 |
unless $REFS[0] |
|
310
|
0 |
0 |
if (length $REFS[$i] > 1024) |
|
322
|
0 |
0 |
if $n > $max |
|
323
|
0 |
0 |
if ($n == $last + 1) { } |
|
370
|
0 |
0 |
if (not @REFS or length $REFS[0] > 300) { } |
|
377
|
0 |
0 |
if (end_of_references(\$REFS[$i])) { } |
|
|
0 |
0 |
elsif ($REFS[$i] =~ /^\s* {5}|\t/m) { } |
|
386
|
0 |
0 |
if (end_of_references(\$REFS[$i])) |
|
402
|
0 |
0 |
unless (@REFS) |
|
409
|
0 |
0 |
if (not $REFS[$i - 1] =~ /\S/ and $REFS[$i] =~ /^\s{40}/) |
|
419
|
0 |
0 |
if (length $l < 30 or length $l < 50 and not $REFS[$i] =~ /^$Biblio::Document::Parser::Brody::RE_NAME_LIST_CHARS{10,40}[^\d\-](\d{4})[^\d\-]/s) |
|
430
|
0 |
0 |
if ($REFS[$i] =~ /^\D{10,50}19|20\d{2}/s) { } |
|
435
|
0 |
0 |
if ($lc == 3) |
|
444
|
0 |
0 |
if (length $l > 100 and not $REFS[$i] =~ /\d/) |