| line |
!l |
l&&!r |
l&&r |
condition |
|
76
|
25 |
0 |
2 |
$want_camelcase and $string =~ s/\A([^\Q$separator\E]+)\Q$separator\E?// |
|
87
|
5 |
21 |
1 |
@words and $words[-1] =~ /\A\Q$separator\E/ |
|
101
|
0 |
13 |
20 |
($old, $new) = (shift(), shift()) and defined $new |
|
115
|
8 |
5 |
22 |
$translator and my $p = shift @level_parts |
|
154
|
12 |
0 |
1 |
B::svref_2object(\$value)->FLAGS & 12288 and 0 + $value eq $value |
|
|
12 |
0 |
1 |
B::svref_2object(\$value)->FLAGS & 12288 and 0 + $value eq $value and $value * 0 == 0 |
|
166
|
0 |
6 |
0 |
$file->syswrite($_), $file->syswrite($/) and ++$count |
|
248
|
0 |
0 |
0 |
@_ == 1 and ref $_[0] |
|
|
0 |
0 |
0 |
@_ > 1 and ref $_[0] |
|
|
0 |
0 |
0 |
@_ > 1 and @_ % 2 == 0 |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
21
|
1 |
1 |
11 |
been_numeric($val) or not defined $val |
|
23
|
1 |
1 |
9 |
$val eq '1' or $val eq 'true' |
|
|
2 |
1 |
8 |
$val eq '1' or $val eq 'true' or $val eq 'yes' |
|
|
2 |
1 |
7 |
$val eq '1' or $val eq 'true' or $val eq 'yes' or $val eq 'on' |
|
26
|
1 |
1 |
5 |
$val eq '0' or $val eq 'false' |
|
|
2 |
1 |
4 |
$val eq '0' or $val eq 'false' or $val eq 'no' |
|
|
2 |
1 |
3 |
$val eq '0' or $val eq 'false' or $val eq 'no' or $val eq 'off' |
|
141
|
0 |
0 |
0 |
ref $self // $self |
|
173
|
4 |
1 |
0 |
ref $_[0] eq 'HASH' or &reftype($_[0]) eq 'HASH' |
|
182
|
8 |
2 |
0 |
exists $param->{$_} or croak("Missing required param ($_)") |