| line |
true |
false |
branch |
|
35
|
1 |
3 |
if (not -d $self->session_dir)
|
|
36
|
0 |
1 |
unless mkdir $self->session_dir
|
|
47
|
0 |
0 |
unless opendir my $dh, $self->session_dir
|
|
53
|
0 |
0 |
if $file eq "." or $file eq ".."
|
|
54
|
0 |
0 |
if ($file =~ /(\w+)\Q$suffix\E/)
|
|
67
|
1 |
16 |
unless -f $session_file
|
|
69
|
0 |
16 |
unless open my $fh, "+<", $session_file
|
|
70
|
0 |
16 |
unless flock $fh, 1
|
|
72
|
0 |
16 |
unless close $fh
|
|
83
|
0 |
1 |
unless -f $old_path
|
|
94
|
0 |
5 |
unless -f $session_file
|
|
103
|
0 |
21 |
unless open my $fh, ">", $session_file
|
|
104
|
0 |
21 |
unless flock $fh, 2
|
|
105
|
0 |
21 |
unless seek $fh, 0, 0
|
|
106
|
0 |
21 |
unless truncate $fh, 0
|
|
109
|
0 |
21 |
unless close $fh
|