| line |
true |
false |
branch |
|
49
|
3 |
0 |
if ($ref->[0] =~ /^(?:PEM|PKCS8|RFC4716)$/) { } |
|
|
0 |
0 |
elsif ($ref->[0] =~ /^(?:ecdsa|ed25519|rsa)$/) { } |
|
56
|
0 |
3 |
unless open my $fh, '-|', ('ssh-keygen', '-i', '-m'), $ref->[0], '-f', $tfile |
|
60
|
0 |
3 |
unless close $fh |
|
73
|
1 |
14 |
unless defined $input |
|
75
|
1 |
13 |
if (ref $input eq 'GLOB') { } |
|
78
|
0 |
13 |
unless open $fh, '<', $input |
|
83
|
0 |
24 |
if $. > $max_lines |
|
84
|
3 |
21 |
if ($line =~ /^(-----BEGIN RSA PUBLIC KEY-----)/) { } |
|
|
2 |
19 |
elsif ($line =~ /^(-----BEGIN PUBLIC KEY-----)/) { } |
|
|
8 |
11 |
elsif ($line =~ /^(---- BEGIN SSH2 PUBLIC KEY ----)/) { } |
|
|
10 |
1 |
elsif ($line =~ m[
(?(?ecdsa)-sha2-nistp256|ssh-(?ed25519|rsa)) [\t ]+?
(?[A-Za-z0-9+/=]{64,717}) (?:[\t ]|$) ]x) { } |
|
87
|
0 |
3 |
unless defined $ok |
|
92
|
0 |
2 |
unless defined $ok |
|
98
|
2 |
5 |
unless defined $ok |
|
110
|
1 |
20 |
if @keys > $max_keys |
|
123
|
1 |
85 |
if $. > $max_lines |
|
124
|
10 |
75 |
if ($line =~ /^($fin)/) |
|
136
|
0 |
75 |
if length $line > 72 |
|
140
|
7 |
68 |
if ($line =~ /:/) |
|
141
|
4 |
3 |
if ($line =~ /\\$/) |
|
144
|
1 |
185 |
if eof $fh |
|
146
|
0 |
185 |
if length $line > 72 |
|
157
|
68 |
0 |
if ($line =~ m[^([A-Za-z0-9+/=]{1,72})$]) |
|
165
|
0 |
0 |
if $line =~ /^[ \t]/ |
|
169
|
0 |
0 |
if $line =~ /^$/ |