File Coverage

blib/lib/YAML/Perl/Stream.pm
Criterion Covered Total %
statement 22 26 84.6
branch 1 2 50.0
condition n/a
subroutine 7 8 87.5
pod 0 3 0.0
total 30 39 76.9


line stmt bran cond sub pod time code
1             package YAML::Perl::Stream;
2 7     7   42 use strict;
  7         14  
  7         219  
3 7     7   38 use warnings;
  7         12  
  7         321  
4              
5             package YAML::Perl::Stream::Input;
6 7     7   36 use YAML::Perl::Base -base;
  7         15  
  7         63  
7              
8             package YAML::Perl::Stream::Input;
9 7     7   40 use YAML::Perl::Base -base;
  7         12  
  7         37  
10              
11             package YAML::Perl::Stream::Output;
12 7     7   42 use YAML::Perl::Base -base;
  7         12  
  7         40  
13              
14             field 'buffer';
15              
16             sub open {
17 29     29 0 59 my $self = shift;
18 29 50       92 if (not @_) {
19 29         53 my $output = '';
20 29         886 $self->buffer(\$output);
21             }
22             else {
23 0         0 XXX @_;
24             }
25 29         75 return 1;
26             }
27              
28             sub write {
29 368     368 0 421 ${$_[0]->buffer} .= $_[1];
  368         8747  
30             }
31              
32             sub string {
33 0     0 0   my $self = shift;
34 0           return ${$self->buffer};
  0            
35             }
36              
37             1;