| lib/Digest/Perl/MD5.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 18 | 77.7 |
| line | true | false | branch |
|---|---|---|---|
| 24 | 50247 | 29 | $l % 64 <= 56 ? : |
| 61 | 0 | 64 | unless $data =~ /^[FGHI]/ |
| 129 | 271 | 10 | if @_ |
| 136 | 25 | 256 | if ($c) |
| 147 | 10 | 0 | $l % 64 <= 56 ? : |
| 156 | 0 | 1 | if (not ref $fh and ref \$fh ne 'GLOB') |
| 164 | 0 | 1 | unless defined $read |
| 170 | 1 | 2 | if @_ == 1 |
| 172 | 1 | 1 | if $n % 8 |