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   211461 use strict;
  2         7  
  2         65  
3 2     2   13 use warnings;
  2         6  
  2         105  
4              
5             our $VERSION = '0.000008';
6              
7 2     2   512 use Test2::Plugin::OpenFixPerlIO;
  2         10  
  2         65  
8 2     2   977 use Test2::Plugin::IOEvents::STDOUT;
  2         7  
  2         60  
9 2     2   786 use Test2::Plugin::IOEvents::STDERR;
  2         7  
  2         184  
10              
11             my %DONE;
12             sub import {
13 1     1   20 my $class = shift;
14              
15 1 50   1   9 binmode(STDOUT, ':via(Test2::Plugin::IOEvents::STDOUT)') unless $DONE{fileno(\*STDOUT)}++;
  1         3  
  1         8  
  1         39  
16 1 50       27 binmode(STDERR, ':via(Test2::Plugin::IOEvents::STDERR)') unless $DONE{fileno(\*STDERR)}++;
17              
18 1         5 1;
19             }
20              
21             1;
22              
23             __END__