| line |
true |
false |
branch |
|
38
|
2 |
4 |
unless ref $arg eq 'HASH' |
|
42
|
3 |
0 |
exists $$arg{'verbose'} ? : |
|
47
|
3 |
0 |
if (exists $$arg{'local'}) |
|
48
|
3 |
0 |
if (ref $$arg{'local'} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $$arg{'local'} eq 'HASH') { } |
|
69
|
6 |
0 |
if ($$arg{'skipuseline'}) |
|
81
|
0 |
20730 |
if ($skipcounting) |
|
82
|
0 |
0 |
if (/^\s*##\s*STOP_SKIP_TESTCOUNTING/o) |
|
84
|
0 |
0 |
if $verbose_count >= 2 |
|
88
|
0 |
20730 |
if (/^\s*##\s*START_SKIP_TESTCOUNTING/o) |
|
89
|
0 |
0 |
if $verbose_count >= 2 |
|
94
|
18 |
20712 |
if (/^\s*exit;/) |
|
100
|
6 |
20706 |
if /^__DATA__/ or /^__END__/ |
|
102
|
0 |
20706 |
if /\#\#\s*TESTSTOP/ |
|
104
|
1274 |
19432 |
if $lineskip{$line} |
|
107
|
60 |
19372 |
if (/^our \$(TEST_\w+)\s*=\s*(\d+)/) |
|
112
|
0 |
271 |
if (/^}[^;]/ and not /##/ and @sublist) |
|
117
|
234 |
19198 |
if (/^\s*sub\s+([\w:_]+)/) |
|
119
|
0 |
234 |
if $verbose_count >= 3 |
|
120
|
117 |
117 |
unless (exists $subcount{$currentsub}) |
|
128
|
234 |
19198 |
if (/##\s+end of (\S+)/o) { } |
|
|
492 |
18706 |
elsif (/^\s*#/) { } |
|
129
|
0 |
234 |
if $verbose_count >= 3 |
|
139
|
9861 |
9079 |
if (1 == $pass) |
|
142
|
66 |
9795 |
if (/##.*?((?:START_|STOP_)?(?:NO)?(?:TEST|ENV)_\S+.*)/o) |
|
144
|
0 |
66 |
if $verbose_count >= 2 |
|
148
|
63 |
3 |
if ('TEST' eq $type) { } |
|
150
|
0 |
63 |
unless exists $testgroup{$name} |
|
156
|
0 |
66 |
if ($reverse) |
|
157
|
0 |
0 |
$val ? : |
|
159
|
30 |
36 |
if ($startstop eq 'START_') |
|
162
|
30 |
36 |
if ($startstop eq 'STOP_') |
|
165
|
12 |
54 |
unless ($val) |
|
174
|
97 |
549 |
unless ($skipgroup{$group}) |
|
181
|
28 |
9724 |
if (m[##.*TESTCOUNT\s*([\+\*\-/])\s*(\d+)]o) |
|
184
|
1 |
27 |
if (/^\s*;\s*##/o and not $lineskip{$line}) |
|
187
|
0 |
1 |
if ($y eq '*') { } |
|
|
1 |
0 |
elsif ($y eq '-') { } |
|
|
0 |
0 |
elsif ($y eq '/') { } |
|
197
|
673 |
9079 |
if (/^\s*$testwords\s*\(/o) |
|
199
|
0 |
673 |
if $currentsub eq 'MAIN' and $atend |
|
202
|
3 |
670 |
if (exists $linemod{$line}) |
|
204
|
0 |
3 |
if ($y eq '*') { } |
|
|
3 |
0 |
elsif ($y eq '-') { } |
|
|
0 |
0 |
elsif ($y eq '/') { } |
|
209
|
0 |
673 |
if $verbose_count >= 2 |
|
217
|
9079 |
0 |
if (2 == $pass) |
|
222
|
2752 |
493 |
unless exists $subcount{$sub} |
|
223
|
0 |
493 |
if $sub eq $currentsub |
|
225
|
0 |
493 |
if $verbose_count >= 3 |
|
248
|
0 |
24 |
if $verbose_count >= 3 |
|
250
|
0 |
559 |
if $subs{$sub} |
|
252
|
119 |
440 |
if (keys %{$substuff{$sub};}) { } |
|
254
|
0 |
119 |
if $verbose_count >= 3 |
|
257
|
0 |
440 |
if $verbose_count >= 3 |
|
260
|
82 |
239 |
unless exists $subs{$isub} |
|
263
|
0 |
321 |
if $verbose_count >= 3 |
|
264
|
175 |
146 |
if $subitems |
|
268
|
24 |
439 |
if (exists $linemod{$line}) |
|
270
|
24 |
0 |
if ($y eq '*') { } |
|
|
0 |
0 |
elsif ($y eq '-') { } |
|
|
0 |
0 |
elsif ($y eq '/') { } |
|
275
|
460 |
3 |
if ($sub ne 'MAIN' or $line < $lastline) |
|
278
|
0 |
460 |
if $verbose_count >= 3 |
|
282
|
0 |
146 |
if $verbose_count >= 3 |
|
285
|
0 |
559 |
if $verbose_count >= 3 and $subcount{$sub} != $oldscore |
|
288
|
0 |
24 |
if ($loopy++ > 100) |
|
291
|
21 |
3 |
if $stilltodo |
|
294
|
0 |
3 |
if ($verbose_count >= 1) |
|
299
|
0 |
0 |
exists $linemod{$line} ? : |
|
300
|
0 |
0 |
exists $linemod{$line} ? : |
|
301
|
0 |
0 |
exists $linemod{$line} ? : |
|
302
|
0 |
0 |
if length $line > $maxline |
|
303
|
0 |
0 |
if length $count > $maxcount |
|
304
|
0 |
0 |
if length $sub > $maxsub |
|
305
|
0 |
0 |
if length $mod > $maxmod |
|
306
|
0 |
0 |
if length $final > $maxfinal |
|
320
|
0 |
3 |
if $verbose_count >= 1 |