File Coverage

blib/lib/HTML/Escape.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 18 19 94.7


line stmt bran cond sub pod time code
1             package HTML::Escape;
2 3     3   101265 use strict;
  3         8  
  3         133  
3 3     3   15 use warnings;
  3         7  
  3         78  
4 3     3   84 use 5.008005;
  3         15  
  3         200  
5             our $VERSION = '1.09';
6 3     3   2616 use parent qw/Exporter/;
  3         989  
  3         15  
7              
8             my $use_xs = 0;
9             if(!exists $INC{'HTML/Escape/PurePerl.pm'}) {
10             my $pp = $ENV{PERL_ONLY};
11             if (!$pp) {
12             eval {
13             require XSLoader;
14             XSLoader::load(__PACKAGE__, $VERSION);
15             $use_xs = 1;
16             };
17             }
18             if (!__PACKAGE__->can('escape_html')) {
19             ## no critic.
20             require 'HTML/Escape/PurePerl.pm' # not to create the namespace
21             }
22             }
23 2     2 0 24 sub USE_XS () { $use_xs }
24              
25             our @EXPORT = qw/escape_html/;
26              
27             1;
28             __END__