| line |
true |
false |
branch |
|
13
|
0 |
0 |
if (defined $params) |
|
16
|
0 |
0 |
if (defined $params->{'compression'}) |
|
19
|
0 |
0 |
if (defined $params->{'text'}) |
|
22
|
0 |
0 |
if (defined $params->{'encoding'}) |
|
25
|
0 |
0 |
if (defined $params->{'comment'}) |
|
29
|
0 |
0 |
if ($key =~ /^_[[:alnum:]]+$/msx) |
|
40
|
0 |
0 |
if (@_ > 1) |
|
43
|
0 |
0 |
if (defined $old) { } |
|
54
|
0 |
0 |
if (@_ > 1) |
|
57
|
0 |
0 |
if (defined $old) { } |
|
68
|
0 |
0 |
if (@_ > 1) |
|
77
|
0 |
0 |
if (@_ > 1) |
|
86
|
0 |
0 |
if (@_ > 1) |
|
95
|
0 |
0 |
if (@_ > 1) |
|
108
|
0 |
0 |
if ($name =~ /^_[[:alnum:]]+$/msx) { } |
|
|
0 |
0 |
elsif ($name eq 'DESTROY') { } |
|
110
|
0 |
0 |
if (@_ > 1) |
|
130
|
0 |
0 |
if (defined $self->compression) |
|
133
|
0 |
0 |
if (defined $self->text) |
|
136
|
0 |
0 |
if (defined $self->encoding) |
|
139
|
0 |
0 |
if (defined $self->comment) |
|
143
|
0 |
0 |
unless defined $self->{$key} |
|
144
|
0 |
0 |
if ($key =~ /^_[[:alnum:]]+$/msx) |