Branch Coverage

blib/lib/Data/SSHPubkey.pm
Criterion Covered Total %
branch 36 52 69.2


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 =~ /^$/