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 122 unless (length $string)
187 31 91 if (my $key = $class->key_read($string))
205 91 0 $rc ? :
210 18 73 if (my $key = $class->key_read($key_string))
232 47 1 if defined $_
238 17 28 unless defined $value
281 88 0 if (not defined *{"${package}::$name";})
282 0 88 unless eval $code
22 5 if (defined $value)
27 0 if (exists $$self{'exponent'}) { }
10 7 if (defined $value)
17 0 if (exists $$self{'comment'}) { }
37 13 if (defined $value)
50 0 if (exists $$self{'error'}) { }
46 20 if (defined $value)
66 0 if (exists $$self{'key'}) { }
17 38 if (defined $value)
55 0 if (exists $$self{'email'}) { }
44 7 if (defined $value)
51 0 if (exists $$self{'keylen'}) { }
29 4 if (defined $value)
33 0 if (exists $$self{'encryption'}) { }
8 12 if (defined $value)
20 0 if (exists $$self{'type'}) { }