File Coverage

blib/lib/Text/Markup/Multimarkdown.pm
Criterion Covered Total %
statement 24 24 100.0
branch 4 6 66.6
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 34 37 91.8


line stmt bran cond sub pod time code
1             package Text::Markup::Multimarkdown;
2              
3 1     1   12248 use 5.8.1;
  1         4  
4 1     1   6 use strict;
  1         3  
  1         20  
5 1     1   4 use warnings;
  1         4  
  1         27  
6 1     1   6 use File::BOM qw(open_bom);
  1         1  
  1         54  
7 1     1   5 use Text::MultiMarkdown ();
  1         2  
  1         200  
8              
9             our $VERSION = '0.30';
10              
11             sub parser {
12 2     2 0 11 my ($file, $encoding, $opts) = @_;
13 2 50       11 my $md = Text::MultiMarkdown->new(@{ $opts || [] });
  2         25  
14 2         63 open_bom my $fh, $file, ":encoding($encoding)";
15 2         482 local $/;
16 2         51 my $html = $md->markdown(<$fh>);
17 2 100       6334 return unless $html =~ /\S/;
18 1         4 utf8::encode($html);
19 1 50       4 return $html if $opts->{raw};
20 1         38 return qq{
21            
22            
23            
24            
25             $html
26            
27            
28             };
29              
30             }
31              
32             1;
33             __END__