Branch Coverage

blib/lib/Biblio/bp/lib/bp-p-utils.pl
Criterion Covered Total %
branch 16 140 11.4


line true false branch
70 0 0 if ($revauthor and $name =~ /,/)
71 0 0 if ($name =~ s/[, ]+([sj]r\.?|I+)$//i)
80 0 0 defined $jrn ? :
84 0 0 if ($jrn =~ / /)
86 0 0 if defined $rest
87 0 0 unless defined $jrn
111 0 0 if ($jrn)
112 0 0 if ($jrn =~ /^(et\.? ?al\.?)|(others)$/i)
116 0 0 if ($jrn =~ /^inc[\.]?$/i)
121 0 0 if ($lastn =~ /^(et ?al)|(others)$/i)
156 0 0 unless defined $name
162 0 0 if ($name =~ s/[, ]+([sj]r\.?|I+)$//i)
167 0 0 if ($revauthor and $name =~ /,/)
171 0 0 if ($name =~ /,/ and not $name =~ /,\240/)
173 0 0 unless ($revauthor)
174 0 0 if ($jrn) { }
177 0 0 if (defined $newname) { }
184 0 0 if $jrn
189 0 0 if ($name =~ / /) { }
195 0 0 if ($first =~ / ([a-z].*)$/)
218 0 0 if ($opt_complex > 1)
221 0 0 if ($jrn =~ /^Inc\.$/i)
269 0 120 unless defined $cname
270 0 120 unless defined $how
277 0 304 if ($how =~ /^bibtex/) { }
304 0 elsif ($how =~ /^plain/) { }
0 0 elsif ($how =~ /^reverse2/) { }
0 0 elsif ($how =~ /^reverse/) { }
0 0 elsif ($how =~ /^lname1/) { }
282 0 0 if ($jr) { }
0 0 elsif ($last =~ /\S\s+\S/ and not $last =~ /^{.*}$/) { }
292 4 300 if $von
293 300 4 if $last
294 0 304 if $jr
298 0 0 if $first or $von or $jr
299 0 0 if $first
300 0 0 if $von
301 0 0 if $jr
305 0 0 if $first or $jr
306 0 0 if $jr
310 0 0 if $jr
311 0 0 if ($namenum == 1) { }
312 0 0 if $von
313 0 0 if ($first) { }
332 0 120 if (wantarray) { }
336 120 0 if ($how =~ /lname1|plain/) { }
337 64 56 if (@names <= 2) { }
390 0 0 unless defined $date
401 0 0 if (not $month =~ /\S/) { }
0 0 elsif (not defined $year and $month eq $date) { }
428 22 30 if $month =~ m[[\d/\-]]
434 0 30 unless defined $month_table{$canm}
444 0 0 unless defined $outm
446 0 0 if ($how eq 'short' and length $outm > 4)
458 0 0 unless defined $how
460 0 0 if (defined $mo) { }
462 0 0 if (defined $yr) { }
468 0 0 if defined $yr
487 0 0 if (defined $cent{'Authors'})
489 0 0 if (defined $cent{'CorpAuthor'})
491 0 0 if (defined $cent{'Editors'})
493 0 0 if (defined $cent{'Publisher'})
495 0 0 if (defined $cent{'Organization'})
504 0 0 if ($keytype eq 'author') { }
0 0 elsif ($keytype eq 'org') { }
511 0 0 if $split_sep >= $[
523 0 0 if length $key > 14
526 0 0 if (defined $cent{'Year'} and $cent{'Year'} =~ /(\d\d\d\d)/) { }
0 0 elsif (defined $cent{'Month'} and $cent{'Month'} =~ /(\d\d\d\d)/) { }
571 0 0 if (defined $glb_keyreg{$rkey}) { }