| lib/Devel/WatchVars.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 14 | 71.4 |
| line | true | false | branch |
|---|---|---|---|
| 38 | 0 | 1 | defined $sref ? : |
| 0 | 1 | $reftype ? : | |
| 1 | 5 | unless $reftype =~ /^(?:SCALAR|REF)\z/ | |
| 44 | 2 | 3 | if &readonly($$sref) |
| 55 | 0 | 4 | unless ref $tref eq 'SCALAR' |
| 57 | 1 | 2 | unless $self->isa($TIE_PACKAGE) |
| 61 | 2 | 0 | if ref $sref eq 'SCALAR' |