| blib/lib/Connector/Builtin/Authentication/Password.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 24 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 0 | 0 | unless (-r $self->{'LOCATION'}) |
| 36 | 0 | 7 | unless ($user) |
| 41 | 1 | 6 | unless ($password) |
| 49 | 1 | 5 | if ($user =~ /[^a-zA-Z0-9_\-\.\@]/) |
| 56 | 0 | 5 | unless (-r $filename and open FILE, "$filename") |
| 62 | 3 | 5 | if (/^$user:/) |
| 67 | 0 | 3 | unless (defined $t[1]) |
| 72 | 2 | 1 | if (crypt($password, $t[1]) eq $t[1]) { } |
| 89 | 1 | 1 | if (scalar @path == 0) |
| 101 | 1 | 3 | if (scalar @path == 0) |
| 108 | 0 | 3 | unless (-r $filename and open FILE, "$filename") |
| 114 | 2 | 2 | if (/^$user:/) |