line |
true |
false |
branch |
13
|
0 |
0 |
if (defined $params) |
14
|
0 |
0 |
if (defined $params->{'expires'}) |
20
|
0 |
0 |
if (defined $params->{'comment'}) |
24
|
0 |
0 |
if ($key =~ /^_[[:alnum:]]+$/msx) |
35
|
0 |
0 |
if (@_ > 1) |
44
|
0 |
0 |
if (@_ > 1) |
45
|
0 |
0 |
if (defined $new) { } |
49
|
0 |
0 |
if ($new =~ /^${date_regex}T$time_regex$zone_regex$/msx) { } |
60
|
0 |
0 |
if (defined $old and $old eq '0000-00-00T00-00-00') { } |
71
|
0 |
0 |
if (@_ > 1) |
74
|
0 |
0 |
if (defined $old) { } |
85
|
0 |
0 |
if (@_ > 1) |
88
|
0 |
0 |
if (defined $old) { } |
99
|
0 |
0 |
if (@_ > 1) |
112
|
0 |
0 |
if ($name =~ /^_[[:alnum:]]+$/msx) { } |
114
|
0 |
0 |
if (@_ > 1) |
129
|
0 |
0 |
if (defined $self->expires) |
132
|
0 |
0 |
if ($self->last_access) { } |
140
|
0 |
0 |
if (defined $self->comment) |
144
|
0 |
0 |
unless defined $self->{$key} |
145
|
0 |
0 |
if ($key =~ /^_[[:alnum:]]+$/msx) |