| blib/lib/Test2/Formatter/EventStream.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 2 | 3 | 66.6 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 17 | 2 | 2 | 0 | $self->{'fh'} ||= do { die 'Could not clone STDOUT' unless open my $h, '>&', *STDOUT; my $old = select($h); $| = 1; select STDERR; $| = 1; select STDOUT; $| = 1; select $old; $h } |