| line |
true |
false |
branch |
|
33
|
0 |
421 |
if (defined $params{'key_digest'}) |
|
45
|
0 |
378 |
if length $namespace > $self->max_key_length |
|
57
|
96 |
9580 |
if (length $new_key > length $key and length $new_key > $self->max_key_length) |
|
75
|
5414 |
1091 |
if (defined $file and -f $file) { } |
|
87
|
0 |
2228 |
unless my $file = $self->path_to_key($key, \$dir) |
|
89
|
1000 |
1228 |
unless -d $dir |
|
95
|
2226 |
2 |
defined $temp_file ? : |
|
99
|
2224 |
2 |
if (defined $temp_file) |
|
104
|
2224 |
0 |
if rename $temp_file, $file |
|
106
|
0 |
2224 |
if (-f $temp_file) |
|
117
|
0 |
536 |
unless my $file = $self->path_to_key($key) |
|
125
|
159 |
301 |
unless -d $namespace_dir |
|
129
|
0 |
301 |
if -d $renamed_dir |
|
138
|
2444 |
5522 |
if -f $_ and /$re$/ |
|
147
|
24 |
468 |
unless -d $namespace_dir |
|
176
|
0 |
46 |
unless -d $root_dir |
|
189
|
0 |
9272 |
unless defined $key |
|
200
|
159 |
9113 |
if ($key =~ /^[0-9a-f]{32}$/) { } |
|
224
|
2228 |
7044 |
if (defined $dir_ref and ref $dir_ref) { } |