Branch Coverage

blib/lib/Perl/Tidy/IOScalar.pm
Criterion Covered Total %
branch 3 16 18.7


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.42.0/B/Deparse.pm line 5762.
51 0 640 if ($ref ne "SCALAR")
59 640 0 if ($mode eq 'w') { }
0 0 elsif ($mode eq 'r') { }
68 0 0 if ($rscalar and ${$rscalar;})
86 0 0 if ($mode ne "r")
100 0 94 if ($mode ne "w")