| line |
!l |
l&&!r |
l&&r |
condition |
|
15
|
20 |
0 |
0 |
$] < "5.006" and not defined &warnings::import |
|
404
|
0 |
0 |
0 |
defined $file and $file ne "" |
|
|
0 |
0 |
0 |
defined $file and $file ne "" and $file ne "-e" |
|
|
0 |
0 |
0 |
defined $file and $file ne "" and $file ne "-e" and $file ne "-" |
|
442
|
0 |
0 |
394 |
defined $file and $file ne "" |
|
501
|
3 |
1 |
4 |
$word eq "any" and $check_any |
|
|
1 |
1 |
2 |
$word eq "all" and $check_all |
|
533
|
17 |
112 |
2840 |
$i < $len and $depth > 0 |
|
535
|
2569 |
3 |
133 |
$c eq "," and $depth == 1 |
|
681
|
958377 |
40214 |
43 |
$ch eq "\n" and @pending_heredocs |
|
706
|
987839 |
10719 |
33 |
$ch eq "_" and $pos == 0 || substr($src, $pos - 1, 1) eq "\n" |
|
716
|
313438 |
674911 |
10219 |
not $in_pod and $ch eq "=" |
|
|
988349 |
10210 |
9 |
not $in_pod and $ch eq "=" and $pos == 0 || substr($src, $pos - 1, 1) eq "\n" |
|
723
|
311767 |
597 |
1079 |
$ch eq "=" and $pos == 0 || substr($src, $pos - 1, 1) eq "\n" |
|
764
|
4991 |
0 |
5 |
$out =~ /[\$\@\%\&\*]\w*\z/ and $nextc =~ /[A-Za-z_]/ |
|
790
|
669203 |
0 |
2577 |
$ch eq "q" and $pos + 1 < $len |
|
792
|
2136 |
0 |
441 |
$nxt =~ /^[qwx]$/ and $pos + 2 < $len |
|
816
|
670811 |
0 |
533 |
$ch eq "<" and $pos + 1 < $len |
|
|
670811 |
483 |
50 |
$ch eq "<" and $pos + 1 < $len and substr($src, $pos + 1, 1) eq "<" |
|
906
|
668620 |
61 |
1522 |
$ch eq "/" and $out =~ /(?:=~|!~|[=(,\{\[!&|;]|\b(?:if|while|unless|until|not|and|or|return|split|grep|map))\s*\z/s |
|
961
|
58356 |
0 |
7578 |
$c eq "\\" and $pos < $slen |
|
1035
|
9 |
436 |
20956 |
$pos < $len and $depth > 0 |
|
1037
|
3230 |
16851 |
48 |
$open ne $close and $ch eq $open |
|
1085
|
0 |
4 |
2 |
@_ >= 2 and ref $_[1] |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
706
|
1 |
33 |
10718 |
$pos == 0 || substr($src, $pos - 1, 1) eq "\n" |
|
707
|
21 |
2 |
11 |
substr($src, $pos, 7) eq "__END__" or substr($src, $pos, 8) eq "__DATA__" |
|
716
|
0 |
9 |
10210 |
$pos == 0 || substr($src, $pos - 1, 1) eq "\n" |
|
723
|
0 |
1079 |
597 |
$pos == 0 || substr($src, $pos - 1, 1) eq "\n" |
|
857
|
11 |
0 |
1082 |
$op eq "tr" or $op eq "y" |
|
861
|
775 |
11 |
307 |
$op eq "s" or $op eq "tr" |
|
|
786 |
0 |
307 |
$op eq "s" or $op eq "tr" or $op eq "y" |
|
886
|
1 |
0 |
0 |
$op eq "tr" or $op eq "y" |
|
1013
|
10 |
518 |
5954 |
$nx eq q['] || $nx eq '\\' |
|
1113
|
1 |
0 |
2 |
$first eq 'Perl500503Syntax::OrDie' || ref $first |
|
1124
|
2 |
0 |
35 |
$first eq "Perl500503Syntax::OrDie" or ref $first |
|
1138
|
1 |
0 |
6 |
not @ARGV or $ARGV[0] eq "--help" |
|
|
1 |
0 |
6 |
not @ARGV or $ARGV[0] eq "--help" or $ARGV[0] eq "-h" |