| line |
true |
false |
branch |
|
12
|
1 |
2 |
if ($class eq "Net::SSH::Perl::Key") |
|
15
|
0 |
1 |
if $@ |
|
38
|
0 |
0 |
unless my $type = $Net::SSH::Perl::Key::KEY_TYPES{$ssh_name} |
|
45
|
0 |
0 |
@_ ? : |
|
50
|
0 |
0 |
if ((my $type_offset = index($blob, $t)) >= 0) |
|
52
|
0 |
0 |
if $type_offset > 0 |
|
59
|
0 |
0 |
unless (defined $type) |
|
65
|
0 |
0 |
if (defined $expected_type and $expected_type ne $type) |
|
80
|
0 |
0 |
if ($class eq "Net::SSH::Perl::Key") |
|
83
|
0 |
0 |
if $@ |
|
102
|
0 |
1 |
unless open my $fh, "<", $keyfile |
|
104
|
0 |
1 |
unless close $fh |
|
105
|
0 |
1 |
unless $desc |
|
108
|
0 |
1 |
unless my $rec = $Net::SSH::Perl::Key::OBJ_MAP{$object} |
|
111
|
0 |
1 |
if $@ |
|
112
|
0 |
1 |
$rec->[1] ? : |
|
126
|
0 |
0 |
$type && $type eq 'md5' ? : |
|
|
0 |
0 |
$type && $type eq 'bubblebabble' ? : |
|
135
|
0 |
0 |
if $@ |
|
137
|
0 |
0 |
if $@ |
|
147
|
1 |
0 |
if defined $comment |