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   107496 use version; $VERSION = qv('0.3.3');
  27         2531  
  27         191  
4              
5 27     27   2721 use strict;
  27         73  
  27         758  
6 27     27   169 use warnings;
  27         80  
  27         896  
7 27     27   580 use Test::Trap::Builder;
  27         65  
  27         1329  
8 27     27   809 use PerlIO 'scalar';
  27         103  
  27         264  
9              
10             sub import {
11 29     29   331 Test::Trap::Builder->capture_strategy( perlio => $_ ) for sub {
12 42     42   94 my $self = shift;
13 42         128 my ($name, $fileno, $globref) = @_;
14 42         141 local *$globref;
15             {
16 27     27   20657 no warnings 'io';
  27         77  
  27         2669  
  42         88  
17 42         461 open *$globref, '>', \$self->{$name};
18             }
19 42         205 $self->Next;
20             };
21             }
22              
23             1; # End of Test::Trap::Builder::PerlIO
24              
25             __END__