File Coverage

blib/lib/Encode/Wide.pm
Criterion Covered Total %
statement 112 131 85.5
branch 31 40 77.5
condition n/a
subroutine 9 9 100.0
pod 2 2 100.0
total 154 182 84.6


line stmt bran cond sub pod time code
1             package Encode::Wide;
2              
3             # TODO: don't transform anything within in wide_to_html
4              
5 3     3   221602 use strict;
  3         6  
  3         129  
6 3     3   52 use warnings;
  3         7  
  3         182  
7              
8 3     3   18 use Exporter qw(import);
  3         8  
  3         132  
9 3     3   2135 use HTML::Entities;
  3         24096  
  3         362  
10 3     3   1891 use Params::Get 0.13;
  3         48562  
  3         195  
11 3     3   2290 use Term::ANSIColor;
  3         37021  
  3         14830  
12              
13             our @EXPORT_OK = qw(wide_to_html wide_to_xml);
14              
15             # Encode to HTML whatever the non-ASCII encoding scheme has been chosen
16             # Can't use HTML:Entities::encode since that doesn't seem to cope with
17             # all encodings and misses some characters
18             #
19             # See https://www.compart.com/en/unicode/U+0161 etc.
20             # https://www.compart.com/en/unicode/U+00EB
21             #
22             # keep_hrefs => 1 means ensure hyperlinks still work
23             # keep_apos => 1 means keep apostrophes, useful within