| blib/lib/Algorithm/CheckDigits.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 18 | 27.7 |
| line | true | false | branch |
|---|---|---|---|
| 213 | 110 | 0 | if (my $pkg = $methods{lc $method}) { } |
| 230 | 0 | 0 | wantarray ? : |
| 235 | 0 | 0 | if ($meths[0] eq "Algorithm::CheckDigits") |
| 239 | 0 | 0 | if (0 == scalar @meths) |
| 242 | 0 | 0 | $methods{$_} ? : |
| 244 | 0 | 0 | wantarray ? : |
| 248 | 3 | 6 | if ("Algorithm::CheckDigits" eq $_[0]) |
| 255 | 2 | 7 | if (exists $methods{$key}) |
| 274 | 0 | 0 | unless ($attr =~ /^Algorithm::CheckDigits::[A-Za-z_0-9]*$/) |