| line |
true |
false |
branch |
|
15
|
7 |
20 |
if ($] < "5.006" and not defined &warnings::import) |
|
404
|
0 |
0 |
if (defined $file and $file ne "" and $file ne "-e" and $file ne "-") |
|
405
|
0 |
0 |
if (-f $file) |
|
407
|
0 |
0 |
if (@violations) |
|
426
|
0 |
10 |
if ($@) |
|
442
|
0 |
394 |
unless defined $file and $file ne "" |
|
459
|
5 |
389 |
if ($cm =~ /\buse\s+List::Util\b([^;]+);/s) |
|
461
|
1 |
4 |
if $args =~ /\bany\b/ |
|
462
|
1 |
4 |
if $args =~ /\ball\b/ |
|
472
|
111 |
3413640 |
if ($mline =~ /$pattern/) |
|
487
|
1 |
393 |
$listutil_any_imported ? : |
|
488
|
1 |
393 |
$listutil_all_imported ? : |
|
499
|
4 |
9 |
if $pre =~ /\bsub\s+$/ |
|
500
|
1 |
8 |
if $pre =~ /->\s*$/ |
|
501
|
4 |
4 |
if ($word eq 'any' and $check_any) { } |
|
|
2 |
3 |
elsif ($word eq 'all' and $check_all) { } |
|
535
|
3 |
2837 |
if ($c eq '(') { } |
|
|
132 |
2705 |
elsif ($c eq ')') { } |
|
|
133 |
5141 |
elsif ($c eq ',' and $depth == 1) { } |
|
546
|
6 |
123 |
if ($commas >= 2) |
|
566
|
393 |
0 |
if $quant eq "++" |
|
569
|
0 |
0 |
if $before =~ /\$\w+$/ |
|
570
|
0 |
0 |
if $before =~ /\@\w+$/ |
|
586
|
0 |
0 |
if ($cmline =~ /$pattern/) |
|
612
|
39 |
27249 |
if ($body_text =~ /$pattern/) |
|
633
|
9152 |
6818160 |
if ($ch eq "#") |
|
635
|
0 |
9152 |
if $end == -1 |
|
640
|
3998 |
6814162 |
if ($ch eq "\"") |
|
646
|
9280 |
6804882 |
if ($ch eq "'") |
|
681
|
43 |
998591 |
if ($ch eq "\n" and @pending_heredocs) |
|
688
|
48 |
0 |
if ($remain =~ /^\Q$sentinel\E[\t ]*\r?\n/m) { } |
|
|
0 |
0 |
elsif ($remain =~ /^\Q$sentinel\E[\t ]*\r?\z/m) { } |
|
706
|
34 |
10718 |
if ($ch eq "_" and $pos == 0 || substr($src, $pos - 1, 1) eq "\n") |
|
707
|
23 |
11 |
if (substr($src, $pos, 7) eq "__END__" or substr($src, $pos, 8) eq "__DATA__") |
|
716
|
9 |
10210 |
if (not $in_pod and $ch eq "=" and $pos == 0 || substr($src, $pos - 1, 1) eq "\n") |
|
718
|
5 |
4 |
if ($nxt =~ /^=(head|over|item|back|pod|begin|end|for|encoding)\b/) |
|
722
|
313443 |
685125 |
if ($in_pod) |
|
723
|
1079 |
597 |
if ($ch eq "=" and $pos == 0 || substr($src, $pos - 1, 1) eq "\n") |
|
724
|
5 |
1074 |
if (substr($src, $pos, 4) eq "=cut") |
|
726
|
0 |
5 |
if $end2 == -1 |
|
733
|
7699 |
305739 |
$ch eq "\n" ? : |
|
739
|
6236 |
678889 |
if ($ch eq "#") |
|
741
|
1 |
6235 |
if $end == -1 |
|
748
|
2104 |
676785 |
if ($ch eq "\"") |
|
756
|
4996 |
671789 |
if ($ch eq "'") |
|
763
|
4996 |
0 |
$pos + 1 < $len ? : |
|
764
|
5 |
4991 |
if ($out =~ /[\$\@\%\&\*]\w*\z/ and $nextc =~ /[A-Za-z_]/) |
|
782
|
9 |
671780 |
if ($ch eq "`") |
|
790
|
2577 |
669203 |
if ($ch eq "q" and $pos + 1 < $len) |
|
792
|
441 |
2136 |
if ($nxt =~ /^[qwx]$/ and $pos + 2 < $len) { } |
|
|
42 |
2094 |
elsif ($nxt =~ m"^[\{\(\[/\|!<]$") { } |
|
794
|
394 |
47 |
if ($d =~ /\S/) |
|
816
|
50 |
483 |
if ($ch eq "<" and $pos + 1 < $len and substr($src, $pos + 1, 1) eq "<") |
|
818
|
48 |
2 |
if ($rest =~ /\A(<<\s*([\"']?)(\w+)\2)/) |
|
835
|
376412 |
294884 |
unless ($out =~ /[\w\$\@\%*&:]\z/) |
|
837
|
1093 |
375319 |
if ($rest =~ /\A(qr|m(?!y(?:\b|\s*=>))|s(?!ub(?:\b|\s*\{))|tr|y)\s*([^\w\s#])/s) |
|
842
|
1093 |
0 |
if (substr($rest, length $op) =~ /\A(\s*)([^\w\s#])/s) |
|
857
|
1082 |
11 |
unless $op eq "tr" or $op eq "y" |
|
861
|
11 |
307 |
if ($op eq "s" or $op eq "tr" or $op eq "y") |
|
864
|
36 |
750 |
if ($delim ne $close) |
|
866
|
36 |
0 |
if ($gap =~ /\A(\s*)([^\w\s])/s) |
|
879
|
1093 |
0 |
if (substr($src, $pos) =~ /\A([msixpgeodualncrs]*)/s) |
|
885
|
4 |
1089 |
if ($flags =~ /r/) |
|
886
|
3 |
1 |
if ($op eq 's') { } |
|
|
1 |
0 |
elsif ($op eq 'tr' or $op eq 'y') { } |
|
906
|
1522 |
668681 |
if ($ch eq "/" and $out =~ /(?:=~|!~|[=(,\{\[!&|;]|\b(?:if|while|unless|until|not|and|or|return|split|grep|map))\s*\z/s) |
|
916
|
1522 |
0 |
if (substr($src, $pos) =~ /\A([msixpgeodualn]*)/s) |
|
942
|
3593517 |
130449498 |
if substr($str, $p, 1) eq "\n" |
|
961
|
7578 |
58356 |
if ($c eq "\\" and $pos < $slen) |
|
966
|
7805 |
50551 |
if ($paired) { } |
|
967
|
28 |
7777 |
if $c eq $open |
|
968
|
185 |
7620 |
if $c eq $close |
|
969
|
157 |
7648 |
if $depth == 0 |
|
972
|
3244 |
47307 |
if $c eq $close |
|
986
|
26884 |
715636 |
if ($ch eq '\\') { } |
|
|
6092 |
709544 |
elsif ($ch eq '"') { } |
|
|
12181 |
697363 |
elsif ($ch eq "\n") { } |
|
987
|
26884 |
0 |
$pos + 1 < $len ? : |
|
988
|
0 |
26884 |
$nx eq "\n" ? : |
|
1011
|
6482 |
1148081 |
if ($ch eq '\\') { } |
|
|
14255 |
1133826 |
elsif ($ch eq q[']) { } |
|
|
26441 |
1107385 |
elsif ($ch eq "\n") { } |
|
1012
|
6482 |
0 |
$pos + 1 < $len ? : |
|
1013
|
528 |
5954 |
$nx eq q['] || $nx eq '\\' ? : |
|
1037
|
827 |
20129 |
if ($ch eq '\\') { } |
|
|
48 |
20081 |
elsif ($open ne $close and $ch eq $open) { } |
|
|
493 |
19588 |
elsif ($ch eq $close) { } |
|
|
290 |
19298 |
elsif ($ch eq "\n") { } |
|
1058
|
15 |
2024 |
'<' eq $o ? : |
|
|
1 |
2039 |
'[' eq $o ? : |
|
|
279 |
2040 |
'(' eq $o ? : |
|
|
339 |
2319 |
'{' eq $o ? : |
|
1066
|
7 |
2 |
unless ($Perl500503Syntax::OrDie::_OPEN_GUARDED) |
|
1071
|
7 |
2 |
unless ($Perl500503Syntax::OrDie::_MKDIR_GUARDED) |
|
1080
|
13 |
6 |
if (@_ >= 3) |
|
1085
|
2 |
4 |
if (@_ >= 2 and ref $_[1]) |
|
1092
|
0 |
4 |
if (@_ == 1) |
|
1100
|
3 |
3 |
if (@_ < 2) |
|
1113
|
1 |
2 |
$first eq 'Perl500503Syntax::OrDie' || ref $first ? : |
|
1115
|
1 |
2 |
if (@v) |
|
1124
|
2 |
35 |
if ($first eq 'Perl500503Syntax::OrDie' or ref $first) { } |
|
1138
|
0 |
6 |
if (not @ARGV or $ARGV[0] eq "--help" or $ARGV[0] eq "-h") |
|
1157
|
0 |
7 |
if ($path eq '-') { } |
|
|
0 |
7 |
elsif (not -f $path) { } |
|
1171
|
2 |
5 |
if (@violations) { } |
|
1183
|
2 |
4 |
if ($fail) |
|
1187
|
2 |
4 |
$fail ? : |