Branch Coverage

blib/lib/Net/SSH/AuthorizedKey/Base.pm
Criterion Covered Total %
branch 54 68 79.4


line true false branch
59 70 0 if (exists $VALID_OPTIONS{$key})
87 0 70 unless (defined $option_type)
92 57 13 if (defined $value)
94 45 12 if ($append) { }
95 3 42 if ($self->{'options'}{$key} and ref $self->{'options'}{$key} ne 'ARRAY')
103 35 22 if ($option_type eq 's') { }
104 5 30 if ($self->{'options'}{$key} and ref $self->{'options'}{$key} eq 'ARRAY') { }
118 25 45 if ("$option_type" eq '1')
147 46 30 if (defined $self->{'options'}{$option}) { }
148 10 36 if (ref $self->{'options'}{$option} eq 'ARRAY') { }
182 0 126 unless (length $string)
187 34 92 if (my $key = $class->key_read($string))
205 92 0 $rc ? :
210 18 74 if (my $key = $class->key_read($key_string))
232 47 1 if defined $_
238 17 28 unless defined $value
281 96 0 if (not defined *{"${package}::$name";})
282 0 96 unless eval $code
18 3 if (defined $value)
21 0 if (exists $self->{'keylen'}) { }
20 18 if (defined $value)
38 0 if (exists $self->{'error'}) { }
48 12 if (defined $value)
60 0 if (exists $self->{'email'}) { }
47 9 if (defined $value)
56 0 if (exists $self->{'key'}) { }
4 35 if (defined $value)
39 0 if (exists $self->{'type'}) { }
51 16 if (defined $value)
67 0 if (exists $self->{'comment'}) { }
33 12 if (defined $value)
45 0 if (exists $self->{'exponent'}) { }
6 6 if (defined $value)
12 0 if (exists $self->{'encryption'}) { }