| blib/lib/Data/Comparable.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 22 | 81.8 |
| line | true | false | branch |
|---|---|---|---|
| 14 | 40 | 16 | unless ($class) |
| 18 | 40 | 0 | defined $scalar ? : |
| 25 | 8 | 8 | if ($class ne 'HASH' and $class ne 'ARRAY') |
| 26 | 0 | 8 | unless $class->require |
| 27 | 0 | 8 | if (UNIVERSAL::can($scalar, 'prepare_comparable')) |
| 31 | 4 | 12 | if (UNIVERSAL::can($scalar, 'comparable')) { } |
| 4 | 8 | elsif ($class eq 'ARRAY') { } | |
| 49 | 2 | 6 | if ref $scalar ne 'HASH' and not $skip_bless |
| 56 | 4 | 0 | if (UNIVERSAL::can($self, 'prepare_comparable')) |
| 62 | 4 | 28 | if exists $skip_keys{$key} |
| 65 | 2 | 2 | unless $skip_bless |