| line |
true |
false |
branch |
|
86
|
27 |
81 |
if ($id1_exists and $id2_exists) { }
|
|
91
|
30 |
51 |
$id1_exists ? :
|
|
92
|
64 |
17 |
if (defined $dist or defined $distp)
|
|
95
|
24 |
57 |
unless defined $id
|
|
96
|
17 |
64 |
unless defined $dist
|
|
125
|
1 |
103 |
if ($ids)
|
|
133
|
0 |
104 |
if ($self->_args->{'-label'})
|
|
138
|
0 |
0 |
unless $n->get_name
|
|
170
|
76520 |
84 |
$i > 0 ? :
|
|
171
|
76520 |
84 |
$i < length $string ? :
|
|
173
|
0 |
76604 |
if $apostr
|
|
175
|
3 |
76601 |
if (not $QUOTED || $COMMENTED and $token eq q['] and not $quotes and not $apostr) { }
|
|
|
2 |
76599 |
elsif (not $QUOTED || $COMMENTED and $token eq '[' and not $ignore) { }
|
|
|
2 |
76597 |
elsif (not $QUOTED and $COMMENTED and $token eq ']' and not $ignore) { }
|
|
|
3 |
76594 |
elsif ($QUOTED and not $COMMENTED and $token eq q['] and substr($string, $i, 2) ne q[''] and not $quotes and not $apostr) { }
|
|
194
|
18 |
76469 |
if (not $QUOTED and $token eq ' ' and not $whitespace)
|
|
197
|
76566 |
16 |
unless $COMMENTED
|
|
198
|
104 |
76478 |
if (not $QUOTED || $COMMENTED and substr($string, $i, 1) eq ';')
|
|
232
|
104 |
15899 |
unless defined $token and defined $remainder
|
|
239
|
104 |
0 |
if $tokens[$i] eq ';'
|
|
254
|
21185 |
172157 |
if ($tokens[$i] eq '(') { }
|
|
|
1952 |
170205 |
elsif ($tokens[$i] eq ',' and $depth == 1) { }
|
|
|
21185 |
149020 |
elsif ($tokens[$i] eq ')') { }
|
|
255
|
1826 |
19359 |
if (not defined $depth) { }
|
|
274
|
1826 |
19359 |
if ($depth == 0)
|
|
293
|
1719 |
9546 |
if ($clade[$i] eq ')') { }
|
|
|
1948 |
7598 |
elsif ($i == 0) { }
|
|
302
|
0 |
3475 |
if (defined $tail[-1] and $tail[-1] =~ /(\[.+\])$/ and scalar @tail != 1)
|
|
309
|
317 |
3350 |
if (scalar @tail == 1) { }
|
|
|
245 |
3105 |
elsif (scalar @tail == 2) { }
|
|
|
2913 |
192 |
elsif (scalar @tail == 3) { }
|
|
334
|
67344 |
16003 |
$i > 0 ? :
|
|
335
|
83243 |
104 |
$i < length $string ? :
|
|
337
|
0 |
83347 |
if $apostr
|
|
342
|
267 |
83080 |
if ($ignore and $token =~ /\[$/)
|
|
345
|
267 |
83080 |
if ($ignore and $token =~ /\]$/)
|
|
349
|
15899 |
67181 |
if (not $QUOTED || $COMMENTED and $token =~ /$TOKEN_DELIMITER/)
|
|
351
|
9081 |
6818 |
if ($length == 1) { }
|
|
365
|
3 |
67178 |
if (not $QUOTED || $COMMENTED and substr($string, $i, 1) eq q['] and not $apostr) { }
|
|
|
3 |
67175 |
elsif ($QUOTED and not $COMMENTED and substr($string, $i, 1) eq q['] and substr($string, $i, 2) ne q[''] and not $apostr) { }
|