| line |
l |
!l&&r |
!l&&!r |
condition |
|
90
|
50 |
25 |
1231 |
$line =~ /(?:,|=>)\s*$/ or $line =~ s/\\\s*$// |
|
109
|
219 |
44 |
9 |
not $line =~ /^\s*$id:$/o or $line =~ /[[:lower:]]/ |
|
|
263 |
1 |
8 |
not $line =~ /^\s*$id:$/o or $line =~ /[[:lower:]]/ or $line =~ /^\s*(?:BEGIN|CHECK|INIT|END):$/ |
|
169
|
62 |
44 |
1125 |
$_[0] =~ s/^(\s*\b(?:if|elsif|unless)\b\s*)/$1(/ or $_[0] =~ s/^(\s*(?:$id\s*:)?\s*\b(?:while|until)\b(\s*))/$2 eq '' ? "$1 (" : "$1(";/eo |
|
185
|
19 |
10 |
40 |
$rest =~ /^((?:my|our)? \s* \$ $id\s+) in\s* ((?: (?:[\$\@%&\\]) | (?:\b\w) ) .*)$/ox or $rest =~ /^((?:my|our)? \s* \$ $id\s*) ((?: (?:[\$\@%&\\]) | (?:\b\w) ) .*)$/ox |