File Coverage

blib/lib/App/RecordStream/Stream/Printer.pm
Criterion Covered Total %
statement 6 10 60.0
branch n/a
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 8 14 57.1


line stmt bran cond sub pod time code
1             package App::RecordStream::Stream::Printer;
2              
3 69     69   343 use App::RecordStream::Stream::Base;
  69         118  
  69         1605  
4              
5 69     69   270 use base 'App::RecordStream::Stream::Base';
  69         108  
  69         7394  
6              
7             sub accept_line
8             {
9 0     0 0   my $this = shift;
10 0           my $line = shift;
11              
12 0           print "$line\n";
13              
14 0           return 1;
15             }
16              
17             1;