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   2809417 use 5.006;
  13         59  
3 13     13   83 use strict;
  13         31  
  13         348  
4 13     13   86 use warnings;
  13         40  
  13         2245  
5              
6             our $VERSION = '1.31';
7              
8             sub new {
9 12     12 0 35 my ( $class, $ref ) = @_;
10              
11 12 50       32 if ($ref) {
12 0         0 return bless $ref, $class;
13             }
14             else {
15 12         24 my $st = '';
16 12         44 return bless \$st, $class;
17             }
18             }
19              
20             sub print {
21 2192     2192 0 35629 my $st = shift;
22 2192         27712 $$st .= join( '', @_ );
23             }
24              
25             sub get {
26 24     24 0 44 my $st = shift;
27 24         63 my $s = $$st;
28 24         42 $$st = '';
29 24         60 $s;
30             }
31              
32             1;
33