File Coverage

blib/lib/Pod/Tree/StrStream.pm
Criterion Covered Total %
statement 18 19 94.7
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 0 3 0.0
total 25 30 83.3


line stmt bran cond sub pod time code
1             package Pod::Tree::StrStream;
2 13     13   2848606 use 5.006;
  13         65  
3 13     13   96 use strict;
  13         34  
  13         314  
4 13     13   88 use warnings;
  13         34  
  13         2392  
5              
6             our $VERSION = '1.30';
7              
8             sub new {
9 12     12 0 28 my ( $class, $ref ) = @_;
10              
11 12 50       32 if ($ref) {
12 0         0 return bless $ref, $class;
13             }
14             else {
15 12         22 my $st = '';
16 12         126 return bless \$st, $class;
17             }
18             }
19              
20             sub print {
21 2192     2192 0 36379 my $st = shift;
22 2192         27166 $$st .= join( '', @_ );
23             }
24              
25             sub get {
26 24     24 0 40 my $st = shift;
27 24         79 my $s = $$st;
28 24         39 $$st = '';
29 24         72 $s;
30             }
31              
32             1;
33