Branch Coverage

blib/lib/BibTeX/Parser/Author.pm
Criterion Covered Total %
branch 44 78 56.4


line true false branch
20 65 3 if (@_) { }
30 4 402 if (defined $value) { }
67 6 92 unless (length $name)
74 0 92 if (scalar @comma_separated == 0)
84 65 27 if (scalar @comma_separated == 1)
88 0 65 unless (scalar @tokens)
92 55 10 if ($start_von > 0)
95 9 56 if ($start_last - $start_von > 0)
102 21 6 if (scalar @comma_separated == 2) { }
117 10 17 if ($start_last > 0)
130 8 57 if ($length == 1)
136 14 116 if (_is_von_token($_[$i]))
141 43 14 if ($start_von == -1)
144 5 9 if ($start_von == $length - 1)
148 9 4 unless (_is_von_token($_[$i]))
162 15 12 if ($length == 1)
167 12 10 unless (_is_von_token($_[$i]))
179 0 0 if (not $name =~ /\{/) { }
186 0 0 if ($2 =~ /\{/) { }
187 0 0 if (scalar $name =~ /\G([^\}]*)\}/cg) { }
193 0 0 if ($cur_token =~ /^{(.*)}$/)
208 0 0 if (@tokens == 0) { }
0 0 elsif (@tokens == 1) { }
0 0 elsif (@tokens == 2) { }
211 0 0 if ($tokens[0] =~ /(^|\s)[[:lower:]]/) { }
216 0 0 $first ? :
222 0 0 $von ? :
225 0 0 if (@name_parts) { }
231 0 0 if (not $tokens[0] =~ /\{/ and $tokens[0] =~ /^((.*)\s+)?\b(\S+)$/) { }
244 0 0 $von ? :
252 0 0 $von ? :
269 46 0 $self->first ? :
270 0 46 $self->von ? :
271 0 46 $self->jr ? :
294 5 3 if ($1 eq "{")
298 0 66 if ($symbol eq '{') { }
5 61 elsif ($symbol eq '}') { }
308 165 5 if (length $string) { }
310 25 140 if (lc $symbol eq $symbol) { }