| line |
!l |
l&&!r |
l&&r |
condition |
|
38
|
55 |
1 |
1 |
$self->{'skip_keys'} and ref $self->{'skip_keys'} ne "HASH" |
|
62
|
95 |
3 |
2 |
$ref eq "CODE" and $self->{'play_coderefs'} |
|
69
|
0 |
1 |
1 |
$r eq "CODE" and $self->{'play_coderefs'} |
|
70
|
23 |
0 |
2 |
$self->{'skip_keys'} && $self->{'skip_keys'}{$_} |
|
71
|
24 |
1 |
1 |
$self->{'skip_keys_qr'} && $_ =~ /$self->{'skip_keys_qr'}/ |
|
104
|
22 |
33 |
33 |
not $no_num and $str =~ /^ -? (?: [1-9][0-9]{0,12} | 0) (?: \. \d* [1-9])? $/x |
|
115
|
55 |
0 |
0 |
$self->{'utf8'} and &utf8::decode |
|
122
|
34 |
17 |
4 |
$self->{'str_nl'} and length $str > 80 |