| blib/lib/Perl/Tidy/IOScalar.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 3 | 18 | 16.6 |
| line | true | false | branch |
|---|---|---|---|
| 24 | 0 | 0 | if $AUTOLOAD =~ /\bDESTROY$/ |
| 28 | 0 | 0 | if $AUTOLOAD =~ /\bclose$/ and Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018. |
| 51 | 0 | 553 | if ($ref ne "SCALAR") |
| 59 | 553 | 0 | if ($mode eq 'w') { } |
| 0 | 0 | elsif ($mode eq 'r') { } | |
| 71 | 0 | 0 | if ($rscalar and ${$rscalar;}) |
| 77 | 0 | 0 | if (@array and $array[-1] eq "\n") |
| 94 | 0 | 0 | if ($mode ne "r") |
| 109 | 0 | 110 | if ($mode ne "w") |