File Coverage

inc/IO/Capture/Tie_STDx.pm
Criterion Covered Total %
statement 2 11 18.1
branch 0 2 0.0
condition n/a
subroutine 1 5 20.0
pod n/a
total 3 18 16.6


line stmt bran cond sub pod time code
1             #line 1
2             package IO::Capture::Tie_STDx;
3              
4 1     1   2 sub TIEHANDLE {
5 1         95 my $class = shift;
6             bless [], $class;
7             }
8              
9 0     0     sub PRINTF {
10 0           my $self = shift;
11 0           my $format = shift;
12             $self->PRINT( sprintf( $format, @_ ) );
13             }
14              
15 0     0     sub PRINT {
16 0           my $self = shift;
17             push @$self, join '',@_;
18             }
19              
20 0     0     sub READLINE {
21 0 0         my $self = shift;
22             return wantarray ? @$self : shift @$self;
23             }
24              
25 0     0     sub CLOSE {
26 0           my $self = shift;
27             return close $self;
28             }
29              
30             #line 47
31              
32             1;