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   145267 use strict;
  2         4  
  2         48  
3 2     2   10 use warnings;
  2         4  
  2         69  
4              
5             our $VERSION = '0.000007';
6              
7 2     2   311 use Test2::Plugin::OpenFixPerlIO;
  2         8  
  2         38  
8 2     2   607 use Test2::Plugin::IOEvents::STDOUT;
  2         6  
  2         44  
9 2     2   638 use Test2::Plugin::IOEvents::STDERR;
  2         5  
  2         137  
10              
11             my %DONE;
12             sub import {
13 1     1   16 my $class = shift;
14              
15 1 50   1   5 binmode(STDOUT, ':via(Test2::Plugin::IOEvents::STDOUT)') unless $DONE{fileno(\*STDOUT)}++;
  1         2  
  1         6  
  1         23  
16 1 50       22 binmode(STDERR, ':via(Test2::Plugin::IOEvents::STDERR)') unless $DONE{fileno(\*STDERR)}++;
17              
18 1         4 1;
19             }
20              
21             1;
22              
23             __END__