File Coverage

blib/lib/WikiText/Emitter.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 3 0.0
total 26 29 89.6


line stmt bran cond sub pod time code
1 3     3   1514 use strict; use warnings;
  3     3   7  
  3         103  
  3         14  
  3         8  
  3         101  
2             package WikiText::Emitter;
3              
4 3     3   707 use base 'WikiText::Receiver';
  3         6  
  3         1091  
5              
6             sub init {
7 8     8 0 14 my $self = shift;
8 8         32 $self->{output} = '';
9             }
10              
11             sub content {
12 7     7 0 10 my $self = shift;
13 7         156 return $self->{output};
14             }
15              
16             sub insert {
17 20     20 0 23 my $self = shift;
18 20         34 my $ast = shift;
19 3     3   19 no warnings 'uninitialized';
  3         4  
  3         186  
20 20         56 $self->{output} .= $ast->{output};
21             }
22              
23             1;