Branch Coverage

blib/lib/BibTeX/Parser/Author.pm
Criterion Covered Total %
branch 45 80 56.2


line true false branch
18 65 3 if (@_) { }
28 4 402 if (defined $value) { }
66 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)
93 55 10 if ($start_von > 0)
96 9 56 if ($start_last - $start_von > 0)
103 21 6 if (scalar @comma_separated == 2) { }
118 10 17 if ($start_last > 0)
131 8 57 if ($length == 1)
137 14 116 if (_is_von_token($_[$i]))
142 43 14 if ($start_von == -1)
145 5 9 if ($start_von == $length - 1)
149 9 4 unless (_is_von_token($_[$i]))
163 15 12 if ($length == 1)
168 12 10 unless (_is_von_token($_[$i]))
180 0 0 if (not $name =~ /\{/) { }
187 0 0 if ($2 =~ /\{/) { }
188 0 0 if (scalar $name =~ /\G([^\}]*)\}/cg) { }
194 0 0 if ($cur_token =~ /^{(.*)}$/)
209 0 0 if (@tokens == 0) { }
0 0 elsif (@tokens == 1) { }
0 0 elsif (@tokens == 2) { }
212 0 0 if ($tokens[0] =~ /(^|\s)[[:lower:]]/) { }
217 0 0 $first ? :
223 0 0 $von ? :
226 0 0 if (@name_parts) { }
232 0 0 if (not $tokens[0] =~ /\{/ and $tokens[0] =~ /^((.*)\s+)?\b(\S+)$/) { }
245 0 0 $von ? :
253 0 0 $von ? :
270 46 0 $self->first ? :
271 0 46 $self->von ? :
272 0 46 $self->jr ? :
306 170 0 unless ($string =~ /^&/)
309 5 3 if ($1 eq "{")
313 0 66 if ($symbol eq '{') { }
5 61 elsif ($symbol eq '}') { }
324 165 5 if (length $string) { }
330 25 140 if (uc $symbol ne $symbol) { }