File Coverage

blib/lib/XML/RSS/Private/Output/V0_91.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_91;
2              
3 1     1   1488 use strict;
  1         3  
  1         24  
4 1     1   6 use warnings;
  1         2  
  1         26  
5              
6 1     1   6 use vars (qw(@ISA));
  1         1  
  1         36  
7              
8 1     1   36 use XML::RSS::Private::Output::Base;
  0            
  0            
9             use XML::RSS::Private::Output::Roles::ImageDims;
10              
11             @ISA = (qw(
12             XML::RSS::Private::Output::Roles::ImageDims
13             XML::RSS::Private::Output::Base
14             )
15             );
16              
17             sub _get_rdf_decl
18             {
19             return
20             qq{
21             qq{ "http://www.rssboard.org/rss-0.91.dtd">\n\n} .
22             qq{\n\n};
23             }
24              
25             sub _calc_lastBuildDate {
26             my $self = shift;
27             if (defined(my $d = $self->channel('lastBuildDate'))) {
28             return $d;
29             }
30             elsif (defined(my $d2 = $self->_channel_dc('date'))) {
31             return $self->_date_to_rss2($self->_date_from_dc_date($d2));
32             }
33             else {
34             return undef;
35             }
36             }
37              
38             sub _output_rss_middle {
39             my $self = shift;
40              
41             # PICS rating
42             $self->_out_def_chan_tag("rating");
43              
44             $self->_out_copyright();
45              
46             $self->_out_dates();
47              
48             # external CDF URL
49             $self->_out_def_chan_tag("docs");
50              
51             $self->_out_editors;
52              
53             $self->_out_last_elements;
54             }
55              
56             1;
57