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   14 use strict;
  3         6  
  3         77  
3 3     3   15 use warnings;
  3         5  
  3         138  
4 3     3   14 use base qw(XML::API);
  3         6  
  3         330  
5              
6             our $VERSION = '0.28';
7              
8 3     3   15 use constant DOCTYPE => qq{};
  3         4  
  3         180  
9              
10 3     3   15 use constant XSD => {};
  3         10  
  3         136  
11 3     3   14 use constant ROOT_ELEMENT => 'html';
  3         5  
  3         152  
12 3     3   14 use constant ROOT_ATTRS => {xmlns => 'http://www.w3.org/1999/xhtml'};
  3         5  
  3         453  
13              
14              
15             my $xsd = {};
16              
17             sub _doctype {
18 10     10   47 return q{};
19             }
20              
21             sub _xsd {
22 0     0   0 return $xsd;
23             }
24              
25             sub _root_element {
26 26     26   91 return 'html';
27             }
28              
29             sub _root_attrs {
30 3     3   18 return {xmlns => 'http://www.w3.org/1999/xhtml'};
31             }
32              
33             sub _content_type {
34 0     0     return 'application/xhtml+xml';
35             }
36              
37              
38             1;
39              
40             __END__