| line |
true |
false |
branch |
|
42
|
0 |
10 |
$_[0] >= $_[1] ? : |
|
43
|
2 |
14 |
$_[0] <= $_[1] ? : |
|
74
|
183 |
164 |
unless ($match =~ /^\s*$/) |
|
78
|
21 |
167 |
if (/^[.]$/) |
|
84
|
3 |
164 |
if (/^\(/) |
|
86
|
0 |
3 |
if ($tok =~ /(?:^$|[LP]$)/) |
|
98
|
44 |
120 |
if (/^['"]/) |
|
100
|
5 |
39 |
if ($tok =~ /(?:^$|[LP]$)/) |
|
112
|
7 |
113 |
if (/^[=]?\d+/) |
|
119
|
0 |
113 |
if (/^[=]\(/) |
|
126
|
15 |
98 |
if (/^[-+]\d+/) |
|
132
|
3 |
95 |
if (/^[-+]\(/) |
|
140
|
95 |
0 |
if (/^\S+$/) |
|
147
|
39 |
144 |
if ($tok =~ /L$/) { } |
|
|
95 |
49 |
elsif ($tok =~ /V$/) { } |
|
|
28 |
21 |
elsif (not $tok =~ /v$/) { } |
|
150
|
0 |
39 |
if ($@) |
|
155
|
0 |
95 |
if ($@) |
|
160
|
0 |
28 |
if ($@) |
|
167
|
0 |
19 |
unless $matchpos == length $template |
|
170
|
3 |
16 |
if ($tok =~ /[PL]$/) |
|
201
|
12 |
11 |
if (/^[Vv]$/) { } |
|
|
8 |
3 |
elsif (/^R$/) { } |
|
|
3 |
0 |
elsif (/^N$/) { } |
|
207
|
0 |
8 |
if (@tvars > 1) |
|
217
|
6 |
2 |
if ($$value[$i] =~ /^[+]/) { } |
|
219
|
1 |
5 |
if (not $i > 0) { } |
|
229
|
2 |
0 |
if ($i > 0) |
|
237
|
6 |
2 |
if $cur > $max |
|
241
|
0 |
3 |
if (@tvars > 1) |
|
251
|
3 |
0 |
if ($pos < eval $$value[$i]) { } |
|
253
|
0 |
3 |
if (not $i > 0) { } |
|
263
|
0 |
0 |
if ($i > 0) |
|
271
|
3 |
0 |
if $cur > $max |
|
275
|
2 |
0 |
if (@tvars) |
|
284
|
0 |
12 |
if (defined $vars[$n] and $vars[$n] eq '.') |
|
316
|
35 |
25 |
if (/^[Vv]$/) { } |
|
322
|
11 |
14 |
if (/^[PL]$/) { } |
|
|
4 |
10 |
elsif (/^[Nn]$/) { } |
|
|
7 |
3 |
elsif (/^R$/) { } |
|
|
3 |
0 |
elsif (/^r$/) { } |
|
325
|
10 |
1 |
if (/L$/) { } |
|
327
|
4 |
6 |
substr($$type, $i + 1) =~ /^[Vv]*[Rr]/ ? : |
|
333
|
1 |
0 |
substr($$type, $i + 1) =~ /^[Vv]*[Rr]/ ? : |
|
356
|
5 |
2 |
if ($$value[$i] > 0) { } |
|
387
|
6 |
19 |
if (@tvars > 1) { } |
|
|
3 |
16 |
elsif (@tvars == 0) { } |
|
402
|
2 |
3 |
if (@tvars > 1) |
|
412
|
5 |
35 |
if (defined $vars[$n] and $vars[$n] eq '.') |
|
447
|
5 |
21 |
$$value[$n] eq '.' ? : |
|
449
|
4 |
0 |
if (@$value > 1) |
|
453
|
1 |
3 |
$$value[-1] eq '.' ? : |
|
481
|
28 |
41 |
if substr($$type, $i, 1) =~ /^[LP]$/ |
|
487
|
41 |
28 |
if (/^[Vv]$/) { } |
|
490
|
28 |
13 |
if /^[V]$/ |
|
498
|
0 |
4 |
substr($tvars, $nv, 1) eq 'v' ? : |
|
501
|
4 |
24 |
if @tvars > 1 |
|
502
|
9 |
19 |
substr($tvars, -1, 1) eq 'v' ? : |
|
511
|
6 |
0 |
if (@tvars) |
|
517
|
1 |
2 |
substr($tvars, $nv, 1) eq 'v' ? : |
|
519
|
1 |
5 |
if @tvars > 1 |
|
520
|
3 |
3 |
substr($tvars, -1, 1) eq 'v' ? : |
|
556
|
1 |
18 |
if (/^[^V]+$/) |
|
563
|
1 |
17 |
if (/^[V]$/) |
|
571
|
4 |
13 |
if (/^[Vv]+$/) |
|
578
|
2 |
11 |
if (/^[VvRN]+$/) |
|
585
|
6 |
5 |
if (/^[VvPL]+$/) |
|
592
|
5 |
0 |
if (/^[VvNnRrPL]+$/) |
|
603
|
0 |
19 |
if $String::RexxParse::debug |
|
606
|
0 |
19 |
if ($@) |
|
649
|
1 |
26 |
if (ref $obj) |
|
663
|
0 |
0 |
if (exists $parser{$template}) |
|
676
|
0 |
4 |
if $str =~ /^quotemeta\(.*\)$/ |
|
679
|
0 |
4 |
if $first =~ /\$|\\/ |
|
681
|
0 |
4 |
if ($rest) { } |
|
695
|
1 |
28 |
if $str =~ /^quotemeta\(.*\)$/ |
|
698
|
3 |
25 |
if $first =~ /\$|\\/ |
|
700
|
6 |
22 |
if ($rest) { } |
|
714
|
1 |
28 |
if $str =~ /^quotemeta\(.*\)$/ |
|
717
|
3 |
25 |
if $first =~ /\$|\\/ |