Branch Coverage

blib/lib/Parse/SSH2/PublicKey.pm
Criterion Covered Total %
branch 9 26 34.6


line true false branch
117 12 16 if ($data =~ m[((ssh-rsa|ssh-dss)\ ([A-Z0-9a-z/+=]+)\s*([^\n]*))]gmsx) { }
11 5 elsif ($data =~ /(----\ BEGIN\ SSH2\ PUBLIC\ KEY\ ----(?:\n|\r|\f) (.*?)(?:\n|\r|\f) ----\ END\ SSH2\ PUBLIC\ KEY\ ----)/gmsx) { }
0 5 elsif ($data =~ /(-+BEGIN\ (DSA|RSA)\ PRIVATE\ KEY-+(?:\n|\r|\f) (.*?)(?:\n|\r|\f) -+END\ (DSA|RSA)\ PRIVATE\ KEY-+)/gmsx) { }
127 12 0 if (defined $comment)
181 0 0 $encryption eq 'DSA' ? :
0 0 $encryption eq 'RSA' ? :
228 1 0 if ($self->type eq 'public') { }
0 0 elsif ($self->type eq 'private') { }
231 1 0 if (scalar @headers)
250 0 0 if (scalar @headers)
277 1 0 if ($self->type eq 'public') { }
0 0 elsif ($self->type eq 'private') { }
292 0 0 if (scalar @headers)