| line |
true |
false |
branch |
|
108
|
0 |
7 |
if $key_length < 1 or $key_length > 10000 |
|
109
|
0 |
7 |
if $value_length < 1 or $value_length > 10000 |
|
119
|
0 |
124 |
if $self->verbose |
|
121
|
0 |
124 |
unless $attributes |
|
128
|
0 |
124 |
if $tos < 0 |
|
157
|
0 |
0 |
unless defined $name |
|
161
|
0 |
0 |
if (exists $attributes->{'undef'}) |
|
163
|
0 |
0 |
unless (exists $attributes->{''}) |
|
176
|
0 |
0 |
unless defined $value |
|
195
|
0 |
19 |
if $self->verbose |
|
215
|
0 |
37 |
if ($bless_type) |
|
220
|
7 |
30 |
if ($ref_type eq 'ARRAY') { } |
|
|
4 |
26 |
elsif ($ref_type eq 'HASH') { } |
|
|
0 |
26 |
elsif ($ref_type eq 'SCALAR') { } |
|
237
|
26 |
0 |
defined $item ? : |
|
240
|
0 |
37 |
if $bless_type |
|
254
|
0 |
27 |
if $self->verbose |
|
272
|
11 |
35 |
if $ref_type eq 'HASH' |
|
284
|
1 |
45 |
if ($bless_type) |
|
293
|
4 |
42 |
if ($ref_type eq 'ARRAY') { } |
|
|
31 |
11 |
elsif ($ref_type =~ /CODE|REF|SCALAR|VALUE/) { } |
|
|
11 |
0 |
elsif ($ref_type eq 'HASH') { } |
|
304
|
1 |
30 |
if ($ref_type eq 'SCALAR') |
|
323
|
1 |
45 |
if $bless_type |
|
328
|
0 |
46 |
if $node->is_root |
|
342
|
0 |
77 |
if $self->verbose |
|
362
|
0 |
23 |
if ($self->verbose) |
|
386
|
23 |
124 |
if $node->is_root |
|
391
|
124 |
0 |
$type =~ /^(\w+)/ ? : |
|
397
|
0 |
124 |
if (defined $value and $opt->{'seen'}{$value}) { } |
|
|
0 |
124 |
elsif ($ref_type eq 'CODE') { } |
|
|
0 |
124 |
elsif ($ref_type eq 'REF') { } |
|
|
32 |
92 |
elsif ($ref_type eq 'VALUE') { } |
|
|
29 |
63 |
elsif ($ref_type eq 'SCALAR') { } |
|
399
|
0 |
0 |
$ref_type eq 'SCALAR' || $key =~ /^ARRAY|BLESS|HASH/ ? : |
|
404
|
0 |
0 |
defined $value ? : |
|
408
|
0 |
0 |
$opt->{'seen'}{$$value} ? : |
|
|
0 |
0 |
defined $value ? : |
|
413
|
32 |
0 |
defined $name ? : |
|
414
|
28 |
2 |
defined $value ? : |
|
|
30 |
2 |
if $use_value |
|
419
|
29 |
0 |
defined $name ? : |
|
420
|
2 |
0 |
defined $value ? : |
|
|
2 |
27 |
if $use_value |
|
429
|
45 |
79 |
if defined $value and not defined $opt->{'seen'}{$value} |
|
458
|
22 |
1 |
defined $s ? : |
|
474
|
1 |
22 |
if ($bless_type) |
|
479
|
8 |
15 |
if ($ref_type eq 'ARRAY') { } |
|
|
12 |
3 |
elsif ($ref_type eq 'HASH') { } |
|
|
3 |
0 |
elsif ($ref_type =~ /REF|SCALAR|VALUE/) { } |
|
497
|
0 |
23 |
if $self->clean_nodes |
|
503
|
1 |
22 |
if $bless_type |