Branch Coverage

blib/lib/CGI/Session/Driver/file.pm
Criterion Covered Total %
branch 10 32 31.2


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