File Coverage

inc/IO/Capture/Stdout.pm
Criterion Covered Total %
statement 16 24 66.6
branch 2 4 50.0
condition n/a
subroutine 5 7 71.4
pod n/a
total 23 35 65.7


line stmt bran cond sub pod time code
1             #line 1
2 1     1   7119 package IO::Capture::Stdout;
  1         3  
  1         100  
3 1     1   7 use Carp;
  1         2  
  1         780  
4 1     1   2816 use base qw/IO::Capture/;
  1         2  
  1         183  
5             use IO::Capture::Tie_STDx;
6              
7 1     1   2 sub _start {
8 1         10 my $self = shift;
9 1         8 $self->line_pointer(1);
10             tie *STDOUT, "IO::Capture::Tie_STDx";
11             }
12              
13 0     0   0 sub _retrieve_captured_text {
14 0         0 my $self = shift;
  0         0  
15             my $messages = \@{$self->{'IO::Capture::messages'}};
16 0         0  
17             @$messages = ;
18 0         0 #$self->line_pointer(1);
19             return 1;
20             }
21              
22 1     1   2 sub _check_pre_conditions {
23             my $self = shift;
24 1 50       8  
25             return unless $self->SUPER::_check_pre_conditions;
26 1 50       4  
27 0         0 if (tied *STDOUT) {
28 0         0 carp "WARNING: STDOUT already tied, unable to capture";
29             return;
30 1         5 }
31             return 1;
32             }
33              
34 0     0     sub _stop {
35             untie *STDOUT;
36             }
37             1;
38              
39             #line 291