| blib/lib/Data/Printer/Filter/REF.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 3 | 4 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 14 | 12 | 25 | if (not &Scalar::Util::blessed($$ref) and ref $$ref eq 'REF' || ref $$ref eq 'SCALAR' || ref $$ref eq 'VSTRING') |
| 19 | 0 | 65 | if ($ddp->show_tied and my $tie = ref tied $ref) |