line |
true |
false |
branch |
57
|
0 |
0 |
if $_[0] =~ /^(false|off|no)$/iu |
58
|
0 |
0 |
if $_[0] =~ /^0$/u |
70
|
0 |
0 |
unless ref $val |
104
|
0 |
0 |
@_ && ref $_[0] ? : |
105
|
0 |
0 |
@_ ? : |
108
|
0 |
0 |
if ($val =~ /\A\n/u) |
113
|
0 |
0 |
if ($val =~ /^(?\h+)\S/mu) |
117
|
0 |
0 |
if $extra_trim |
119
|
0 |
0 |
$initial_NL && !$extra_trim ? : |
147
|
0 |
26 |
unless my $hrIn = shift() |
148
|
0 |
26 |
unless ref $hrIn eq 'HASH' |
150
|
26 |
0 |
if ref $_[0] eq 'HASH' |
154
|
29 |
22 |
unless exists $hrIn->{$name} |
156
|
0 |
22 |
$hrOpts->{'lc'} ? : |
157
|
22 |
0 |
if $hrOpts->{'-'} |
176
|
0 |
0 |
if (not defined $ref) { } |
|
0 |
0 |
elsif (not &refaddr($ref)) { } |
|
0 |
0 |
elsif (&blessed($ref)) { } |
198
|
0 |
0 |
if ($got_desc ne $exp_desc) |
202
|
0 |
0 |
unless (defined $got) |
210
|
0 |
0 |
if ($got_addr != $exp_addr) |