File Coverage

lib/MKDoc/Text/Structured/Base.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition 2 2 100.0
subroutine 4 4 100.0
pod 0 2 0.0
total 18 20 90.0


line stmt bran cond sub pod time code
1             package MKDoc::Text::Structured::Base;
2 20     20   193 use warnings;
  20         38  
  20         586  
3 20     20   105 use strict;
  20         37  
  20         2138  
4              
5             sub new
6             {
7 56     56 0 86 my $class = shift;
8 56         298 return bless {}, $class;
9             }
10              
11             sub add_line
12             {
13 289     289 0 520 my $self = shift;
14 289   100     1146 $self->{lines} ||= [];
15 289         332 push @{$self->{lines}}, @_;
  289         1410  
16             }
17              
18             1;
19              
20             __END__