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   26 use 5.8.1;
  2         7  
4 2     2   11 use strict;
  2         4  
  2         58  
5 2     2   12 use warnings;
  2         2  
  2         47  
6 2     2   565 use HTML::Entities;
  2         5921  
  2         150  
7 2     2   1104 use File::BOM qw(open_bom);
  2         53693  
  2         462  
8              
9             our $VERSION = '0.25';
10              
11             sub parser {
12 1     1 0 6 my ($file, $encoding, $opts) = @_;
13 1         9 open_bom my $fh, $file, ":encoding($encoding)";
14 1         1425 local $/;
15 1         32 my $html = encode_entities(<$fh>, '<>&"');
16 1         581 utf8::encode($html);
17 1 50       6 return $html if $opts->{raw};
18 1         38 return qq{
19            
20            
21            
22            
23             
$html
24            
25            
26             };
27             }
28              
29             1;
30             __END__