| line |
true |
false |
branch |
|
91
|
3 |
298 |
unless open my $fh, '<', $f |
|
92
|
1 |
297 |
if $b |
|
100
|
1 |
600 |
unless open my $fh, '<', $f |
|
104
|
92 |
1231 |
if ($l =~ s/\\$//) |
|
106
|
79 |
13 |
unless eof $fh |
|
109
|
8 |
1236 |
unless length $l |
|
110
|
13 |
1223 |
if $l =~ /^#/ |
|
125
|
12321 |
88224 |
unless ($tlen += length $$rtok[$i]) < $slen |
|
138
|
56 |
1295 |
$i > $sidx && $$rtok[$i] eq '.' && substr($$rtok[$i - 1], 0, 1) eq q['] && $$rtok[$i + 1] =~ /^'..$/ ? : |
|
|
831 |
1351 |
$tlen > $slen ? : |
|
|
573 |
18267 |
$i > $sidx + 1 && $$rtok[$i - 1] eq '.' && substr($$rtok[$i], 0, 1) eq q['] && substr($$rtok[$i - 2], 0, 1) eq q['] ? : |
|
|
2182 |
16658 |
unless ($tlen += length($$rtok[$i]) - ($i > $sidx + 1 && $$rtok[$i - 1] eq '.' && substr($$rtok[$i], 0, 1) eq q['] && substr($$rtok[$i - 2], 0, 1) eq q['] ? ${$fcompact;} = 3 : 0)) < $slen |
|
146
|
433 |
2878 |
if ($i > $sidx + 1 and $$rtok[$i - 1] eq '.' and substr($$rtok[$i], 0, 1) eq q['] and substr($$rtok[$i - 2], 0, 1) eq q[']) { } |
|
164
|
5450 |
36913 |
if ($$rtok[$i] eq '.') { } |
|
|
3739 |
33174 |
elsif ($$rtok[$i] eq '(') { } |
|
|
2950 |
30224 |
elsif (substr($$rtok[$i], 0, 1) eq '$') { } |
|
|
12666 |
17558 |
elsif ($$rtok[$i] =~ /^['"]/) { } |
|
168
|
12176 |
490 |
if length $$rtok[$i] == 3 |
|
171
|
0 |
6364 |
if $tlen >= $slen |
|
174
|
234 |
6130 |
if $idot >= 0 and not $d % 3 |
|
175
|
1709 |
780 |
if (not $d & 1 and $iquote >= 0 || $idollar >= 0) |
|
176
|
262 |
1447 |
if $iquote < 0 |
|
183
|
2330 |
0 |
$d == 1 ? : |
|
|
2330 |
2091 |
if $i3quote >= 0 |
|
184
|
887 |
1204 |
unless $d == 1 |
|
186
|
513 |
691 |
if $iparen >= 0 |
|
189
|
322 |
369 |
$$rtok[$eidx] ne '=' && $$rtok[$sidx + $n] =~ /^['"]/ ? : |
|
195
|
196 |
1766 |
if ($i > $sidx + 1 and $$rtok[$i - 1] eq '.' and substr($$rtok[$i], 0, 1) eq q['] and substr($$rtok[$i - 2], 0, 1) eq q[']) { } |
|
212
|
232 |
4 |
length $_ ? : |
|
215
|
785 |
785 |
if $i & 1 |
|
218
|
29 |
6 |
if ($rem or not $nshape) |
|
220
|
20 |
9 |
if length $tfill |
|
226
|
231 |
3 |
if ($r) |
|
228
|
757 |
757 |
if ($i & 1) { } |
|
230
|
11 |
746 |
if not length $tfill and $p >= $txtend |
|
238
|
24 |
8 |
if $n >= $nshape |
|
261
|
1 |
90 |
if $nfv > @filleqto |
|
263
|
1 |
89 |
if $rem |
|
273
|
4403 |
204 |
length $_ ? : |
|
276
|
11615 |
11750 |
if $i & 1 |
|
279
|
79 |
9 |
if ($prog) |
|
280
|
69 |
10 |
if ($prog =~ /^''=~/g) { } |
|
|
7 |
3 |
elsif ($prog =~ /(.*eval.*\n\n\n)/g) { } |
|
281
|
69 |
0 |
$tlines =~ /(\S+)/ ? : |
|
|
1 |
68 |
($tlines =~ /(\S+)/ ? length $1 : 0) == 3 ? : |
|
289
|
76 |
12 |
ref $fillv ? : |
|
296
|
204 |
7571 |
unless ($rline) |
|
298
|
20540 |
20405 |
unless ($it & 1) |
|
299
|
2799 |
17606 |
if (my $tlen = $$rline[$it]) == (my $plen = length $ptok[$sidx]) |
|
301
|
3103 |
14503 |
if ($plen > $tlen) |
|
304
|
1784 |
1319 |
if $sidx < $iendprog |
|
308
|
2182 |
12321 |
$compact ? : |
|
311
|
8576 |
5927 |
if ($fexact) |
|
312
|
167 |
8409 |
$fcompact ? : |
|
317
|
72 |
6292 |
$fcompact ? : |
|
320
|
5108 |
819 |
if ($n) |
|
322
|
0 |
819 |
if $n >= $tlen |
|
327
|
345 |
474 |
if $sidx < $iendprog |
|
332
|
87 |
83 |
if $sidx >= $iendprog |
|
335
|
85 |
2 |
if $eidx >= 0 |
|
336
|
4 |
83 |
if $sidx == $iendprog or $sidx == $iendprog + 1 |
|
337
|
0 |
83 |
if $eidx < 0 |
|
338
|
7 |
3 |
length $fillv ? : |
|
|
10 |
73 |
unless ref $fillv |
|
340
|
0 |
73 |
unless (my $idx = rindex($outstr, ';')) >= 0 |
|
341
|
3 |
70 |
unless my(@t) = substr($outstr, $idx + 1) =~ /[()&|^=;]|\$.|'[^'\\]*(?:\\.[^'\\]*)*'|"[^"\\]*(?:\\.[^"\\]*)*"/g |
|
346
|
110 |
295 |
if ($c eq '(') { } |
|
|
60 |
235 |
elsif ($c eq ')') { } |
|
|
62 |
173 |
elsif ($c eq '=') { } |
|
349
|
29 |
41 |
if ($ne == 0 or $nl != $nr or $t[-1] eq '=') { } |
|
|
23 |
18 |
elsif ($t[-1] eq '|' or $t[-1] eq '^' or $t[-1] eq '&') { } |
|
352
|
121 |
140 |
$f eq '#' ? : |
|
|
261 |
1831 |
unless substr($outstr, $i, 1) =~ tr/\n // |
|
373
|
80 |
270 |
if length $l > $m |
|
375
|
0 |
1 |
if $gl or $gr or $gt or $gb |
|
376
|
0 |
2 |
if $wl or $wr or $wt or $wb |
|
383
|
16 |
81 |
if length $l > $m |
|
392
|
45 |
234 |
if length $l > $m |
|
400
|
3 |
1 |
if $n > $ml |
|
403
|
35 |
64 |
if length $l > $m |
|
431
|
3 |
11 |
if $degrees == 180 |
|
433
|
10 |
1 |
$rtype == 0 ? : |
|
|
1 |
10 |
$rtype == 1 ? : |
|
435
|
152 |
384 |
if length $l > $m |
|
437
|
7 |
4 |
if ($degrees == 90) { } |
|
|
4 |
0 |
elsif ($degrees == 270) { } |
|
438
|
6 |
1 |
unless $flip |
|
443
|
1 |
3 |
if $flip |
|
452
|
4 |
1 |
unless $w & 1 |
|
|
3 |
2 |
if $w < 9 |
|
459
|
4 |
4 |
if $w < 3 |
|
461
|
2280 |
1944 |
$n & $_ ? : |
|
471
|
1 |
0 |
unless -x $b_exe |
|
472
|
0 |
0 |
$w ? : |
|
480
|
0 |
0 |
if $rc |
|
485
|
0 |
0 |
if length $1 < $m |
|
486
|
0 |
0 |
if $m |
|
512
|
68 |
6 |
unless exists $builtin_shapes{$shape} |
|
541
|
1 |
438 |
unless exists $arg{$k} |
|
544
|
1 |
96 |
if length $arg{'SourceFile'} and $arg{'SourceHandle'} |
|
546
|
1 |
95 |
if length $arg{'SourceFile'} and length $arg{'SourceString'} |
|
548
|
1 |
94 |
if length $arg{'SourceString'} and $arg{'SourceHandle'} |
|
550
|
1 |
93 |
if $arg{'Shape'} and $arg{'ShapeString'} |
|
552
|
12 |
81 |
if (length $arg{'SourceFile'}) { } |
|
|
5 |
76 |
elsif ($arg{'SourceHandle'}) { } |
|
558
|
79 |
13 |
if (ref $fill and not $arg{'Text'}) |
|
560
|
2 |
77 |
$arg{'SourceString'} =~ /^\s*END\b/m || $arg{'SourceString'} =~ /^\s*package\b/m ? : |
|
|
79 |
0 |
unless @{$fill;} |
|
565
|
1 |
91 |
if $arg{'RemoveNewlines'} |
|
567
|
0 |
4 |
$arg{'Binary'} ? : |
|
|
2 |
1 |
$arg{'Binary'} ? : |
|
|
4 |
3 |
$arg{'Regex'} ? : |
|
|
66 |
5 |
$arg{'Regex'} ? : |
|
|
7 |
71 |
$arg{'Print'} ? : |
|
|
78 |
14 |
if length $arg{'SourceString'} and not $arg{'Text'} |
|
576
|
19 |
73 |
if ($arg{'ShapeString'}) { } |
|
|
61 |
12 |
elsif ($arg{'Shape'}) { } |
|
|
11 |
1 |
elsif ($arg{'Width'}) { } |
|
584
|
1 |
10 |
if not $arg{'Text'} and $arg{'Width'} < 4 |
|
588
|
1 |
89 |
unless $shape |
|
589
|
11 |
78 |
if $arg{'Rotate'} |
|
591
|
3 |
86 |
if $arg{'Reflect'} |
|
592
|
2 |
87 |
if $arg{'Reduce'} |
|
593
|
2 |
87 |
if $arg{'Expand'} |
|
594
|
1 |
88 |
if $arg{'Invert'} |
|
595
|
0 |
84 |
if $arg{'TrailingSpaces'} or $arg{'BorderGap'} or $arg{'BorderWidth'} or $arg{'BorderGapLeft'} or $arg{'BorderWidthLeft'} or $arg{'BorderGapRight'} or $arg{'BorderWidthRight'} or $arg{'BorderGapTop'} or $arg{'BorderWidthTop'} or $arg{'BorderGapBottom'} or $arg{'BorderWidthBottom'} |
|
610
|
1 |
88 |
if ($arg{'Indent'}) |
|
612
|
4 |
85 |
if $arg{'Text'} |
|
623
|
1 |
14 |
unless opendir my $dh, $d |
|
632
|
5 |
595 |
unless -f $f |
|
640
|
1 |
101 |
unless my $p = _get_eye_properties($d, $s) |
|
641
|
12 |
89 |
unless exists $$p{'keywords'} |
|
642
|
1 |
88 |
unless my(@k) = split(' ', $$p{'keywords'}, 0) |
|
650
|
1 |
7 |
unless @_ |
|
654
|
3 |
398 |
unless my $p = _get_eye_properties($d, $s) |
|
655
|
47 |
351 |
unless exists $$p{'keywords'} |
|
656
|
3 |
348 |
unless my(@k) = split(' ', $$p{'keywords'}, 0) |
|
660
|
326 |
62 |
unless grep exists($h{$_}), @{$k;} |