| blib/lib/Perl/Tidy/IOScalar.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 16 | 62.5 |
| line | true | false | branch |
|---|---|---|---|
| 23 | 0 | 0 | if $AUTOLOAD =~ /\bDESTROY$/ |
| 46 | 0 | 2759 | if ($ref ne "SCALAR") |
| 54 | 1103 | 1656 | if ($mode eq 'w') { } |
| 1656 | 0 | elsif ($mode eq 'r') { } | |
| 66 | 1321 | 335 | if ($rscalar and ${$rscalar;}) |
| 72 | 1183 | 138 | if (@array and $array[-1] eq "\n") |
| 89 | 0 | 17405 | if ($mode ne "r") |
| 103 | 0 | 8563 | if ($mode ne "w") |