| blib/lib/Type/Tie/Aggregate/Deep.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 24 | 79.1 |
| line | true | false | branch |
|---|---|---|---|
| 46 | 6 | 357 | if defined $type and $type eq 'REF' |
| 60 | 0 | 50 | unless my $get = $get_children{$type} |
| 78 | 18 | 52 | if ref $_ ne '' |
| 81 | 0 | 18 | unless my $type = 'Type::Tie::Aggregate::Deep'->_check_ref_type($ref) |
| 83 | 9 | 9 | if $tied |
| 88 | 8 | 10 | if (defined $tied_type and $tied_type =~ /^\Q$pkg\E::/u) { } |
| 89 | 1 | 7 | if ($tied->object != $obj) |
| 98 | 1 | 0 | $type eq 'HASH' ? : |
| 9 | 1 | $type eq 'ARRAY' ? : | |
| 0 | 10 | $type eq 'SCALAR' ? : | |
| 106 | 1 | 9 | if $tied |
| 198 | 128 | 0 | unless @_ |