Branch Coverage

blib/lib/CGI/EncryptForm.pm
Criterion Covered Total %
branch 24 38 63.1


line true false branch
58 0 3 if (not defined $decrypted_hashref || defined $$self{'_encrypted_string'}) { }
0 3 elsif (not defined $decrypted_hashref) { }
66 0 3 if (ref $decrypted_hashref ne 'HASH')
77 3 0 $self->usecharset ? :
106 0 6 if (not defined $encrypted_string || defined $$self{'_decrypted_hashref'}) { }
0 6 elsif (not defined $encrypted_string) { }
115 1 5 if ($self->usecharset and length($encrypted_string) % 2 != 0)
121 5 0 $self->usecharset ? :
126 1 4 if (length $random_key != 4)
139 1 3 if (length $digest != 20)
146 1 2 if ($digest ne sha1($plaintxt))
174 3 9 if (defined $secret_key) { }
0 9 elsif (not defined $$self{'_secret_key'}) { }
202 0 2 if (defined $charset and ref $charset ne 'ARRAY' or not defined $charset) { }
0 2 elsif (defined $charset and $#$charset != 255) { }
240 0 14 if defined $usecharset
242 14 0 $$self{'_usecharset'} ? :
261 4 36 if ($errormsg) { }
288 0 0 unless ($self->can($_))