| line |
true |
false |
branch |
|
123
|
2 |
4 |
unless $class->can('clone') |
|
174
|
1 |
9 |
if ($p{'discard'}) |
|
176
|
3 |
2 |
if any sub {
$key =~ /$_/u;
}
, @{$p{'discard'};} |
|
182
|
6 |
4 |
unless (defined $$this{'_'}) |
|
190
|
2 |
2 |
if ($p{'discard_additional_keys'}) { } |
|
192
|
6 |
1 |
if exists $$this{'_'}{$key} |
|
216
|
0 |
10 |
if (ref $$this{'_'}{$key} and $$this{'clone_get'}) |
|
221
|
10 |
0 |
exists $$this{'_'}{$key} ? : |
|
240
|
5 |
0 |
if ($this->exists($key)) { } |
|
241
|
1 |
4 |
if (ref $value and $$this{'clone_set'}) { } |
|
263
|
8 |
4 |
if exists $$this{'_'}{$key} |
|
279
|
0 |
1 |
unless defined $regex |
|
298
|
0 |
3 |
unless exists $$hash{$key} |
|
334
|
2 |
7 |
if ($p{'include'}) |
|
339
|
6 |
6 |
if (any sub {
$key =~ /$_/u;
}
, @{$p{'include'};}) |
|
347
|
2 |
7 |
if ($p{'exclude'}) |
|
352
|
2 |
9 |
if (none sub {
$key =~ /$_/u;
}
, @{$p{'exclude'};}) |
|
376
|
0 |
1 |
unless $file |
|
379
|
0 |
1 |
$p{'include'} || $p{'exclude'} ? : |
|
391
|
0 |
1 |
unless open my $fh, '>', $file |
|
407
|
6 |
7 |
if (ref $source eq 'HASH') { } |
|
|
0 |
7 |
elsif (ref $source eq 'SCALAR') { } |
|
412
|
0 |
0 |
if $@ |
|
415
|
0 |
7 |
unless open my $fh, '<', $source |
|
417
|
0 |
7 |
if $@ |
|
436
|
0 |
0 |
if (@_ > 1) |
|
437
|
0 |
0 |
if (@_ > 1) |
|
456
|
0 |
5 |
ref $p{'clone'} eq 'CODE' ? : |