File Coverage

blib/lib/XML/RSS/Private/Output/V0_9.pm
Criterion Covered Total %
statement 10 12 83.3
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 14 16 87.5


line stmt bran cond sub pod time code
1             package XML::RSS::Private::Output::V0_9;
2              
3 1     1   1407 use strict;
  1         2  
  1         28  
4 1     1   4 use warnings;
  1         1  
  1         24  
5              
6 1     1   3 use vars (qw(@ISA));
  1         2  
  1         30  
7              
8 1     1   26 use XML::RSS::Private::Output::Base;
  0            
  0            
9              
10             @ISA = (qw(XML::RSS::Private::Output::Base));
11              
12             sub _get_rdf_decl
13             {
14             return
15             qq{
16             qq{xmlns="http://my.netscape.com/rdf/simple/0.9/">\n\n};
17             }
18              
19             # 'description' for item does not exist in RSS 0.9
20             sub _out_item_desc {
21             return;
22             }
23              
24             # RSS 0.9 does not support the language tag so we nullify this tag.
25             sub _out_language {
26             return;
27             }
28              
29             sub _output_rss_middle {
30             my $self = shift;
31              
32             $self->_end_channel();
33             $self->_output_main_elements;
34             }
35              
36             sub _get_end_tag {
37             return "rdf:RDF";
38             }
39              
40             1;
41