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) { } |
110
|
0 |
0 |
if (@_ > 1) |
128
|
0 |
0 |
if (defined $self->compression) |
131
|
0 |
0 |
if (defined $self->text) |
134
|
0 |
0 |
if (defined $self->encoding) |
137
|
0 |
0 |
if (defined $self->comment) |
141
|
0 |
0 |
unless defined $self->{$key} |
142
|
0 |
0 |
if ($key =~ /^_[[:alnum:]]+$/msx) |