| line |
true |
false |
branch |
|
35
|
0 |
1 |
if ($options{'file'} eq '') |
|
44
|
0 |
0 |
if defined $value |
|
61
|
0 |
2 |
unless open REQUEST, "+<$$self{'file'}" |
|
68
|
0 |
2 |
if ($@) { } |
|
|
0 |
2 |
elsif (not $has_lock) { } |
|
78
|
0 |
2 |
unless ($size_bytes = (stat REQUEST)[7]) |
|
79
|
0 |
0 |
$! ? : |
|
81
|
0 |
2 |
if ($size_bytes % $row_length != 0) |
|
90
|
0 |
2 |
unless seek REQUEST, ($size - 1) * $row_length, 0 |
|
93
|
0 |
2 |
unless read REQUEST, $row, $row_length |
|
95
|
0 |
2 |
unless ($row =~ /^([a-zA-Z0-9]{32})\n$/) |
|
102
|
0 |
2 |
if ($@) |
|
105
|
0 |
2 |
unless ($is_truncate) |
|
117
|
0 |
2 |
if $error |
|
133
|
0 |
1 |
unless open SOURCE, "<$source_file" |
|
135
|
0 |
1 |
if ($!) |
|
138
|
0 |
1 |
unless close SOURCE |
|
144
|
0 |
468 |
unless ($row =~ /^([a-zA-Z0-9]{32})\n+$/) |
|
151
|
0 |
1 |
unless open TARGET, "+>$$self{'file'}" |
|
155
|
0 |
468 |
unless (print TARGET "$password\n") |