| blib/lib/IO/Pager/Unbuffered.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 10 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 15 | 2 | 2 | if (defined $class and $class eq '0' or $@ =~ /!TTY/) |
| 17 | 0 | 2 | if defined $_[2] and $_[2] eq 'procedural' |
| 20 | 0 | 2 | unless eval 'require IO::Handle' |
| 23 | 0 | 2 | if $@ =~ /pipe/ |
| 25 | 0 | 0 | unless my $self = tie(*$tied_fh, $class, $tied_fh) |