| 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
|
79031 |
84 |
$i > 0 ? : |
|
171
|
79031 |
84 |
$i < length $string ? : |
|
173
|
0 |
79115 |
if $apostr |
|
175
|
3 |
79112 |
if (not $QUOTED || $COMMENTED and $token eq q['] and not $quotes and not $apostr) { } |
|
|
2 |
79110 |
elsif (not $QUOTED || $COMMENTED and $token eq '[' and not $ignore) { } |
|
|
2 |
79108 |
elsif (not $QUOTED and $COMMENTED and $token eq ']' and not $ignore) { } |
|
|
3 |
79105 |
elsif ($QUOTED and not $COMMENTED and $token eq q['] and substr($string, $i, 2) ne q[''] and not $quotes and not $apostr) { } |
|
194
|
18 |
78980 |
if (not $QUOTED and $token eq ' ' and not $whitespace) |
|
197
|
79077 |
16 |
unless $COMMENTED |
|
198
|
104 |
78989 |
if (not $QUOTED || $COMMENTED and substr($string, $i, 1) eq ';') |
|
232
|
104 |
16628 |
unless defined $token and defined $remainder |
|
239
|
104 |
0 |
if $tokens[$i] eq ';' |
|
254
|
25265 |
205040 |
if ($tokens[$i] eq '(') { } |
|
|
2033 |
203007 |
elsif ($tokens[$i] eq ',' and $depth == 1) { } |
|
|
25265 |
177742 |
elsif ($tokens[$i] eq ')') { } |
|
255
|
1907 |
23358 |
if (not defined $depth) { } |
|
274
|
1907 |
23358 |
if ($depth == 0) |
|
293
|
1800 |
10032 |
if ($clade[$i] eq ')') { } |
|
|
2029 |
8003 |
elsif ($i == 0) { } |
|
302
|
0 |
3637 |
if (defined $tail[-1] and $tail[-1] =~ /(\[.+\])$/ and scalar @tail != 1) |
|
309
|
317 |
3512 |
if (scalar @tail == 1) { } |
|
|
245 |
3267 |
elsif (scalar @tail == 2) { } |
|
|
3075 |
192 |
elsif (scalar @tail == 3) { } |
|
334
|
69450 |
16732 |
$i > 0 ? : |
|
335
|
86078 |
104 |
$i < length $string ? : |
|
337
|
0 |
86182 |
if $apostr |
|
342
|
267 |
85915 |
if ($ignore and $token =~ /\[$/) |
|
345
|
267 |
85915 |
if ($ignore and $token =~ /\]$/) |
|
349
|
16628 |
69287 |
if (not $QUOTED || $COMMENTED and $token =~ /$TOKEN_DELIMITER/) |
|
351
|
9486 |
7142 |
if ($length == 1) { } |
|
365
|
3 |
69284 |
if (not $QUOTED || $COMMENTED and substr($string, $i, 1) eq q['] and not $apostr) { } |
|
|
3 |
69281 |
elsif ($QUOTED and not $COMMENTED and substr($string, $i, 1) eq q['] and substr($string, $i, 2) ne q[''] and not $apostr) { } |