File Coverage

blib/lib/ASP4/OutBuffer.pm
Criterion Covered Total %
statement 16 16 100.0
branch 2 2 100.0
condition n/a
subroutine 7 7 100.0
pod 0 4 0.0
total 25 29 86.2


line stmt bran cond sub pod time code
1              
2             package ASP4::OutBuffer;
3              
4 9     9   31 use strict;
  9         11  
  9         231  
5 9     9   32 use warnings 'all';
  9         16  
  9         1241  
6              
7              
8             sub new {
9 5130     5130 0 21915 return bless { data => '' }, shift;
10             }
11              
12             sub add {
13 38639     38639 0 25611 my ($s, $str) = @_;
14 38639 100       43601 return unless defined($str);
15 38637         36468 $s->{data} .= $str;
16 38637         47689 return;
17             }
18 10276     10276 0 19329 sub data { shift->{data} }
19 10276     10276 0 14308 sub clear {shift->{data} = '' }
20              
21             sub DESTROY {
22 5124     5124   3930 my $s = shift;
23 5124         6494 delete($s->{data});
24 5124         14019 undef(%$s);
25             }
26              
27             1;# return true:
28