File Coverage

blib/lib/Text/Markup/None.pm
Criterion Covered Total %
statement 21 21 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 28 30 93.3


line stmt bran cond sub pod time code
1             package Text::Markup::None;
2              
3 2     2   24 use 5.8.1;
  2         6  
4 2     2   10 use strict;
  2         2  
  2         36  
5 2     2   9 use warnings;
  2         3  
  2         64  
6 2     2   591 use HTML::Entities;
  2         6010  
  2         135  
7 2     2   1052 use File::BOM qw(open_bom);
  2         53752  
  2         418  
8              
9             our $VERSION = '0.30';
10              
11             sub parser {
12 1     1 0 5 my ($file, $encoding, $opts) = @_;
13 1         9 open_bom my $fh, $file, ":encoding($encoding)";
14 1         1464 local $/;
15 1         33 my $html = encode_entities(<$fh>, '<>&"');
16 1         564 utf8::encode($html);
17 1 50       6 return $html if $opts->{raw};
18 1         40 return qq{
19            
20            
21            
22            
23             
$html
24            
25            
26             };
27             }
28              
29             1;
30             __END__