| blib/lib/Net/SSH/Perl/Util/Authfile.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 22 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 0 | 0 | unless open my $fh, "<", $key_file |
| 22 | 0 | 0 | unless close $fh |
| 29 | 0 | 0 | unless $id eq &PRIVATE_KEY_ID_STRING() |
| 42 | 0 | 0 | if ($want_public) |
| 43 | 0 | 0 | wantarray ? : |
| 47 | 0 | 0 | unless (Net::SSH::Perl::Cipher::supported($cipher_type)) |
| 60 | 0 | 0 | if ($check1 != ord $buffer->get_char or $check2 != ord $buffer->get_char) |
| 70 | 0 | 0 | wantarray ? : |
| 77 | 0 | 0 | $passphrase eq '' ? : |
| 109 | 0 | 0 | unless open my $fh, ">", $key_file |
| 111 | 0 | 0 | unless close $fh |