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") |