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   75568 use version; $VERSION = qv('0.3.5');
  27         1557  
  27         132  
4              
5 27     27   2072 use strict;
  27         48  
  27         580  
6 27     27   135 use warnings;
  27         46  
  27         732  
7 27     27   580 use Test::Trap::Builder;
  27         42  
  27         1058  
8 27     27   158 use PerlIO 'scalar';
  27         51  
  27         163  
9              
10             sub import {
11 29     29   269 Test::Trap::Builder->capture_strategy( perlio => $_ ) for sub {
12 42     42   50 my $self = shift;
13 42         63 my ($name, $fileno, $globref) = @_;
14 42         76 local *$globref;
15             {
16 27     27   19157 no warnings 'io';
  27         55  
  27         2056  
  42         49  
17 42         244 open *$globref, '>', \$self->{$name};
18             }
19 42         90 $self->Next;
20             };
21             }
22              
23             1; # End of Test::Trap::Builder::PerlIO
24              
25             __END__