| line |
true |
false |
branch |
|
37
|
0 |
1 |
unless (-e $path or -e "$path.db" or -e "$path.pag") |
|
41
|
0 |
1 |
unless (-f _) |
|
45
|
0 |
1 |
unless (-r _) |
|
49
|
0 |
1 |
unless (eval "require $class;") |
|
53
|
0 |
1 |
unless my $dbm = $self->_open_dbm($type, $path) |
|
64
|
0 |
13 |
$type eq 'GDBM' ? : |
|
68
|
13 |
0 |
unless ($type eq 'CDB') |
|
80
|
0 |
12 |
unless ($dbm = $self->_open_dbm) |
|
82
|
0 |
0 |
if $self->log |
|
88
|
1 |
11 |
unless (defined($encrypted = $dbm->FETCH($username)) or defined($encrypted = $dbm->FETCH($username . "\000"))) |
|
91
|
1 |
0 |
if $self->log |
|
97
|
1 |
10 |
if substr($encrypted, -1) eq "\000" |
|
101
|
2 |
9 |
unless (defined $encrypted and length $encrypted) |
|
103
|
2 |
0 |
if $self->log |
|
109
|
0 |
9 |
unless ($self->check_password($password, $encrypted)) |
|
111
|
0 |
0 |
if $self->log |
|
117
|
9 |
0 |
if $self->log |