| line |
true |
false |
branch |
|
14
|
1 |
2 |
if ($class eq 'Net::SSH::Perl::Key') |
|
17
|
0 |
1 |
if $@ |
|
40
|
0 |
0 |
unless my $type = $Net::SSH::Perl::Key::KEY_TYPES{$ssh_name} |
|
47
|
0 |
0 |
@_ ? : |
|
52
|
0 |
0 |
if ((my $type_offset = index($blob, $t)) >= 0) |
|
54
|
0 |
0 |
if $type_offset > 0 |
|
61
|
0 |
0 |
unless (defined $type) |
|
67
|
0 |
0 |
if (defined $expected_type and $expected_type ne $type) |
|
82
|
0 |
0 |
if ($class eq 'Net::SSH::Perl::Key') |
|
85
|
0 |
0 |
if $@ |
|
104
|
0 |
1 |
unless open my $fh, '<', $keyfile |
|
106
|
0 |
1 |
unless close $fh |
|
107
|
0 |
1 |
unless $desc |
|
110
|
0 |
1 |
unless my $rec = $Net::SSH::Perl::Key::OBJ_MAP{$object} |
|
113
|
0 |
1 |
if $@ |
|
114
|
0 |
1 |
$rec->[1] ? : |
|
128
|
0 |
0 |
$type && $type eq 'md5' ? : |
|
|
0 |
0 |
$type && $type eq 'bubblebabble' ? : |
|
137
|
0 |
0 |
if $@ |
|
139
|
0 |
0 |
if $@ |
|
149
|
1 |
0 |
if defined $comment |