| line |
!l |
l&&!r |
l&&r |
condition |
|
12
|
17 |
0 |
0 |
$] < "5.006" and not defined &warnings::import |
|
395
|
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 "-" |
|
433
|
0 |
0 |
340 |
defined $file and $file ne "" |
|
596
|
117498 |
1352 |
11 |
$ch eq "_" and $pos == 0 || substr($src, $pos - 1, 1) eq "\n" |
|
606
|
0 |
117260 |
1598 |
not $in_pod and $ch eq "=" |
|
|
117260 |
1598 |
0 |
not $in_pod and $ch eq "=" and $pos == 0 || substr($src, $pos - 1, 1) eq "\n" |
|
613
|
0 |
0 |
0 |
$ch eq "=" and $pos == 0 || substr($src, $pos - 1, 1) eq "\n" |
|
662
|
114387 |
0 |
476 |
$ch eq "q" and $pos + 1 < $len |
|
664
|
441 |
0 |
35 |
$nxt =~ /^[qwx]$/ and $pos + 2 < $len |
|
684
|
114738 |
0 |
89 |
$ch eq "<" and $pos + 1 < $len |
|
|
114738 |
80 |
9 |
$ch eq "<" and $pos + 1 < $len and substr($src, $pos + 1, 1) eq "<" |
|
769
|
114222 |
38 |
324 |
$ch eq "/" and $out =~ /(?:=~|!~|[=(,\{\[!&|;]|\b(?:if|while|unless|until|not|and|or|return))\s*\z/s |
|
824
|
6779 |
0 |
1287 |
$c eq "\\" and $pos < $slen |
|
898
|
9 |
29 |
987 |
$pos < $len and $depth > 0 |
|
900
|
20 |
966 |
1 |
$open ne $close and $ch eq $open |
|
948
|
0 |
4 |
2 |
@_ >= 2 and ref $_[1] |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
596
|
1 |
11 |
1351 |
$pos == 0 || substr($src, $pos - 1, 1) eq "\n" |
|
597
|
3 |
0 |
9 |
substr($src, $pos, 7) eq "__END__" or substr($src, $pos, 8) eq "__DATA__" |
|
606
|
0 |
0 |
1598 |
$pos == 0 || substr($src, $pos - 1, 1) eq "\n" |
|
613
|
0 |
0 |
0 |
$pos == 0 || substr($src, $pos - 1, 1) eq "\n" |
|
726
|
1 |
0 |
235 |
$op eq "tr" or $op eq "y" |
|
730
|
32 |
1 |
203 |
$op eq "s" or $op eq "tr" |
|
|
33 |
0 |
203 |
$op eq "s" or $op eq "tr" or $op eq "y" |
|
755
|
1 |
0 |
0 |
$op eq "tr" or $op eq "y" |
|
876
|
9 |
77 |
225 |
$nx eq q['] || $nx eq '\\' |
|
976
|
1 |
0 |
2 |
$first eq 'Perl500503Syntax::OrDie' || ref $first |
|
987
|
2 |
0 |
8 |
$first eq "Perl500503Syntax::OrDie" or ref $first |
|
1001
|
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" |