line |
true |
false |
branch |
21
|
0 |
24 |
if (defined $CGI::Session::File::FileName) |
25
|
0 |
24 |
unless (-d $$self{'Directory'}) |
27
|
0 |
0 |
unless (File::Path::mkpath($$self{'Directory'})) |
41
|
5 |
12 |
unless -e $path |
43
|
0 |
12 |
unless (sysopen FH, $path, 0) |
63
|
0 |
13 |
unless sysopen FH, $path, 65 |
64
|
0 |
13 |
unless flock FH, 2 |
65
|
0 |
13 |
unless truncate FH, 0 |
67
|
0 |
13 |
unless close FH |
79
|
0 |
7 |
unless unlink $path |
88
|
0 |
0 |
unless ($coderef and ref $coderef and ref $coderef eq 'CODE') |
92
|
0 |
0 |
unless opendir DIRHANDLE, $$self{'Directory'} |
99
|
0 |
0 |
if $filename =~ /^\.\.?$/ |
101
|
0 |
0 |
unless my $mode = (stat $full_path)[2] |
103
|
0 |
0 |
if S_ISDIR($mode) |
104
|
0 |
0 |
if ($filename =~ /^$filename_pattern$/) |