blib/lib/Perl/Tidy/IOScalarArray.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 4 | 12 | 33.3 |
line | true | false | branch |
---|---|---|---|
25 | 0 | 0 | if $AUTOLOAD =~ /\bDESTROY$/ |
48 | 0 | 2 | if ($ref ne "ARRAY") |
56 | 0 | 2 | if ($mode eq 'w') { } |
2 | 0 | elsif ($mode eq 'r') { } | |
76 | 0 | 15 | if ($mode ne "r") |
90 | 0 | 0 | if ($mode ne "w") |