blib/lib/XML/API/RSS.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 14 | 16 | 87.5 |
branch | n/a | ||
condition | n/a | ||
subroutine | 7 | 9 | 77.7 |
pod | n/a | ||
total | 21 | 25 | 84.0 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | package XML::API::RSS; | ||||||
2 | 1 | 1 | 4 | use strict; | |||
1 | 2 | ||||||
1 | 24 | ||||||
3 | 1 | 1 | 6 | use warnings; | |||
1 | 1 | ||||||
1 | 22 | ||||||
4 | 1 | 1 | 26 | use 5.006; | |||
1 | 3 | ||||||
5 | 1 | 1 | 4 | use base qw(XML::API); | |||
1 | 2 | ||||||
1 | 183 | ||||||
6 | |||||||
7 | our $VERSION = '0.28'; | ||||||
8 | |||||||
9 | my $xsd = {}; | ||||||
10 | |||||||
11 | sub _doctype { | ||||||
12 | 1 | 1 | 4 | return ''; | |||
13 | } | ||||||
14 | |||||||
15 | sub _xsd { | ||||||
16 | 0 | 0 | 0 | return $xsd; | |||
17 | } | ||||||
18 | |||||||
19 | sub _root_element { | ||||||
20 | 36 | 36 | 103 | return 'rss'; | |||
21 | } | ||||||
22 | |||||||
23 | sub _root_attrs { | ||||||
24 | 1 | 1 | 4 | return {version => '2.0'}; | |||
25 | } | ||||||
26 | |||||||
27 | sub _content_type { | ||||||
28 | 0 | 0 | return 'application/rss+xml'; | ||||
29 | } | ||||||
30 | |||||||
31 | |||||||
32 | 1; | ||||||
33 | |||||||
34 | __END__ |