blib/lib/Crypt/CAST5_PP.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 15 | 24 | 62.5 |
line | true | false | branch |
---|---|---|---|
16 | 0 | 1 | if defined $key |
130 | 0 | 3 | if length $key < 5 or length $key > 16 |
136 | 3 | 0 | if $key =~ /^(.*)$/s |
182 | 2 | 1 | length $key <= 10 ? : |
191 | 0 | 3 | if length $block != 8 |
194 | 3 | 0 | unless ($encrypt) |
195 | 0 | 3 | unless my $key = $$cast5{'key'} |
205 | 39 | 1 | if ($kr) |
227 | 0 | 3 | if length $block != 8 |
230 | 3 | 0 | unless ($decrypt) |
231 | 0 | 3 | unless my $key = $$cast5{'key'} |
243 | 39 | 1 | if ($kr) |