Branch Coverage

blib/lib/PerlIO/via/Rotate.pm
Criterion Covered Total %
branch 18 66 27.2


line true false branch
53 1 4 if @_ == 1 and $_[0] eq ':all'
54 3 2 unless @_
62 0 33 if not /^[0-9]+$/ or $_ < 0 or $_ > 26
67 0 33 if $INC{$module}
78 31 2 if (my $encode = $rotate[$_] . uc($rotate[$_]))
99 33 0 if (eval "$source; 1") { }
2 16 unless defined $_
3 8 print({$_[2];} $_) ? :
0 0 unless defined $_
0 0 unless defined $_
1 0 unless defined $_
0 0 unless defined $_
0 0 unless defined $_
0 0 unless defined $_
0 0 unless defined $_
0 0 unless defined $_
0 0 unless defined $_
0 0 unless defined $_
0 0 unless defined $_
0 0 unless defined $_
1 8 unless defined $_
0 0 unless defined $_
0 0 unless defined $_
0 0 unless defined $_
0 0 unless defined $_
0 0 unless defined $_
0 0 unless defined $_
0 0 unless defined $_
0 0 unless defined $_
110 0 5 if @huh
138 1 0 unless /::rot(?:0|26)$/
153 0 0 unless /::rot(?:0|26)$/
155 0 0 print({$_[2];} $_[1]) ? :