| line |
true |
false |
branch |
|
12
|
7 |
17 |
if ($] < "5.006" and not defined &warnings::import) |
|
395
|
0 |
0 |
if (defined $file and $file ne "" and $file ne "-e" and $file ne "-") |
|
396
|
0 |
0 |
if (-f $file) |
|
398
|
0 |
0 |
if (@violations) |
|
417
|
0 |
10 |
if ($@) |
|
433
|
0 |
340 |
unless defined $file and $file ne "" |
|
450
|
5 |
335 |
if ($cm =~ /\buse\s+List::Util\b([^;]+);/s) |
|
452
|
1 |
4 |
if $args =~ /\bany\b/ |
|
453
|
1 |
4 |
if $args =~ /\ball\b/ |
|
463
|
105 |
178695 |
if ($mline =~ /$pattern/) |
|
473
|
1 |
339 |
$listutil_any_imported ? : |
|
474
|
1 |
339 |
$listutil_all_imported ? : |
|
480
|
3 |
3722 |
if ($mline =~ /$any_pattern/) |
|
485
|
2 |
3723 |
if ($mline =~ /$all_pattern/) |
|
501
|
65 |
0 |
if $before =~ /\$\w+$/ |
|
502
|
0 |
0 |
if $before =~ /\@\w+$/ |
|
518
|
0 |
0 |
if ($cmline =~ /$pattern/) |
|
532
|
41 |
3187 |
if ($body_text =~ /$pattern/) |
|
553
|
1038 |
64874 |
if ($ch eq "#") |
|
555
|
0 |
1038 |
if $end == -1 |
|
560
|
502 |
64372 |
if ($ch eq "\"") |
|
566
|
484 |
63888 |
if ($ch eq "'") |
|
596
|
12 |
1351 |
if ($ch eq "_" and $pos == 0 || substr($src, $pos - 1, 1) eq "\n") |
|
597
|
3 |
9 |
if (substr($src, $pos, 7) eq "__END__" or substr($src, $pos, 8) eq "__DATA__") |
|
606
|
0 |
1598 |
if (not $in_pod and $ch eq "=" and $pos == 0 || substr($src, $pos - 1, 1) eq "\n") |
|
608
|
0 |
0 |
if ($nxt =~ /^=(head|over|item|back|pod|begin|end|for|encoding)\b/) |
|
612
|
0 |
118858 |
if ($in_pod) |
|
613
|
0 |
0 |
if ($ch eq "=" and $pos == 0 || substr($src, $pos - 1, 1) eq "\n") |
|
614
|
0 |
0 |
if (substr($src, $pos, 4) eq "=cut") |
|
616
|
0 |
0 |
if $end2 == -1 |
|
623
|
0 |
0 |
$ch eq "\n" ? : |
|
629
|
1587 |
117271 |
if ($ch eq "#") |
|
631
|
1 |
1586 |
if $end == -1 |
|
638
|
1086 |
116185 |
if ($ch eq "\"") |
|
646
|
1320 |
114865 |
if ($ch eq "'") |
|
654
|
2 |
114863 |
if ($ch eq "`") |
|
662
|
476 |
114387 |
if ($ch eq "q" and $pos + 1 < $len) |
|
664
|
35 |
441 |
if ($nxt =~ /^[qwx]$/ and $pos + 2 < $len) { } |
|
|
1 |
440 |
elsif ($nxt =~ m"^[\{\(\[/\|!<]$") { } |
|
666
|
35 |
0 |
if ($d =~ /\S/) |
|
684
|
9 |
80 |
if ($ch eq "<" and $pos + 1 < $len and substr($src, $pos + 1, 1) eq "<") |
|
686
|
7 |
2 |
if ($rest =~ /^(<<\s*([\"']?)(\w+)\2[^\r\n]*\r?\n)/) |
|
691
|
7 |
0 |
if ($body =~ /$re/m) |
|
704
|
68596 |
46224 |
unless ($out =~ /[\w\$\@\%]\z/) |
|
706
|
236 |
68360 |
if ($rest =~ /\A(qr|m(?!y(?:\b|\s*=>))|s(?!ub(?:\b|\s*\{))|tr|y)\s*([^\w\s#])/s) |
|
711
|
236 |
0 |
if (substr($rest, length $op) =~ /\A(\s*)([^\w\s#])/s) |
|
726
|
235 |
1 |
unless $op eq "tr" or $op eq "y" |
|
730
|
1 |
203 |
if ($op eq "s" or $op eq "tr" or $op eq "y") |
|
733
|
9 |
24 |
if ($delim ne $close) |
|
735
|
9 |
0 |
if ($gap =~ /\A(\s*)([^\w\s])/s) |
|
748
|
236 |
0 |
if (substr($src, $pos) =~ /\A([msixpgeodualncrs]*)/s) |
|
754
|
3 |
233 |
if ($flags =~ /r/) |
|
755
|
2 |
1 |
if ($op eq 's') { } |
|
|
1 |
0 |
elsif ($op eq 'tr' or $op eq 'y') { } |
|
769
|
324 |
114260 |
if ($ch eq "/" and $out =~ /(?:=~|!~|[=(,\{\[!&|;]|\b(?:if|while|unless|until|not|and|or|return))\s*\z/s) |
|
779
|
324 |
0 |
if (substr($src, $pos) =~ /\A([msixpgeodualn]*)/s) |
|
805
|
121318 |
4413585 |
if substr($str, $p, 1) eq "\n" |
|
824
|
1287 |
6779 |
if ($c eq "\\" and $pos < $slen) |
|
829
|
390 |
6389 |
if ($paired) { } |
|
830
|
0 |
390 |
if $c eq $open |
|
831
|
26 |
364 |
if $c eq $close |
|
832
|
26 |
364 |
if $depth == 0 |
|
835
|
567 |
5822 |
if $c eq $close |
|
849
|
1247 |
65967 |
if ($ch eq '\\') { } |
|
|
1584 |
64383 |
elsif ($ch eq '"') { } |
|
|
753 |
63630 |
elsif ($ch eq "\n") { } |
|
850
|
1247 |
0 |
$pos + 1 < $len ? : |
|
851
|
0 |
1247 |
$nx eq "\n" ? : |
|
874
|
311 |
82880 |
if ($ch eq '\\') { } |
|
|
1800 |
81080 |
elsif ($ch eq q[']) { } |
|
|
2109 |
78971 |
elsif ($ch eq "\n") { } |
|
875
|
311 |
0 |
$pos + 1 < $len ? : |
|
876
|
86 |
225 |
$nx eq q['] || $nx eq '\\' ? : |
|
900
|
0 |
987 |
if ($ch eq '\\') { } |
|
|
1 |
986 |
elsif ($open ne $close and $ch eq $open) { } |
|
|
39 |
947 |
elsif ($ch eq $close) { } |
|
|
20 |
927 |
elsif ($ch eq "\n") { } |
|
921
|
0 |
439 |
'<' eq $o ? : |
|
|
0 |
439 |
'[' eq $o ? : |
|
|
30 |
439 |
'(' eq $o ? : |
|
|
48 |
469 |
'{' eq $o ? : |
|
929
|
7 |
2 |
unless ($Perl500503Syntax::OrDie::_OPEN_GUARDED) |
|
934
|
7 |
2 |
unless ($Perl500503Syntax::OrDie::_MKDIR_GUARDED) |
|
943
|
13 |
6 |
if (@_ >= 3) |
|
948
|
2 |
4 |
if (@_ >= 2 and ref $_[1]) |
|
955
|
0 |
4 |
if (@_ == 1) |
|
963
|
3 |
3 |
if (@_ < 2) |
|
976
|
1 |
2 |
$first eq 'Perl500503Syntax::OrDie' || ref $first ? : |
|
978
|
1 |
2 |
if (@v) |
|
987
|
2 |
8 |
if ($first eq 'Perl500503Syntax::OrDie' or ref $first) { } |
|
1001
|
0 |
6 |
if (not @ARGV or $ARGV[0] eq "--help" or $ARGV[0] eq "-h") |
|
1020
|
0 |
7 |
if ($path eq '-') { } |
|
|
0 |
7 |
elsif (not -f $path) { } |
|
1034
|
4 |
3 |
if (@violations) { } |
|
1046
|
4 |
2 |
if ($fail) |
|
1050
|
4 |
2 |
$fail ? : |