File Coverage

blib/lib/Test2/Plugin/IOEvents.pm
Criterion Covered Total %
statement 22 22 100.0
branch 2 4 50.0
condition n/a
subroutine 7 7 100.0
pod n/a
total 31 33 93.9


line stmt bran cond sub pod time code
1             package Test2::Plugin::IOEvents;
2 2     2   185326 use strict;
  2         5  
  2         60  
3 2     2   13 use warnings;
  2         6  
  2         102  
4              
5             our $VERSION = '0.000009';
6              
7 2     2   317 use Test2::Plugin::OpenFixPerlIO;
  2         7  
  2         53  
8 2     2   815 use Test2::Plugin::IOEvents::STDOUT;
  2         7  
  2         152  
9 2     2   801 use Test2::Plugin::IOEvents::STDERR;
  2         7  
  2         198  
10              
11             my %DONE;
12             sub import {
13 1     1   15 my $class = shift;
14              
15 1 50   1   6 binmode(STDOUT, ':via(Test2::Plugin::IOEvents::STDOUT)') unless $DONE{fileno(\*STDOUT)}++;
  1         1  
  1         6  
  1         26  
16 1 50       25 binmode(STDERR, ':via(Test2::Plugin::IOEvents::STDERR)') unless $DONE{fileno(\*STDERR)}++;
17              
18 1         3 1;
19             }
20              
21             1;
22              
23             __END__