File Coverage

lib/MKDoc/Text/Structured/H1.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 18 19 94.7


line stmt bran cond sub pod time code
1             package MKDoc::Text::Structured::H1;
2 20     20   116 use MKDoc::Text::Structured::Inline;
  20         37  
  20         626  
3 20     20   97 use warnings;
  20         33  
  20         652  
4 20     20   92 use strict;
  20         45  
  20         7722  
5              
6              
7             sub process
8             {
9 1     1 0 2 my $self = shift;
10 1         2 my $text = join "\n", @{$self->{lines}};
  1         5  
11 1         6 $text = MKDoc::Text::Structured::Inline::process ($text);
12 1         6 return "

$text

";
13             }
14              
15              
16             1;
17              
18              
19             __END__