| blib/lib/Hash/Transform.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 30 | 56.6 |
| line | true | false | branch |
|---|---|---|---|
| 23 | 1 | 0 | if @_ |
| 30 | 0 | 1 | unless @_ |
| 32 | 0 | 1 | unless $hash_ref |
| 40 | 0 | 8 | unless defined $code and ref $data eq 'HASH' |
| 42 | 4 | 4 | if '' eq ref $code |
| 45 | 2 | 2 | if 'SCALAR' eq ref $code |
| 48 | 1 | 1 | if 'CODE' eq ref $code |
| 55 | 1 | 0 | if 'ARRAY' eq ref $code |
| 56 | 3 | 0 | defined $entry ? : |
| 67 | 0 | 1 | unless my $source = _hash_arg(@_) |
| 69 | 0 | 1 | unless my $rules = $$self{'rules'} |
| 78 | 0 | 1 | wantarray ? : |
| 83 | 0 | 0 | @_ % 2 == 0 ? : |
| 2 | 0 | @_ == 1 && ref $_[0] eq 'HASH' ? : | |
| 88 | 0 | 2 | wantarray ? : |