| blib/lib/Data/Util/PurePerl.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 80 | 81 | 98.7 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 27 | 344 | 48 | 31 | &Scalar::Util::blessed($_[0]) && overload::Method($_[0], $_[1]) |
| 58 | 7 | 17 | 3 | &Scalar::Util::blessed($obj) && $obj->isa($class) |
| 107 | 4 | 1 | 2 | &Scalar::Util::blessed($obj) && $obj->isa($class) |
| 129 | 4 | 1 | 6 | defined $_[0] && !ref($_[0]) && ref \$_[0] ne 'GLOB' |
| 133 | 14 | 20 | 416 | !ref($_[0]) && ref \$_[0] ne 'GLOB' && length $_[0] > 0 |
| 241 | 5 | 6 | 3 | @_ == 1 && is_hash_ref($_[0]) |
| 251 | 1 | 1 | 1 | defined $specified_code and $specified_code != $glob |
| 269 | 8 | 4 | 1 | defined $specified_code and $specified_code != $code |
| 346 | 53 | 1 | 25 | is_scalar_ref($arg) and is_integer($$arg) |
| 2 | 38 | 14 | defined $arg and \$arg == \*_ | |
| 477 | 1 | 46 | 0 | is_string($name) and exists $valid_modifiers{$name} |
| 541 | 21 | 61 | 1 | defined $validator and not $vh || is_array_ref($validator) || is_string($validator) |
| 551 | 31 | 80 | 2 | $require_unique and $seen{$name}++ |
| 560 | 48 | 4 | 59 | defined $value and defined($vh ? $validator = $must_be->{$name} : $validator) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 32 | 31 | 2 | 59 | ref $_[0] eq 'SCALAR' || ref $_[0] eq 'REF' || _overloaded($_[0], '${}') |
| 35 | 99 | 5 | 60 | ref $_[0] eq 'ARRAY' || _overloaded($_[0], '@{}') |
| 38 | 20 | 5 | 169 | ref $_[0] eq 'HASH' || _overloaded($_[0], '%{}') |
| 41 | 75 | 6 | 25 | ref $_[0] eq 'CODE' || _overloaded($_[0], '&{}') |
| 44 | 8 | 2 | 55 | ref $_[0] eq 'GLOB' || _overloaded($_[0], '*{}') |
| 72 | 2 | 2 | 6 | ref $_[0] eq 'SCALAR' || ref $_[0] eq 'REF' || _overloaded($_[0], '${}') |
| 77 | 86 | 3 | 5 | ref $_[0] eq 'ARRAY' || _overloaded($_[0], '@{}') |
| 81 | 1 | 2 | 3 | ref $_[0] eq 'HASH' || _overloaded($_[0], '%{}') |
| 85 | 269 | 2 | 8 | ref $_[0] eq 'CODE' || _overloaded($_[0], '&{}') |
| 89 | 1 | 2 | 2 | ref $_[0] eq 'GLOB' || _overloaded($_[0], '*{}') |
| 137 | 1 | 2 | 122 | not defined $_[0] or ref $_[0] |
| 151 | 2 | 2 | 50 | not defined $_[0] or ref $_[0] |
| 541 | 5 | 50 | 1 | $vh || is_array_ref($validator) || is_string($validator) |