| line |
true |
false |
branch |
|
35
|
0 |
1 |
if ($options{'file'} eq '') |
|
44
|
0 |
0 |
if defined $value |
|
50
|
1 |
1 |
unless ($self->extract($password)) |
|
74
|
0 |
4 |
unless ($password =~ /^[a-zA-Z0-9]{32}$/) |
|
79
|
0 |
4 |
unless (open RESPONSE, "+<$$self{'file'}") |
|
85
|
0 |
4 |
if ($@) { } |
|
|
0 |
4 |
elsif (not $has_lock) { } |
|
97
|
0 |
4 |
unless ($size_bytes = (stat RESPONSE)[7]) |
|
99
|
0 |
0 |
if ($! ne '') { } |
|
105
|
0 |
4 |
if ($size_bytes % $row_length != 0) |
|
141
|
0 |
8 |
if ($_DEBUG) |
|
146
|
0 |
8 |
unless (seek RESPONSE, $middle * $row_length, 0) |
|
152
|
0 |
8 |
unless (read RESPONSE, $row, $row_length) |
|
156
|
0 |
8 |
unless ($row =~ /^([+-])([a-zA-Z0-9]{32})\n$/) |
|
164
|
2 |
6 |
if $middle_sign eq '-' |
|
167
|
0 |
8 |
if ($_DEBUG) |
|
173
|
4 |
4 |
if ($password_middle eq $password) { } |
|
|
0 |
4 |
elsif ($password gt $password_middle) { } |
|
174
|
2 |
2 |
if ($middle_sign eq '+') |
|
176
|
1 |
1 |
unless ($only_test) |
|
177
|
0 |
1 |
unless (seek RESPONSE, $middle * $row_length, 0) |
|
180
|
0 |
1 |
unless (print RESPONSE '-') |
|
206
|
0 |
4 |
if $_DEBUG |
|
221
|
0 |
1 |
unless open SOURCE, "<$source_file" |
|
223
|
0 |
1 |
if ($!) |
|
226
|
0 |
1 |
unless close SOURCE |
|
232
|
0 |
475 |
unless ($row =~ /^([a-zA-Z0-9]{32})\n+$/) |
|
239
|
0 |
1 |
unless open TARGET, "+>$$self{'file'}" |
|
243
|
0 |
475 |
unless (print TARGET "+$password\n") |
|
283
|
4 |
24 |
$asc >= 65 && $asc <= 90 ? : |
|
|
8 |
28 |
$asc >= 97 && $asc <= 122 ? : |