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   12060 use 5.8.1;
  1         5  
4 1     1   6 use strict;
  1         2  
  1         37  
5 1     1   8 use warnings;
  1         2  
  1         31  
6 1     1   5 use File::BOM qw(open_bom);
  1         2  
  1         44  
7 1     1   5 use Text::MultiMarkdown ();
  1         2  
  1         208  
8              
9             our $VERSION = '0.25';
10              
11             sub parser {
12 2     2 0 8 my ($file, $encoding, $opts) = @_;
13 2 50       5 my $md = Text::MultiMarkdown->new(@{ $opts || [] });
  2         19  
14 2         65 open_bom my $fh, $file, ":encoding($encoding)";
15 2         491 local $/;
16 2         52 my $html = $md->markdown(<$fh>);
17 2 100       6257 return unless $html =~ /\S/;
18 1         4 utf8::encode($html);
19 1 50       4 return $html if $opts->{raw};
20 1         39 return qq{
21            
22            
23            
24            
25             $html
26            
27            
28             };
29              
30             }
31              
32             1;
33             __END__