File Coverage

blib/lib/XML/API/XHTML.pm
Criterion Covered Total %
statement 24 26 92.3
branch n/a
condition n/a
subroutine 10 12 83.3
pod n/a
total 34 38 89.4


line stmt bran cond sub pod time code
1             package XML::API::XHTML;
2 3     3   10 use strict;
  3         4  
  3         66  
3 3     3   9 use warnings;
  3         3  
  3         95  
4 3     3   8 use base qw(XML::API);
  3         4  
  3         261  
5              
6             our $VERSION = '0.30';
7              
8 3         129 use constant DOCTYPE =>
9 3     3   10 qq{};
  3         2  
10              
11 3     3   9 use constant XSD => {};
  3         3  
  3         138  
12 3     3   10 use constant ROOT_ELEMENT => 'html';
  3         2  
  3         120  
13 3     3   12 use constant ROOT_ATTRS => { xmlns => 'http://www.w3.org/1999/xhtml' };
  3         3  
  3         328  
14              
15             my $xsd = {};
16              
17             sub _doctype {
18             return
19 10     10   25 q{};
20             }
21              
22             sub _xsd {
23 0     0   0 return $xsd;
24             }
25              
26             sub _root_element {
27 26     26   55 return 'html';
28             }
29              
30             sub _root_attrs {
31 3     3   7 return { xmlns => 'http://www.w3.org/1999/xhtml' };
32             }
33              
34             sub _content_type {
35 0     0     return 'application/xhtml+xml';
36             }
37              
38             1;
39              
40             __END__