File Coverage

blib/lib/Test/Trap/Builder/PerlIO.pm
Criterion Covered Total %
statement 25 25 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod n/a
total 33 33 100.0


line stmt bran cond sub pod time code
1             package Test::Trap::Builder::PerlIO;
2              
3 27     27   92233 use version; $VERSION = qv('0.3.4');
  27         2028  
  27         177  
4              
5 27     27   2266 use strict;
  27         73  
  27         554  
6 27     27   144 use warnings;
  27         71  
  27         765  
7 27     27   668 use Test::Trap::Builder;
  27         95  
  27         1101  
8 27     27   210 use PerlIO 'scalar';
  27         52  
  27         198  
9              
10             sub import {
11 29     29   285 Test::Trap::Builder->capture_strategy( perlio => $_ ) for sub {
12 42     42   65 my $self = shift;
13 42         79 my ($name, $fileno, $globref) = @_;
14 42         82 local *$globref;
15             {
16 27     27   24450 no warnings 'io';
  27         68  
  27         2485  
  42         64  
17 42         293 open *$globref, '>', \$self->{$name};
18             }
19 42         118 $self->Next;
20             };
21             }
22              
23             1; # End of Test::Trap::Builder::PerlIO
24              
25             __END__