File Coverage

blib/lib/Text/Markup/None.pm
Criterion Covered Total %
statement 22 22 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 29 31 93.5


line stmt bran cond sub pod time code
1             package Text::Markup::None;
2              
3 2     2   24 use 5.8.1;
  2         8  
4 2     2   10 use strict;
  2         2  
  2         37  
5 2     2   8 use warnings;
  2         4  
  2         145  
6 2     2   551 use HTML::Entities;
  2         6005  
  2         154  
7 2     2   1091 use File::BOM qw(open_bom);
  2         53771  
  2         440  
8              
9             our $VERSION = '0.31';
10              
11             sub parser {
12 1     1 0 5 my ($file, $encoding, $opts) = @_;
13 1         8 open_bom my $fh, $file, ":encoding($encoding)";
14 1         1398 local $/;
15 1         32 my $html = encode_entities(<$fh>, '<>&"');
16 1         596 utf8::encode($html);
17 1 50       4 return $html if { @{ $opts } }->{raw};
  1         7  
18 1         42 return qq{
19            
20            
21            
22            
23             
$html
24            
25            
26             };
27             }
28              
29             1;
30             __END__