| blib/lib/Types/ReadOnly.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 10 | 80.0 |
| line | true | false | branch |
|---|---|---|---|
| 27 | 6 | 4 | if (my $reftype = &reftype($_[0]) and not &blessed($_[0]) and not &Internals::SvREADONLY($_[0])) |
| 28 | 3 | 3 | if not $dont_clone and &Internals::SvREFCNT($_[0]) > 1 and not $skip{$reftype} |
| 30 | 0 | 6 | if ($reftype eq 'SCALAR' or $reftype eq 'REF') { } |
| 3 | 3 | elsif ($reftype eq 'ARRAY') { } | |
| 3 | 0 | elsif ($reftype eq 'HASH') { } |