| 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$/) |