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   2849241 use 5.006;
  13         55  
3 13     13   86 use strict;
  13         30  
  13         289  
4 13     13   60 use warnings;
  13         36  
  13         2138  
5              
6             our $VERSION = '1.29';
7              
8             sub new {
9 12     12 0 27 my ( $class, $ref ) = @_;
10              
11 12 50       27 if ($ref) {
12 0         0 return bless $ref, $class;
13             }
14             else {
15 12         22 my $st = '';
16 12         37 return bless \$st, $class;
17             }
18             }
19              
20             sub print {
21 2192     2192 0 29583 my $st = shift;
22 2192         21844 $$st .= join( '', @_ );
23             }
24              
25             sub get {
26 24     24 0 37 my $st = shift;
27 24         70 my $s = $$st;
28 24         42 $$st = '';
29 24         52 $s;
30             }
31              
32             1;
33