File Coverage

blib/lib/HTML/String.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 15 15 100.0


line stmt bran cond sub pod time code
1             package HTML::String;
2              
3 1     1   22337 use strictures 1;
  1         8  
  1         30  
4 1     1   564 use HTML::String::Value;
  1         3  
  1         37  
5 1     1   9 use Exporter 'import';
  1         2  
  1         111  
6              
7             our $VERSION = '1.000006'; # 1.0.6
8              
9             $VERSION = eval $VERSION;
10              
11             our @EXPORT = qw(html);
12              
13             sub html {
14 8     8 1 883 HTML::String::Value->new($_[0]);
15             }
16              
17             1;
18              
19             __END__