Branch Coverage

blib/lib/Text/APL/Reader.pm
Criterion Covered Total %
branch 9 12 75.0


line true false branch
14 1 23 if (not ref $input) { }
1 22 elsif (ref $input eq 'GLOB') { }
21 1 elsif (ref $input eq 'SCALAR') { }
1 0 elsif (ref $input eq 'CODE') { }
37 0 1 unless open my $fh, '<', $input
39 1 0 if (my $charset = $self->{'charset'})