| line |
true |
false |
branch |
|
41
|
0 |
1 |
unless (-e $path) |
|
45
|
0 |
1 |
unless (-f _) |
|
49
|
0 |
1 |
unless (-r _) |
|
59
|
1 |
5 |
if ($username =~ /^-/) |
|
61
|
1 |
0 |
if $self->log |
|
69
|
0 |
5 |
unless ($fh = 'IO::File'->new($path, 0)) |
|
71
|
0 |
0 |
if $self->log |
|
77
|
0 |
5 |
unless (not $self->flock or CORE::flock $fh, 1) |
|
79
|
0 |
0 |
if $self->log |
|
87
|
0 |
15 |
if /^#/ |
|
88
|
0 |
15 |
if /^\s+/ |
|
94
|
5 |
10 |
if ($credentials[0] eq $username) |
|
98
|
5 |
0 |
if $self->log |
|
105
|
0 |
5 |
unless ($fh->close) |
|
107
|
0 |
0 |
if $self->log |
|
111
|
0 |
5 |
unless (defined $encrypted) |
|
113
|
0 |
0 |
if $self->log |
|
119
|
0 |
5 |
unless (length $encrypted) |
|
121
|
0 |
0 |
if $self->log |
|
127
|
0 |
5 |
unless ($self->check_password($password, $encrypted)) |
|
129
|
0 |
0 |
if $self->log |
|
135
|
5 |
0 |
if $self->log |