| line |
true |
false |
branch |
|
79
|
0 |
60 |
unless my $key = $self->_get_key_for_unique_key($p_namespace, $unique_key) |
|
109
|
121 |
0 |
if (-e $self->_path_to_key($p_namespace, $p_key)) { } |
|
214
|
47 |
0 |
if defined $p_optional_new_umask |
|
216
|
47 |
0 |
if defined $p_optional_new_umask |
|
224
|
0 |
47 |
unless -d $directory |
|
227
|
47 |
0 |
if defined $old_umask |
|
241
|
72 |
36 |
if $dirent eq '.' or $dirent eq '..' |
|
245
|
0 |
36 |
unless -d $path |
|
260
|
0 |
443 |
unless -d $p_directory |
|
265
|
0 |
443 |
unless opendir Dir, _Untaint_Path($p_directory) |
|
270
|
0 |
443 |
unless closedir Dir |
|
287
|
0 |
153 |
unless open File, _Untaint_Path($p_path) |
|
313
|
31 |
153 |
unless -e $p_path |
|
335
|
62 |
0 |
if (-f _Untaint_Path($p_path)) |
|
353
|
166 |
0 |
if (-d _Untaint_Path($p_directory)) |
|
369
|
11 |
241 |
unless -d $p_directory |
|
373
|
482 |
264 |
if $dirent eq '.' or $dirent eq '..' |
|
377
|
204 |
60 |
if (-d $path) { } |
|
397
|
0 |
0 |
if $dirent eq '.' or $dirent eq '..' |
|
401
|
0 |
0 |
if (-d $path) { } |
|
420
|
1 |
166 |
unless -d $p_root |
|
424
|
332 |
174 |
if $dirent eq '.' or $dirent eq '..' |
|
428
|
140 |
34 |
if (-d $path) { } |
|
452
|
0 |
0 |
unless -d $p_directory |
|
458
|
0 |
0 |
if $dirent eq '.' or $dirent eq '..' |
|
462
|
0 |
0 |
if (-d $path) { } |
|
497
|
0 |
1789 |
unless (defined $untainted_string or $untainted_string ne $p_string) |
|
515
|
92 |
0 |
if (defined $directory and defined $volume) |
|
520
|
47 |
45 |
if (defined $directory and not -d $directory) |
|
556
|
0 |
92 |
if $p_optional_umask |
|
558
|
0 |
92 |
if $p_optional_umask |
|
562
|
92 |
0 |
if (defined $directory and defined $volume) |
|
575
|
0 |
92 |
unless -e $temp_filename |
|
578
|
0 |
92 |
unless rename $temp_filename, _Untaint_Path($p_path) |
|
581
|
0 |
92 |
if (-e $temp_filename) |
|
591
|
0 |
92 |
if $old_umask |
|
652
|
31 |
153 |
unless my $frozen_data_ref = _Read_File_Without_Time_Modification($p_path) |
|
657
|
0 |
153 |
if ($@ or ref $data_ref ne 'ARRAY') { } |