File Coverage

blib/lib/XML/FeedPP.pm
Criterion Covered Total %
statement 1160 1282 90.4
branch 537 718 74.7
condition 182 279 65.2
subroutine 194 227 85.4
pod 24 44 54.5
total 2097 2550 82.2


line stmt bran cond sub pod time code
1             =head1 NAME
2              
3             XML::FeedPP -- Parse/write/merge/edit RSS/RDF/Atom syndication feeds
4              
5             =head1 SYNOPSIS
6              
7             Get an RSS file and parse it:
8              
9             use XML::FeedPP ();
10             my $source = 'http://use.perl.org/index.rss';
11             my $feed = XML::FeedPP->new( $source );
12             print "Title: ", $feed->title(), "\n";
13             print "Date: ", $feed->pubDate(), "\n";
14             foreach my $item ( $feed->get_item() ) {
15             print "URL: ", $item->link(), "\n";
16             print "Title: ", $item->title(), "\n";
17             }
18              
19             Generate an RDF file and save it:
20              
21             use XML::FeedPP ();
22             my $feed = XML::FeedPP::RDF->new();
23             $feed->title( "use Perl" );
24             $feed->link( "http://use.perl.org/" );
25             $feed->pubDate( "Thu, 23 Feb 2006 14:43:43 +0900" );
26             my $item = $feed->add_item( "http://search.cpan.org/~kawasaki/XML-TreePP-0.02" );
27             $item->title( "Pure Perl implementation for parsing/writing xml file" );
28             $item->pubDate( "2006-02-23T14:43:43+09:00" );
29             $feed->to_file( "index.rdf" );
30              
31             Convert some RSS/RDF files to Atom format:
32              
33             use XML::FeedPP ();
34             my $feed = XML::FeedPP::Atom::Atom10->new(); # create empty atom file
35             $feed->merge( "rss.xml" ); # load local RSS file
36             $feed->merge( "http://www.kawa.net/index.rdf" ); # load remote RDF file
37             my $now = time();
38             $feed->pubDate( $now ); # touch date
39             my $atom = $feed->to_string(); # get Atom source code
40              
41             =head1 DESCRIPTION
42              
43             C is an all-purpose syndication utility that parses and
44             publishes RSS 2.0, RSS 1.0 (RDF), Atom 0.3 and 1.0 feeds.
45             It allows you to add new content, merge feeds, and convert among
46             these various formats.
47             It is a pure Perl implementation and does not require any other
48             module except for XML::TreePP.
49              
50             =head1 METHODS FOR FEED
51              
52             =head2 $feed = XML::FeedPP->new( "index.rss" );
53              
54             This constructor method creates an C feed instance. The only
55             argument is the local filename. The format of $source must be one of
56             the supported feed formats -- RSS, RDF or Atom -- or execution is
57             halted.
58              
59             =head2 $feed = XML::FeedPP->new( "http://use.perl.org/index.rss" );
60              
61             The URL on the remote web server is also available as the first argument.
62             L is required to download it.
63              
64             =head2 $feed = XML::FeedPP->new( '...' );
65              
66             The XML source code is also available as the first argument.
67              
68             =head2 $feed = XML::FeedPP->new( $source, -type => $type );
69              
70             The C<-type> argument allows you to specify type of $source
71             from choice of C<'file'>, C<'url'> or C<'string'>.
72              
73             =head2 $feed = XML::FeedPP->new( $source, utf8_flag => 1 );
74              
75             This makes utf8 flag on for all feed elements.
76             Perl 5.8.1 or later is required to use this.
77              
78             Note that any other options for C constructor are also
79             allowed like this. See more detail on L.
80              
81             =head2 $feed = XML::FeedPP::RSS->new( $source );
82              
83             This constructor method creates an instance for an RSS 2.0 feed.
84             The first argument is optional, but must be valid an RSS source if specified.
85             This method returns an empty instance when $source is undefined.
86              
87             =head2 $feed = XML::FeedPP::RDF->new( $source );
88              
89             This constructor method creates an instance for RSS 1.0 (RDF) feed.
90             The first argument is optional, but must be an RDF source if specified.
91             This method returns an empty instance when $source is undefined.
92              
93             =head2 $feed = XML::FeedPP::Atom->new( $source );
94              
95             This constructor method creates an instance for an Atom 0.3/1.0 feed.
96             The first argument is optional, but must be an Atom source if specified.
97             This method returns an empty instance when $source is undefined.
98              
99             Atom 1.0 feed is also supported since C version 0.30.
100             Atom 0.3 is still default, however, future version of this module
101             would create Atom 1.0 as default.
102              
103             =head2 $feed = XML::FeedPP::Atom::Atom03->new();
104              
105             This creates an empty Atom 0.3 instance obviously.
106              
107             =head2 $feed = XML::FeedPP::Atom::Atom10->new();
108              
109             This creates an empty Atom 1.0 instance intended.
110              
111             =head2 $feed = XML::FeedPP::RSS->new( link => $link, title => $tile, ... );
112              
113             This creates a RSS instance which has C, C elements etc. </td> </tr> <tr> <td class="h" > <a name="114">114</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="115">115</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $feed->load( $source ); </td> </tr> <tr> <td class="h" > <a name="116">116</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="117">117</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method loads an RSS/RDF/Atom file, </td> </tr> <tr> <td class="h" > <a name="118">118</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> much like C<new()> method does. </td> </tr> <tr> <td class="h" > <a name="119">119</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="120">120</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $feed->merge( $source ); </td> </tr> <tr> <td class="h" > <a name="121">121</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="122">122</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method merges an RSS/RDF/Atom file into the existing $feed </td> </tr> <tr> <td class="h" > <a name="123">123</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> instance. Top-level metadata from the imported feed is incorporated </td> </tr> <tr> <td class="h" > <a name="124">124</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> only if missing from the present feed. </td> </tr> <tr> <td class="h" > <a name="125">125</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="126">126</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $string = $feed->to_string( $encoding ); </td> </tr> <tr> <td class="h" > <a name="127">127</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="128">128</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method generates XML source as string and returns it. The output </td> </tr> <tr> <td class="h" > <a name="129">129</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $encoding is optional, and the default encoding is 'UTF-8'. On Perl </td> </tr> <tr> <td class="h" > <a name="130">130</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> 5.8 and later, any encodings supported by the Encode module are </td> </tr> <tr> <td class="h" > <a name="131">131</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> available. On Perl 5.005 and 5.6.1, only four encodings supported by </td> </tr> <tr> <td class="h" > <a name="132">132</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> the Jcode module are available: 'UTF-8', 'Shift_JIS', 'EUC-JP' and </td> </tr> <tr> <td class="h" > <a name="133">133</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> 'ISO-2022-JP'. 'UTF-8' is recommended for overall compatibility. </td> </tr> <tr> <td class="h" > <a name="134">134</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="135">135</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $string = $feed->to_string( indent => 4 ); </td> </tr> <tr> <td class="h" > <a name="136">136</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="137">137</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This makes the output more human readable by indenting appropriately. </td> </tr> <tr> <td class="h" > <a name="138">138</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This does not strictly follow the XML specification but does looks nice. </td> </tr> <tr> <td class="h" > <a name="139">139</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="140">140</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> Note that any other options for C<XML::TreePP> constructor are also </td> </tr> <tr> <td class="h" > <a name="141">141</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> allowed like this. See more detail on L<XML::TreePP>. </td> </tr> <tr> <td class="h" > <a name="142">142</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="143">143</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $feed->to_file( $filename, $encoding ); </td> </tr> <tr> <td class="h" > <a name="144">144</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="145">145</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method generate an XML file. The output $encoding is optional, </td> </tr> <tr> <td class="h" > <a name="146">146</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> and the default is 'UTF-8'. </td> </tr> <tr> <td class="h" > <a name="147">147</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="148">148</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $item = $feed->add_item( $link ); </td> </tr> <tr> <td class="h" > <a name="149">149</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="150">150</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method creates a new item/entry and returns its instance. </td> </tr> <tr> <td class="h" > <a name="151">151</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> A mandatory $link argument is the URL of the new item/entry. </td> </tr> <tr> <td class="h" > <a name="152">152</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="153">153</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $item = $feed->add_item( $srcitem ); </td> </tr> <tr> <td class="h" > <a name="154">154</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="155">155</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method duplicates an item/entry and adds it to $feed. </td> </tr> <tr> <td class="h" > <a name="156">156</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $srcitem is a C<XML::FeedPP::*::Item> class's instance </td> </tr> <tr> <td class="h" > <a name="157">157</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> which is returned by C<get_item()> method, as described above. </td> </tr> <tr> <td class="h" > <a name="158">158</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="159">159</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $item = $feed->add_item( link => $link, title => $tile, ... ); </td> </tr> <tr> <td class="h" > <a name="160">160</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="161">161</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method creates an new item/entry </td> </tr> <tr> <td class="h" > <a name="162">162</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> which has C<link>, C<title> elements etc. </td> </tr> <tr> <td class="h" > <a name="163">163</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="164">164</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $item = $feed->get_item( $index ); </td> </tr> <tr> <td class="h" > <a name="165">165</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="166">166</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method returns item(s) in a $feed. </td> </tr> <tr> <td class="h" > <a name="167">167</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> A valid zero-based array $index returns the corresponding item in the feed. </td> </tr> <tr> <td class="h" > <a name="168">168</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> An invalid $index yields undef. </td> </tr> <tr> <td class="h" > <a name="169">169</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> If $index is undefined in array context, it returns an array of all items. </td> </tr> <tr> <td class="h" > <a name="170">170</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> If $index is undefined in scalar context, it returns the number of items. </td> </tr> <tr> <td class="h" > <a name="171">171</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="172">172</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 @items = $feed->match_item( link => qr/.../, title => qr/.../, ... ); </td> </tr> <tr> <td class="h" > <a name="173">173</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="174">174</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method finds item(s) which match all regular expressions given. </td> </tr> <tr> <td class="h" > <a name="175">175</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method returns an array of all matched items in array context. </td> </tr> <tr> <td class="h" > <a name="176">176</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method returns the first matched item in scalar context. </td> </tr> <tr> <td class="h" > <a name="177">177</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="178">178</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $feed->remove_item( $index or $link ); </td> </tr> <tr> <td class="h" > <a name="179">179</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="180">180</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method removes an item/entry specified by zero-based array index or </td> </tr> <tr> <td class="h" > <a name="181">181</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> link URL. </td> </tr> <tr> <td class="h" > <a name="182">182</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="183">183</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $feed->clear_item(); </td> </tr> <tr> <td class="h" > <a name="184">184</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="185">185</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method removes all items/entries from the $feed. </td> </tr> <tr> <td class="h" > <a name="186">186</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="187">187</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $feed->sort_item(); </td> </tr> <tr> <td class="h" > <a name="188">188</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="189">189</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method sorts the order of items in $feed by C<pubDate>. </td> </tr> <tr> <td class="h" > <a name="190">190</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="191">191</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $feed->uniq_item(); </td> </tr> <tr> <td class="h" > <a name="192">192</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="193">193</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> Reduces the list of items, not to include duplicates. RDF and Atoms </td> </tr> <tr> <td class="h" > <a name="194">194</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> have a guid attribute to defined uniqueness, for RSS we use the link. </td> </tr> <tr> <td class="h" > <a name="195">195</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="196">196</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $feed->normalize(); </td> </tr> <tr> <td class="h" > <a name="197">197</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="198">198</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method calls both the C<sort_item()> and C<uniq_item()> methods. </td> </tr> <tr> <td class="h" > <a name="199">199</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="200">200</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $feed->limit_item( $num ); </td> </tr> <tr> <td class="h" > <a name="201">201</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="202">202</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> Removes items in excess of the specified numeric limit. Items at the </td> </tr> <tr> <td class="h" > <a name="203">203</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> end of the list are removed. When preceded by C<sort_item()> or </td> </tr> <tr> <td class="h" > <a name="204">204</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> C<normalize()>, this deletes more recent items. </td> </tr> <tr> <td class="h" > <a name="205">205</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="206">206</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $feed->xmlns( "xmlns:media" => "http://search.yahoo.com/mrss" ); </td> </tr> <tr> <td class="h" > <a name="207">207</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="208">208</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> Adds an XML namespace at the document root of the feed. </td> </tr> <tr> <td class="h" > <a name="209">209</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="210">210</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $url = $feed->xmlns( "xmlns:media" ); </td> </tr> <tr> <td class="h" > <a name="211">211</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="212">212</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> Returns the URL of the specified XML namespace. </td> </tr> <tr> <td class="h" > <a name="213">213</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="214">214</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 @list = $feed->xmlns(); </td> </tr> <tr> <td class="h" > <a name="215">215</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="216">216</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> Returns the list of all XML namespaces used in $feed. </td> </tr> <tr> <td class="h" > <a name="217">217</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="218">218</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head1 METHODS FOR CHANNEL </td> </tr> <tr> <td class="h" > <a name="219">219</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="220">220</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $feed->title( $text ); </td> </tr> <tr> <td class="h" > <a name="221">221</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="222">222</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method sets/gets the feed's C<title> element, </td> </tr> <tr> <td class="h" > <a name="223">223</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> returning its current value when $title is undefined. </td> </tr> <tr> <td class="h" > <a name="224">224</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="225">225</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $feed->description( $html ); </td> </tr> <tr> <td class="h" > <a name="226">226</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="227">227</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method sets/gets the feed's C<description> element in plain text or HTML, </td> </tr> <tr> <td class="h" > <a name="228">228</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> returning its current value when $html is undefined. </td> </tr> <tr> <td class="h" > <a name="229">229</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> It is mapped to C<content> element for Atom 0.3/1.0. </td> </tr> <tr> <td class="h" > <a name="230">230</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="231">231</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $feed->pubDate( $date ); </td> </tr> <tr> <td class="h" > <a name="232">232</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="233">233</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method sets/gets the feed's C<pubDate> element for RSS, </td> </tr> <tr> <td class="h" > <a name="234">234</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> returning its current value when $date is undefined. </td> </tr> <tr> <td class="h" > <a name="235">235</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> It is mapped to C<dc:date> element for RDF, </td> </tr> <tr> <td class="h" > <a name="236">236</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> C<modified> for Atom 0.3, and C<updated> for Atom 1.0. </td> </tr> <tr> <td class="h" > <a name="237">237</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> See also L</DATE AND TIME FORMATS> section below. </td> </tr> <tr> <td class="h" > <a name="238">238</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="239">239</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $feed->copyright( $text ); </td> </tr> <tr> <td class="h" > <a name="240">240</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="241">241</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method sets/gets the feed's C<copyright> element for RSS, </td> </tr> <tr> <td class="h" > <a name="242">242</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> returning its current value when $text is undefined. </td> </tr> <tr> <td class="h" > <a name="243">243</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> It is mapped to C<dc:rights> element for RDF, </td> </tr> <tr> <td class="h" > <a name="244">244</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> C<copyright> for Atom 0.3, and C<rights> for Atom 1.0. </td> </tr> <tr> <td class="h" > <a name="245">245</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="246">246</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $feed->link( $url ); </td> </tr> <tr> <td class="h" > <a name="247">247</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="248">248</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method sets/gets the URL of the web site as the feed's C<link> element, </td> </tr> <tr> <td class="h" > <a name="249">249</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> returning its current value when the $url is undefined. </td> </tr> <tr> <td class="h" > <a name="250">250</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="251">251</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $feed->language( $lang ); </td> </tr> <tr> <td class="h" > <a name="252">252</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="253">253</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method sets/gets the feed's C<language> element for RSS, </td> </tr> <tr> <td class="h" > <a name="254">254</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> returning its current value when the $lang is undefined. </td> </tr> <tr> <td class="h" > <a name="255">255</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> It is mapped to C<dc:language> element for RDF, </td> </tr> <tr> <td class="h" > <a name="256">256</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> C<feed xml:lang=""> for Atom 0.3/1.0. </td> </tr> <tr> <td class="h" > <a name="257">257</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="258">258</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $feed->image( $url, $title, $link, $description, $width, $height ) </td> </tr> <tr> <td class="h" > <a name="259">259</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="260">260</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method sets/gets the feed's C<image> element and its child nodes, </td> </tr> <tr> <td class="h" > <a name="261">261</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> returning a list of current values when any arguments are undefined. </td> </tr> <tr> <td class="h" > <a name="262">262</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="263">263</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head1 METHODS FOR ITEM </td> </tr> <tr> <td class="h" > <a name="264">264</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="265">265</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $item->title( $text ); </td> </tr> <tr> <td class="h" > <a name="266">266</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="267">267</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method sets/gets the item's C<title> element, </td> </tr> <tr> <td class="h" > <a name="268">268</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> returning its current value when the $text is undefined. </td> </tr> <tr> <td class="h" > <a name="269">269</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="270">270</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $item->description( $html ); </td> </tr> <tr> <td class="h" > <a name="271">271</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="272">272</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method sets/gets the item's C<description> element in HTML or plain text, </td> </tr> <tr> <td class="h" > <a name="273">273</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> returning its current value when $text is undefined. </td> </tr> <tr> <td class="h" > <a name="274">274</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> It is mapped to C<content> element for Atom 0.3/1.0. </td> </tr> <tr> <td class="h" > <a name="275">275</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="276">276</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $item->pubDate( $date ); </td> </tr> <tr> <td class="h" > <a name="277">277</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="278">278</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method sets/gets the item's C<pubDate> element, </td> </tr> <tr> <td class="h" > <a name="279">279</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> returning its current value when $date is undefined. </td> </tr> <tr> <td class="h" > <a name="280">280</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> It is mapped to C<dc:date> element for RDF, </td> </tr> <tr> <td class="h" > <a name="281">281</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> C<modified> for Atom 0.3, and C<updated> for Atom 1.0. </td> </tr> <tr> <td class="h" > <a name="282">282</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> See also L</DATE AND TIME FORMATS> section below. </td> </tr> <tr> <td class="h" > <a name="283">283</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="284">284</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $item->category( $text ); </td> </tr> <tr> <td class="h" > <a name="285">285</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="286">286</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method sets/gets the item's C<category> element. </td> </tr> <tr> <td class="h" > <a name="287">287</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> returning its current value when $text is undefined. </td> </tr> <tr> <td class="h" > <a name="288">288</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> It is mapped to C<dc:subject> element for RDF, and ignored for Atom 0.3. </td> </tr> <tr> <td class="h" > <a name="289">289</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="290">290</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $item->author( $name ); </td> </tr> <tr> <td class="h" > <a name="291">291</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="292">292</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method sets/gets the item's C<author> element, </td> </tr> <tr> <td class="h" > <a name="293">293</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> returning its current value when $name is undefined. </td> </tr> <tr> <td class="h" > <a name="294">294</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> It is mapped to C<dc:creator> element for RDF, </td> </tr> <tr> <td class="h" > <a name="295">295</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> C<author> for Atom 0.3/1.0. </td> </tr> <tr> <td class="h" > <a name="296">296</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="297">297</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $item->guid( $guid, isPermaLink => $bool ); </td> </tr> <tr> <td class="h" > <a name="298">298</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="299">299</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method sets/gets the item's C<guid> element, </td> </tr> <tr> <td class="h" > <a name="300">300</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> returning its current value when $guid is undefined. </td> </tr> <tr> <td class="h" > <a name="301">301</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="302">302</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> It is mapped to C<id> element for Atom, and ignored for RDF. In case of </td> </tr> <tr> <td class="h" > <a name="303">303</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> RSS, it will return a HASH. The C<isParmaLink> is supported by RSS only, </td> </tr> <tr> <td class="h" > <a name="304">304</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> and optional. </td> </tr> <tr> <td class="h" > <a name="305">305</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="306">306</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $item->set( $key => $value, ... ); </td> </tr> <tr> <td class="h" > <a name="307">307</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="308">308</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method sets customized node values or attributes. </td> </tr> <tr> <td class="h" > <a name="309">309</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> See also L</ACCESSOR AND MUTATORS> section below. </td> </tr> <tr> <td class="h" > <a name="310">310</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="311">311</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $value = $item->get( $key ); </td> </tr> <tr> <td class="h" > <a name="312">312</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="313">313</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method returns the node value or attribute. </td> </tr> <tr> <td class="h" > <a name="314">314</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> See also L</ACCESSOR AND MUTATORS> section below. </td> </tr> <tr> <td class="h" > <a name="315">315</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="316">316</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $link = $item->link(); </td> </tr> <tr> <td class="h" > <a name="317">317</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="318">318</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This method returns the item's C<link> element. </td> </tr> <tr> <td class="h" > <a name="319">319</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="320">320</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head1 ACCESSOR AND MUTATORS </td> </tr> <tr> <td class="h" > <a name="321">321</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="322">322</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This module understands only subset of C<rdf:*>, C<dc:*> modules </td> </tr> <tr> <td class="h" > <a name="323">323</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> and RSS/RDF/Atom's default namespaces by itself. </td> </tr> <tr> <td class="h" > <a name="324">324</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> There are NO native methods for any other external modules, such as C<media:*>. </td> </tr> <tr> <td class="h" > <a name="325">325</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> But C<set()> and C<get()> methods are available to get/set </td> </tr> <tr> <td class="h" > <a name="326">326</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> the value of any elements or attributes for these modules. </td> </tr> <tr> <td class="h" > <a name="327">327</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="328">328</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $item->set( "module:name" => $value ); </td> </tr> <tr> <td class="h" > <a name="329">329</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="330">330</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This sets the value of the child node: </td> </tr> <tr> <td class="h" > <a name="331">331</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="332">332</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> <item><module:name>$value</module:name>...</item> </td> </tr> <tr> <td class="h" > <a name="333">333</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="334">334</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $item->set( "module:name@attr" => $value ); </td> </tr> <tr> <td class="h" > <a name="335">335</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="336">336</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This sets the value of the child node's attribute: </td> </tr> <tr> <td class="h" > <a name="337">337</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="338">338</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> <item><module:name attr="$value" />...</item> </td> </tr> <tr> <td class="h" > <a name="339">339</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="340">340</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $item->set( "@attr" => $value ); </td> </tr> <tr> <td class="h" > <a name="341">341</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="342">342</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This sets the value of the item's attribute: </td> </tr> <tr> <td class="h" > <a name="343">343</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="344">344</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> <item attr="$value">...</item> </td> </tr> <tr> <td class="h" > <a name="345">345</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="346">346</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $item->set( "hoge/pomu@hare" => $value ); </td> </tr> <tr> <td class="h" > <a name="347">347</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="348">348</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This code sets the value of the child node's child node's attribute: </td> </tr> <tr> <td class="h" > <a name="349">349</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="350">350</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> <item><hoge><pomu attr="$value" /></hoge>...</item> </td> </tr> <tr> <td class="h" > <a name="351">351</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="352">352</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head1 DATE AND TIME FORMATS </td> </tr> <tr> <td class="h" > <a name="353">353</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="354">354</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> C<XML::FeedPP> allows you to describe date/time using any of the three </td> </tr> <tr> <td class="h" > <a name="355">355</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> following formats: </td> </tr> <tr> <td class="h" > <a name="356">356</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="357">357</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $date = "Thu, 23 Feb 2006 14:43:43 +0900"; </td> </tr> <tr> <td class="h" > <a name="358">358</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="359">359</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This is the HTTP protocol's preferred format and RSS 2.0's native </td> </tr> <tr> <td class="h" > <a name="360">360</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> format, as defined by RFC 1123. </td> </tr> <tr> <td class="h" > <a name="361">361</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="362">362</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $date = "2006-02-23T14:43:43+09:00"; </td> </tr> <tr> <td class="h" > <a name="363">363</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="364">364</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> W3CDTF is the native format of RDF, as defined by ISO 8601. </td> </tr> <tr> <td class="h" > <a name="365">365</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="366">366</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head2 $date = 1140705823; </td> </tr> <tr> <td class="h" > <a name="367">367</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="368">368</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> The last format is the number of seconds since the epoch, </td> </tr> <tr> <td class="h" > <a name="369">369</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> C<1970-01-01T00:00:00Z>. </td> </tr> <tr> <td class="h" > <a name="370">370</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> You know, this is the native format of Perl's C<time()> function. </td> </tr> <tr> <td class="h" > <a name="371">371</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="372">372</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head1 USING MEDIA RSS </td> </tr> <tr> <td class="h" > <a name="373">373</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="374">374</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> To publish Media RSS, add the C<media> namespace then use C<set()> </td> </tr> <tr> <td class="h" > <a name="375">375</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> setter method to manipulate C<media:content> element, etc. </td> </tr> <tr> <td class="h" > <a name="376">376</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="377">377</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $feed = XML::FeedPP::RSS->new(); </td> </tr> <tr> <td class="h" > <a name="378">378</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $feed->xmlns('xmlns:media' => 'http://search.yahoo.com/mrss/'); </td> </tr> <tr> <td class="h" > <a name="379">379</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $item = $feed->add_item('http://www.example.com/index.html'); </td> </tr> <tr> <td class="h" > <a name="380">380</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $item->set('media:content@url' => 'http://www.example.com/image.jpg'); </td> </tr> <tr> <td class="h" > <a name="381">381</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $item->set('media:content@type' => 'image/jpeg'); </td> </tr> <tr> <td class="h" > <a name="382">382</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $item->set('media:content@width' => 640); </td> </tr> <tr> <td class="h" > <a name="383">383</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $item->set('media:content@height' => 480); </td> </tr> <tr> <td class="h" > <a name="384">384</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="385">385</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head1 MODULE DEPENDENCIES </td> </tr> <tr> <td class="h" > <a name="386">386</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="387">387</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> C<XML::FeedPP> requires only L<XML::TreePP> </td> </tr> <tr> <td class="h" > <a name="388">388</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> which likewise is a pure Perl implementation. </td> </tr> <tr> <td class="h" > <a name="389">389</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> The standard L<LWP::UserAgent> is required </td> </tr> <tr> <td class="h" > <a name="390">390</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> to download feeds from remote web servers. </td> </tr> <tr> <td class="h" > <a name="391">391</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> C<Jcode.pm> is required to convert Japanese encodings on Perl 5.005 </td> </tr> <tr> <td class="h" > <a name="392">392</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> and 5.6.1, but is NOT required on Perl 5.8.x and later. </td> </tr> <tr> <td class="h" > <a name="393">393</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="394">394</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head1 AUTHOR </td> </tr> <tr> <td class="h" > <a name="395">395</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="396">396</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> Yusuke Kawasaki, http://www.kawa.net/ </td> </tr> <tr> <td class="h" > <a name="397">397</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="398">398</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head1 COPYRIGHT </td> </tr> <tr> <td class="h" > <a name="399">399</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="400">400</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> The following copyright notice applies to all the files provided in </td> </tr> <tr> <td class="h" > <a name="401">401</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> this distribution, including binary files, unless explicitly noted </td> </tr> <tr> <td class="h" > <a name="402">402</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> otherwise. </td> </tr> <tr> <td class="h" > <a name="403">403</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="404">404</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> Copyright 2006-2011 Yusuke Kawasaki </td> </tr> <tr> <td class="h" > <a name="405">405</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="406">406</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =head1 LICENSE </td> </tr> <tr> <td class="h" > <a name="407">407</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="408">408</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> This library is free software; you can redistribute it and/or modify </td> </tr> <tr> <td class="h" > <a name="409">409</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> it under the same terms as Perl itself. </td> </tr> <tr> <td class="h" > <a name="410">410</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="411">411</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> =cut </td> </tr> <tr> <td class="h" > <a name="412">412</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="413">413</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ---------------------------------------------------------------- </td> </tr> <tr> <td class="h" > <a name="414">414</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> package XML::FeedPP; </td> </tr> <tr> <td class="h" > <a name="415">415</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#415-1"> 44 </a> </td> <td >   </td> <td > 2281001 </td> <td class="s"> use strict; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 365 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1057 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="416">416</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#416-1"> 44 </a> </td> <td >   </td> <td > 178 </td> <td class="s"> use Carp; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 74 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2245 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="417">417</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#417-1"> 44 </a> </td> <td >   </td> <td > 18072 </td> <td class="s"> use Time::Local; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 81048 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2061 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="418">418</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#418-1"> 44 </a> </td> <td >   </td> <td > 21087 </td> <td class="s"> use XML::TreePP; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 277620 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1927 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="419">419</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="420">420</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 113790 </td> <td class="s"> use vars qw( </td> </tr> <tr> <td class="h" > <a name="421">421</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $VERSION $RSS20_VERSION $ATOM03_VERSION </td> </tr> <tr> <td class="h" > <a name="422">422</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $XMLNS_RDF $XMLNS_RSS $XMLNS_DC $XMLNS_ATOM03 </td> </tr> <tr> <td class="h" > <a name="423">423</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $XMLNS_NOCOPY $TREEPP_OPTIONS $MIME_TYPES </td> </tr> <tr> <td class="h" > <a name="424">424</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $FEED_METHODS $ITEM_METHODS </td> </tr> <tr> <td class="h" > <a name="425">425</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $XMLNS_ATOM10 </td> </tr> <tr> <td class="h" > <a name="426">426</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#426-1"> 44 </a> </td> <td >   </td> <td > 273 </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 76 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="427">427</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="428">428</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $VERSION = "0.95"; </td> </tr> <tr> <td class="h" > <a name="429">429</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="430">430</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $RSS20_VERSION = '2.0'; </td> </tr> <tr> <td class="h" > <a name="431">431</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $ATOM03_VERSION = '0.3'; </td> </tr> <tr> <td class="h" > <a name="432">432</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="433">433</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $XMLNS_RDF = 'http://www.w3.org/1999/02/22-rdf-syntax-ns#'; </td> </tr> <tr> <td class="h" > <a name="434">434</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $XMLNS_RSS = 'http://purl.org/rss/1.0/'; </td> </tr> <tr> <td class="h" > <a name="435">435</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $XMLNS_DC = 'http://purl.org/dc/elements/1.1/'; </td> </tr> <tr> <td class="h" > <a name="436">436</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $XMLNS_ATOM03 = 'http://purl.org/atom/ns#'; </td> </tr> <tr> <td class="h" > <a name="437">437</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $XMLNS_ATOM10 = 'http://www.w3.org/2005/Atom'; </td> </tr> <tr> <td class="h" > <a name="438">438</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $XMLNS_NOCOPY = [qw( xmlns xmlns:rdf xmlns:dc xmlns:atom )]; </td> </tr> <tr> <td class="h" > <a name="439">439</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="440">440</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $TREEPP_OPTIONS = { </td> </tr> <tr> <td class="h" > <a name="441">441</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> force_array => [qw( item rdf:li entry )], </td> </tr> <tr> <td class="h" > <a name="442">442</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> first_out => [qw( -xmlns:rdf -xmlns -rel -type url title link )], </td> </tr> <tr> <td class="h" > <a name="443">443</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> last_out => [qw( description image item items entry -width -height )], </td> </tr> <tr> <td class="h" > <a name="444">444</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> user_agent => "XML-FeedPP/$VERSION ", </td> </tr> <tr> <td class="h" > <a name="445">445</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="446">446</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="447">447</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $MIME_TYPES = { reverse qw( </td> </tr> <tr> <td class="h" > <a name="448">448</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> image/bmp bmp </td> </tr> <tr> <td class="h" > <a name="449">449</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> image/gif gif </td> </tr> <tr> <td class="h" > <a name="450">450</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> image/jpeg jpeg </td> </tr> <tr> <td class="h" > <a name="451">451</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> image/jpeg jpg </td> </tr> <tr> <td class="h" > <a name="452">452</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> image/png png </td> </tr> <tr> <td class="h" > <a name="453">453</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> image/svg+xml svg </td> </tr> <tr> <td class="h" > <a name="454">454</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> image/x-icon ico </td> </tr> <tr> <td class="h" > <a name="455">455</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> image/x-xbitmap xbm </td> </tr> <tr> <td class="h" > <a name="456">456</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> image/x-xpixmap xpm </td> </tr> <tr> <td class="h" > <a name="457">457</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> )}; </td> </tr> <tr> <td class="h" > <a name="458">458</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="459">459</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $FEED_METHODS = [qw( </td> </tr> <tr> <td class="h" > <a name="460">460</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> title </td> </tr> <tr> <td class="h" > <a name="461">461</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> description </td> </tr> <tr> <td class="h" > <a name="462">462</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> language </td> </tr> <tr> <td class="h" > <a name="463">463</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> copyright </td> </tr> <tr> <td class="h" > <a name="464">464</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> link </td> </tr> <tr> <td class="h" > <a name="465">465</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> pubDate </td> </tr> <tr> <td class="h" > <a name="466">466</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> image </td> </tr> <tr> <td class="h" > <a name="467">467</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> set </td> </tr> <tr> <td class="h" > <a name="468">468</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> )]; </td> </tr> <tr> <td class="h" > <a name="469">469</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="470">470</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $ITEM_METHODS = [qw( </td> </tr> <tr> <td class="h" > <a name="471">471</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> title </td> </tr> <tr> <td class="h" > <a name="472">472</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> description </td> </tr> <tr> <td class="h" > <a name="473">473</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> category </td> </tr> <tr> <td class="h" > <a name="474">474</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> author </td> </tr> <tr> <td class="h" > <a name="475">475</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> link </td> </tr> <tr> <td class="h" > <a name="476">476</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> guid </td> </tr> <tr> <td class="h" > <a name="477">477</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> pubDate </td> </tr> <tr> <td class="h" > <a name="478">478</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> image </td> </tr> <tr> <td class="h" > <a name="479">479</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> set </td> </tr> <tr> <td class="h" > <a name="480">480</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> )]; </td> </tr> <tr> <td class="h" > <a name="481">481</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="482">482</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub new { </td> </tr> <tr> <td class="h" > <a name="483">483</a> </td> <td class="c3" > 179 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#483-1"> 179 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#483-1"> 1 </a> </td> <td > 232155 </td> <td class="s"> my $package = shift; </td> </tr> <tr> <td class="h" > <a name="484">484</a> </td> <td class="c3" > 179 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 457 </td> <td class="s"> my( $init, $source, @rest ) = &XML::FeedPP::Util::param_even_odd(@_); </td> </tr> <tr> <td class="h" > <a name="485">485</a> </td> <td class="c3" > 179 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 351 </td> <td class="s"> my $do_autodetect = $package eq __PACKAGE__; </td> </tr> <tr> <td class="h" > <a name="486">486</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="487">487</a> </td> <td class="c3" > 179 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#487-1"> 50 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#487-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 595 </td> <td class="s"> Carp::croak "No feed source" </td> </tr> <tr> <td class="h" > <a name="488">488</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if $do_autodetect && !$source; </td> </tr> <tr> <td class="h" > <a name="489">489</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="490">490</a> </td> <td class="c3" > 179 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 330 </td> <td class="s"> my $self = bless {}, $package; </td> </tr> <tr> <td class="h" > <a name="491">491</a> </td> <td class="c3" > 179 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#491-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 549 </td> <td class="s"> $self->load($source, @rest) if $source; </td> </tr> <tr> <td class="h" > <a name="492">492</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="493">493</a> </td> <td class="c3" > 175 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#493-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 431 </td> <td class="s"> if($do_autodetect) { </td> </tr> <tr> <td class="h" > <a name="494">494</a> </td> <td class="c3" > 71 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 177 </td> <td class="s"> my $class = $self->detect_format; </td> </tr> <tr> <td class="h" > <a name="495">495</a> </td> <td class="c3" > 71 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#495-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 157 </td> <td class="s"> unless ( $class ) { </td> </tr> <tr> <td class="h" > <a name="496">496</a> </td> <td class="c3" > 1 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#496-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> my $root = ref $self ? join( " ", sort keys %$self ) : $self; </td> </tr> <tr> <td class="h" > <a name="497">497</a> </td> <td class="c3" > 1 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#497-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> my $class = ref $self ? ref $self : $self; </td> </tr> <tr> <td class="h" > <a name="498">498</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 97 </td> <td class="s"> Carp::croak "Invalid $class feed format: $root"; </td> </tr> <tr> <td class="h" > <a name="499">499</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="500">500</a> </td> <td class="c3" > 70 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 139 </td> <td class="s"> bless $self, $class; </td> </tr> <tr> <td class="h" > <a name="501">501</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="502">502</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="503">503</a> </td> <td class="c3" > 174 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#503-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 624 </td> <td class="s"> $self->validate_feed() if $source; </td> </tr> <tr> <td class="h" > <a name="504">504</a> </td> <td class="c3" > 174 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 555 </td> <td class="s"> $self->init_feed(); </td> </tr> <tr> <td class="h" > <a name="505">505</a> </td> <td class="c3" > 174 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#505-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 738 </td> <td class="s"> $self->elements(@$init) if ref $init; </td> </tr> <tr> <td class="h" > <a name="506">506</a> </td> <td class="c3" > 174 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 631 </td> <td class="s"> $self; </td> </tr> <tr> <td class="h" > <a name="507">507</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="508">508</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="509">509</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub validate_feed { </td> </tr> <tr> <td class="h" > <a name="510">510</a> </td> <td class="c3" > 75 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#510-1"> 75 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#510-1"> 0 </a> </td> <td > 117 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="511">511</a> </td> <td class="c3" > 75 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#511-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 202 </td> <td class="s"> return if $self->test_feed(@_); </td> </tr> <tr> <td class="h" > <a name="512">512</a> </td> <td class="c0" > <a href="#513"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#512-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my $root = ref $self ? join( " ", sort keys %$self ) : $self; </td> </tr> <tr> <td class="h" > <a name="513">513</a> </td> <td class="c0" > <a href="#514"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#513-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my $class = ref $self ? ref $self : $self; </td> </tr> <tr> <td class="h" > <a name="514">514</a> </td> <td class="c0" > <a href="#544"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> Carp::croak "Invalid $class feed format: $root"; </td> </tr> <tr> <td class="h" > <a name="515">515</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="516">516</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="517">517</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub detect_format { </td> </tr> <tr> <td class="h" > <a name="518">518</a> </td> <td class="c3" > 71 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#518-1"> 71 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#518-1"> 0 </a> </td> <td > 112 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="519">519</a> </td> <td class="c3" > 71 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 147 </td> <td class="s"> my $list = $self->available_format; </td> </tr> <tr> <td class="h" > <a name="520">520</a> </td> <td class="c3" > 71 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 139 </td> <td class="s"> foreach my $class ( @$list ) { </td> </tr> <tr> <td class="h" > <a name="521">521</a> </td> <td class="c3" > 154 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 511 </td> <td class="s"> my $hit = $class->test_feed($self); </td> </tr> <tr> <td class="h" > <a name="522">522</a> </td> <td class="c3" > 154 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#522-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 370 </td> <td class="s"> return $class if $hit; </td> </tr> <tr> <td class="h" > <a name="523">523</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="524">524</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2 </td> <td class="s"> undef; </td> </tr> <tr> <td class="h" > <a name="525">525</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="526">526</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="527">527</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub available_format { </td> </tr> <tr> <td class="h" > <a name="528">528</a> </td> <td class="c3" > 71 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#528-1"> 71 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#528-1"> 0 </a> </td> <td > 171 </td> <td class="s"> [ 'XML::FeedPP::RSS', </td> </tr> <tr> <td class="h" > <a name="529">529</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> 'XML::FeedPP::RDF', </td> </tr> <tr> <td class="h" > <a name="530">530</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> 'XML::FeedPP::Atom::Atom10', </td> </tr> <tr> <td class="h" > <a name="531">531</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> 'XML::FeedPP::Atom::Atom03', </td> </tr> <tr> <td class="h" > <a name="532">532</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> 'XML::FeedPP::Atom' ]; </td> </tr> <tr> <td class="h" > <a name="533">533</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="534">534</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="535">535</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub load { </td> </tr> <tr> <td class="h" > <a name="536">536</a> </td> <td class="c3" > 80 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#536-1"> 80 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#536-1"> 1 </a> </td> <td > 123 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="537">537</a> </td> <td class="c3" > 80 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 119 </td> <td class="s"> my $source = shift; </td> </tr> <tr> <td class="h" > <a name="538">538</a> </td> <td class="c3" > 80 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 129 </td> <td class="s"> my $args = { @_ }; </td> </tr> <tr> <td class="h" > <a name="539">539</a> </td> <td class="c3" > 80 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 138 </td> <td class="s"> my $method = $args->{'-type'}; </td> </tr> <tr> <td class="h" > <a name="540">540</a> </td> <td class="c3" > 80 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#540-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 218 </td> <td class="s"> Carp::croak "No feed source" unless defined $source; </td> </tr> <tr> <td class="h" > <a name="541">541</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="542">542</a> </td> <td class="c3" > 80 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#542-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 159 </td> <td class="s"> if ( ! $method ) { </td> </tr> <tr> <td class="h" > <a name="543">543</a> </td> <td class="c3" > 77 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#543-1"> 50 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#543-1"> 33 </a> </td> <td >   </td> <td >   </td> <td > 648 </td> <td class="s"> if ( $source =~ m#^https?://#s ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-3"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="544">544</a> </td> <td class="c0" > <a href="#551"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $method = 'url'; </td> </tr> <tr> <td class="h" > <a name="545">545</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="546">546</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( $source =~ m#(?:\s*\xEF\xBB\xBF)?\s* </td> </tr> <tr> <td class="h" > <a name="547">547</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> (<(\?xml|!DOCTYPE|rdf:RDF|rss|feed)\W)#xis ) { </td> </tr> <tr> <td class="h" > <a name="548">548</a> </td> <td class="c3" > 75 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 134 </td> <td class="s"> $method = 'string'; </td> </tr> <tr> <td class="h" > <a name="549">549</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="550">550</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( $source !~ /[\r\n]/ && -f $source ) { </td> </tr> <tr> <td class="h" > <a name="551">551</a> </td> <td class="c0" > <a href="#563"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $method = 'file'; </td> </tr> <tr> <td class="h" > <a name="552">552</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="553">553</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="554">554</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 240 </td> <td class="s"> Carp::croak "Invalid feed source: $source"; </td> </tr> <tr> <td class="h" > <a name="555">555</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="556">556</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="557">557</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="558">558</a> </td> <td class="c3" > 78 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 258 </td> <td class="s"> my $opts = { map { $_ => $args->{$_} } grep { ! /^-/ } keys %$args }; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 18 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 9 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 36 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="559">559</a> </td> <td class="c3" > 78 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 471 </td> <td class="s"> my $tpp = XML::TreePP->new(%$TREEPP_OPTIONS, %$opts); </td> </tr> <tr> <td class="h" > <a name="560">560</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="561">561</a> </td> <td class="c3" > 78 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 689 </td> <td class="s"> my $tree; </td> </tr> <tr> <td class="h" > <a name="562">562</a> </td> <td class="c3" > 78 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#562-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 219 </td> <td class="s"> if ( $method eq 'url' ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-3"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="563">563</a> </td> <td class="c0" > <a href="#572"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $tree = $tpp->parsehttp( GET => $source ); </td> </tr> <tr> <td class="h" > <a name="564">564</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="565">565</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( $method eq 'string' ) { </td> </tr> <tr> <td class="h" > <a name="566">566</a> </td> <td class="c3" > 77 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 221 </td> <td class="s"> $tree = $tpp->parse($source); </td> </tr> <tr> <td class="h" > <a name="567">567</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="568">568</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( $method eq 'file' ) { </td> </tr> <tr> <td class="h" > <a name="569">569</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> $tree = $tpp->parsefile($source); </td> </tr> <tr> <td class="h" > <a name="570">570</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="571">571</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="572">572</a> </td> <td class="c0" > <a href="#590"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> Carp::croak "Invalid load type: $method"; </td> </tr> <tr> <td class="h" > <a name="573">573</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="574">574</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="575">575</a> </td> <td class="c3" > 77 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#575-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 232342 </td> <td class="s"> Carp::croak "Loading failed: $source" unless ref $tree; </td> </tr> <tr> <td class="h" > <a name="576">576</a> </td> <td class="c3" > 76 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 305 </td> <td class="s"> %$self = %$tree; # override myself </td> </tr> <tr> <td class="h" > <a name="577">577</a> </td> <td class="c3" > 76 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 321 </td> <td class="s"> $self; </td> </tr> <tr> <td class="h" > <a name="578">578</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="579">579</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="580">580</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub to_string { </td> </tr> <tr> <td class="h" > <a name="581">581</a> </td> <td class="c3" > 91 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#581-1"> 91 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#581-1"> 1 </a> </td> <td > 21418 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="582">582</a> </td> <td class="c3" > 91 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 205 </td> <td class="s"> my( $args, $encode, @rest ) = XML::FeedPP::Util::param_even_odd(@_); </td> </tr> <tr> <td class="h" > <a name="583">583</a> </td> <td class="c3" > 91 </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#583-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 250 </td> <td class="s"> $args ||= \@rest; </td> </tr> <tr> <td class="h" > <a name="584">584</a> </td> <td class="c3" > 91 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#584-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 199 </td> <td class="s"> my @opts = ( output_encoding => $encode ) if $encode; </td> </tr> <tr> <td class="h" > <a name="585">585</a> </td> <td class="c3" > 91 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 505 </td> <td class="s"> my $tpp = XML::TreePP->new( %$TREEPP_OPTIONS, @opts, @$args ); </td> </tr> <tr> <td class="h" > <a name="586">586</a> </td> <td class="c3" > 91 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 891 </td> <td class="s"> $tpp->write( $self, $encode ); </td> </tr> <tr> <td class="h" > <a name="587">587</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="588">588</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="589">589</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub to_file { </td> </tr> <tr> <td class="h" > <a name="590">590</a> </td> <td class="c0" > <a href="#591"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#590-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#590-1"> 1 </a> </td> <td > 0 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="591">591</a> </td> <td class="c0" > <a href="#592"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my $file = shift; </td> </tr> <tr> <td class="h" > <a name="592">592</a> </td> <td class="c0" > <a href="#593"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my( $args, $encode, @rest ) = XML::FeedPP::Util::param_even_odd(@_); </td> </tr> <tr> <td class="h" > <a name="593">593</a> </td> <td class="c0" > <a href="#594"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#593-1"> 0 </a> </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $args ||= \@rest; </td> </tr> <tr> <td class="h" > <a name="594">594</a> </td> <td class="c0" > <a href="#595"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#594-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my @opts = ( output_encoding => $encode ) if $encode; </td> </tr> <tr> <td class="h" > <a name="595">595</a> </td> <td class="c0" > <a href="#596"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my $tpp = XML::TreePP->new( %$TREEPP_OPTIONS, @opts, @$args ); </td> </tr> <tr> <td class="h" > <a name="596">596</a> </td> <td class="c0" > <a href="#613"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $tpp->writefile( $file, $self, $encode ); </td> </tr> <tr> <td class="h" > <a name="597">597</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="598">598</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="599">599</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub merge { </td> </tr> <tr> <td class="h" > <a name="600">600</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#600-1"> 31 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#600-1"> 1 </a> </td> <td > 22797 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="601">601</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 48 </td> <td class="s"> my $source = shift; </td> </tr> <tr> <td class="h" > <a name="602">602</a> </td> <td class="c3" > 31 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#602-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 106 </td> <td class="s"> my $target = ref $source ? $source : XML::FeedPP->new($source, @_); </td> </tr> <tr> <td class="h" > <a name="603">603</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 144 </td> <td class="s"> $self->merge_channel($target); </td> </tr> <tr> <td class="h" > <a name="604">604</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 116 </td> <td class="s"> $self->merge_item($target); </td> </tr> <tr> <td class="h" > <a name="605">605</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 133 </td> <td class="s"> $self->normalize(); </td> </tr> <tr> <td class="h" > <a name="606">606</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 343 </td> <td class="s"> $self; </td> </tr> <tr> <td class="h" > <a name="607">607</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="608">608</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="609">609</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub merge_channel { </td> </tr> <tr> <td class="h" > <a name="610">610</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#610-1"> 31 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#610-1"> 0 </a> </td> <td > 57 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="611">611</a> </td> <td class="c3" > 31 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#611-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 78 </td> <td class="s"> my $target = shift or return; </td> </tr> <tr> <td class="h" > <a name="612">612</a> </td> <td class="c3" > 31 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#612-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 76 </td> <td class="s"> if ( ref $self eq ref $target ) { </td> </tr> <tr> <td class="h" > <a name="613">613</a> </td> <td class="c0" > <a href="#780"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $self->merge_native_channel($target); </td> </tr> <tr> <td class="h" > <a name="614">614</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="615">615</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="616">616</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 122 </td> <td class="s"> $self->merge_common_channel($target); </td> </tr> <tr> <td class="h" > <a name="617">617</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="618">618</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="619">619</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="620">620</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub merge_item { </td> </tr> <tr> <td class="h" > <a name="621">621</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#621-1"> 31 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#621-1"> 0 </a> </td> <td > 47 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="622">622</a> </td> <td class="c3" > 31 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#622-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 63 </td> <td class="s"> my $target = shift or return; </td> </tr> <tr> <td class="h" > <a name="623">623</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 80 </td> <td class="s"> foreach my $item ( $target->get_item() ) { </td> </tr> <tr> <td class="h" > <a name="624">624</a> </td> <td class="c3" > 59 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 133 </td> <td class="s"> $self->add_item( $item ); </td> </tr> <tr> <td class="h" > <a name="625">625</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="626">626</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="627">627</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="628">628</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub merge_common_channel { </td> </tr> <tr> <td class="h" > <a name="629">629</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#629-1"> 31 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#629-1"> 0 </a> </td> <td > 60 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="630">630</a> </td> <td class="c3" > 31 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#630-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 105 </td> <td class="s"> my $target = shift or return; </td> </tr> <tr> <td class="h" > <a name="631">631</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="632">632</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 80 </td> <td class="s"> my $title1 = $self->title(); </td> </tr> <tr> <td class="h" > <a name="633">633</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 91 </td> <td class="s"> my $title2 = $target->title(); </td> </tr> <tr> <td class="h" > <a name="634">634</a> </td> <td class="c3" > 31 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#634-1"> 100 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#634-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 169 </td> <td class="s"> $self->title($title2) if ( !defined $title1 && defined $title2 ); </td> </tr> <tr> <td class="h" > <a name="635">635</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="636">636</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 80 </td> <td class="s"> my $desc1 = $self->description(); </td> </tr> <tr> <td class="h" > <a name="637">637</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 94 </td> <td class="s"> my $desc2 = $target->description(); </td> </tr> <tr> <td class="h" > <a name="638">638</a> </td> <td class="c3" > 31 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#638-1"> 100 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#638-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 141 </td> <td class="s"> $self->description($desc2) if ( !defined $desc1 && defined $desc2 ); </td> </tr> <tr> <td class="h" > <a name="639">639</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="640">640</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 79 </td> <td class="s"> my $link1 = $self->link(); </td> </tr> <tr> <td class="h" > <a name="641">641</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 75 </td> <td class="s"> my $link2 = $target->link(); </td> </tr> <tr> <td class="h" > <a name="642">642</a> </td> <td class="c3" > 31 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#642-1"> 100 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#642-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 170 </td> <td class="s"> $self->link($link2) if ( !defined $link1 && defined $link2 ); </td> </tr> <tr> <td class="h" > <a name="643">643</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="644">644</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 95 </td> <td class="s"> my $lang1 = $self->language(); </td> </tr> <tr> <td class="h" > <a name="645">645</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 79 </td> <td class="s"> my $lang2 = $target->language(); </td> </tr> <tr> <td class="h" > <a name="646">646</a> </td> <td class="c3" > 31 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#646-1"> 100 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#646-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 141 </td> <td class="s"> $self->language($lang2) if ( !defined $lang1 && defined $lang2 ); </td> </tr> <tr> <td class="h" > <a name="647">647</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="648">648</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 70 </td> <td class="s"> my $right1 = $self->copyright(); </td> </tr> <tr> <td class="h" > <a name="649">649</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 72 </td> <td class="s"> my $right2 = $target->copyright(); </td> </tr> <tr> <td class="h" > <a name="650">650</a> </td> <td class="c3" > 31 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#650-1"> 100 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#650-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 144 </td> <td class="s"> $self->copyright($right2) if ( !defined $right1 && defined $right2 ); </td> </tr> <tr> <td class="h" > <a name="651">651</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="652">652</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 105 </td> <td class="s"> my $pubDate1 = $self->pubDate(); </td> </tr> <tr> <td class="h" > <a name="653">653</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 76 </td> <td class="s"> my $pubDate2 = $target->pubDate(); </td> </tr> <tr> <td class="h" > <a name="654">654</a> </td> <td class="c3" > 31 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#654-1"> 100 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#654-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 126 </td> <td class="s"> $self->pubDate($pubDate2) if ( !defined $pubDate1 && defined $pubDate2 ); </td> </tr> <tr> <td class="h" > <a name="655">655</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="656">656</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 117 </td> <td class="s"> my @image1 = $self->image(); </td> </tr> <tr> <td class="h" > <a name="657">657</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 86 </td> <td class="s"> my @image2 = $target->image(); </td> </tr> <tr> <td class="h" > <a name="658">658</a> </td> <td class="c3" > 31 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#658-1"> 100 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#658-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 171 </td> <td class="s"> $self->image(@image2) if ( !defined $image1[0] && defined $image2[0] ); </td> </tr> <tr> <td class="h" > <a name="659">659</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="660">660</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 75 </td> <td class="s"> my @xmlns1 = $self->xmlns(); </td> </tr> <tr> <td class="h" > <a name="661">661</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 86 </td> <td class="s"> my @xmlns2 = $target->xmlns(); </td> </tr> <tr> <td class="h" > <a name="662">662</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 77 </td> <td class="s"> my $xmlchk = { map { $_ => 1 } @xmlns1, @$XML::FeedPP::XMLNS_NOCOPY }; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 177 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 311 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="663">663</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 89 </td> <td class="s"> foreach my $ns (@xmlns2) { </td> </tr> <tr> <td class="h" > <a name="664">664</a> </td> <td class="c3" > 48 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#664-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 121 </td> <td class="s"> next if exists $xmlchk->{$ns}; </td> </tr> <tr> <td class="h" > <a name="665">665</a> </td> <td class="c3" > 11 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 15 </td> <td class="s"> $self->xmlns( $ns, $target->xmlns($ns) ); </td> </tr> <tr> <td class="h" > <a name="666">666</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="667">667</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="668">668</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 98 </td> <td class="s"> $self->merge_module_nodes( $self->docroot, $target->docroot ); </td> </tr> <tr> <td class="h" > <a name="669">669</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="670">670</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 112 </td> <td class="s"> $self; </td> </tr> <tr> <td class="h" > <a name="671">671</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="672">672</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="673">673</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub add_clone_item { </td> </tr> <tr> <td class="h" > <a name="674">674</a> </td> <td class="c3" > 65 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#674-1"> 65 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#674-1"> 0 </a> </td> <td > 104 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="675">675</a> </td> <td class="c3" > 65 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#675-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 131 </td> <td class="s"> my $srcitem = shift or return; </td> </tr> <tr> <td class="h" > <a name="676">676</a> </td> <td class="c3" > 65 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#676-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 125 </td> <td class="s"> my $link = $srcitem->link() or return; </td> </tr> <tr> <td class="h" > <a name="677">677</a> </td> <td class="c3" > 65 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 211 </td> <td class="s"> my $dstitem = $self->add_item( $link ); </td> </tr> <tr> <td class="h" > <a name="678">678</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="679">679</a> </td> <td class="c3" > 65 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#679-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 149 </td> <td class="s"> if ( ref $dstitem eq ref $srcitem ) { </td> </tr> <tr> <td class="h" > <a name="680">680</a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 12 </td> <td class="s"> XML::FeedPP::Util::merge_hash( $dstitem, $srcitem ); </td> </tr> <tr> <td class="h" > <a name="681">681</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="682">682</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # A new item starts with a link, and then a merge. Setting the </td> </tr> <tr> <td class="h" > <a name="683">683</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # link often affects the guid. The merge will not set the guid </td> </tr> <tr> <td class="h" > <a name="684">684</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # anymore. So, let's overrule that. </td> </tr> <tr> <td class="h" > <a name="685">685</a> </td> <td class="c3" > 3 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#685-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 13 </td> <td class="s"> if(my $guid = $srcitem->{guid}) { </td> </tr> <tr> <td class="h" > <a name="686">686</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> $dstitem->{guid} = $guid; </td> </tr> <tr> <td class="h" > <a name="687">687</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="688">688</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="689">689</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="690">690</a> </td> <td class="c3" > 62 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 131 </td> <td class="s"> my $title = $srcitem->title(); </td> </tr> <tr> <td class="h" > <a name="691">691</a> </td> <td class="c3" > 62 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#691-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 175 </td> <td class="s"> $dstitem->title($title) if defined $title; </td> </tr> <tr> <td class="h" > <a name="692">692</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="693">693</a> </td> <td class="c3" > 62 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 129 </td> <td class="s"> my $description = $srcitem->description(); </td> </tr> <tr> <td class="h" > <a name="694">694</a> </td> <td class="c3" > 62 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#694-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 143 </td> <td class="s"> $dstitem->description($description) if defined $description; </td> </tr> <tr> <td class="h" > <a name="695">695</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="696">696</a> </td> <td class="c3" > 62 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 116 </td> <td class="s"> my $category = $srcitem->category(); </td> </tr> <tr> <td class="h" > <a name="697">697</a> </td> <td class="c3" > 62 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#697-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 151 </td> <td class="s"> $dstitem->category($category) if defined $category; </td> </tr> <tr> <td class="h" > <a name="698">698</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="699">699</a> </td> <td class="c3" > 62 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 158 </td> <td class="s"> my $author = $srcitem->author(); </td> </tr> <tr> <td class="h" > <a name="700">700</a> </td> <td class="c3" > 62 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#700-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 140 </td> <td class="s"> $dstitem->author($author) if defined $author; </td> </tr> <tr> <td class="h" > <a name="701">701</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="702">702</a> </td> <td class="c3" > 62 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 123 </td> <td class="s"> my $guid = $srcitem->guid(); </td> </tr> <tr> <td class="h" > <a name="703">703</a> </td> <td class="c3" > 62 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#703-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 146 </td> <td class="s"> $dstitem->guid($guid) if defined $guid; </td> </tr> <tr> <td class="h" > <a name="704">704</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="705">705</a> </td> <td class="c3" > 62 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 108 </td> <td class="s"> my $pubDate = $srcitem->pubDate(); </td> </tr> <tr> <td class="h" > <a name="706">706</a> </td> <td class="c3" > 62 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#706-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 145 </td> <td class="s"> $dstitem->pubDate($pubDate) if defined $pubDate; </td> </tr> <tr> <td class="h" > <a name="707">707</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="708">708</a> </td> <td class="c3" > 62 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 136 </td> <td class="s"> $self->merge_module_nodes( $dstitem, $srcitem ); </td> </tr> <tr> <td class="h" > <a name="709">709</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="710">710</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="711">711</a> </td> <td class="c3" > 65 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 170 </td> <td class="s"> $dstitem; </td> </tr> <tr> <td class="h" > <a name="712">712</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="713">713</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="714">714</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub merge_module_nodes { </td> </tr> <tr> <td class="h" > <a name="715">715</a> </td> <td class="c3" > 93 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#715-1"> 93 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#715-1"> 0 </a> </td> <td > 124 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="716">716</a> </td> <td class="c3" > 93 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 127 </td> <td class="s"> my $item1 = shift; </td> </tr> <tr> <td class="h" > <a name="717">717</a> </td> <td class="c3" > 93 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 117 </td> <td class="s"> my $item2 = shift; </td> </tr> <tr> <td class="h" > <a name="718">718</a> </td> <td class="c3" > 93 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 186 </td> <td class="s"> foreach my $key ( grep { /:/ } keys %$item2 ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 377 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 713 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="719">719</a> </td> <td class="c3" > 90 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#719-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 302 </td> <td class="s"> next if ( $key =~ /^-?(dc|rdf|xmlns):/ ); </td> </tr> <tr> <td class="h" > <a name="720">720</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="721">721</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # deep copy would be better </td> </tr> <tr> <td class="h" > <a name="722">722</a> </td> <td class="c3" > 23 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 99 </td> <td class="s"> $item1->{$key} = $item2->{$key}; </td> </tr> <tr> <td class="h" > <a name="723">723</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="724">724</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="725">725</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="726">726</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub normalize { </td> </tr> <tr> <td class="h" > <a name="727">727</a> </td> <td class="c3" > 37 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#727-1"> 37 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#727-1"> 1 </a> </td> <td > 126 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="728">728</a> </td> <td class="c3" > 37 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 162 </td> <td class="s"> $self->normalize_pubDate(); </td> </tr> <tr> <td class="h" > <a name="729">729</a> </td> <td class="c3" > 37 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 126 </td> <td class="s"> $self->sort_item(); </td> </tr> <tr> <td class="h" > <a name="730">730</a> </td> <td class="c3" > 37 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 113 </td> <td class="s"> $self->uniq_item(); </td> </tr> <tr> <td class="h" > <a name="731">731</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="732">732</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="733">733</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub normalize_pubDate { </td> </tr> <tr> <td class="h" > <a name="734">734</a> </td> <td class="c3" > 37 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#734-1"> 37 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#734-1"> 0 </a> </td> <td > 50 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="735">735</a> </td> <td class="c3" > 37 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 116 </td> <td class="s"> foreach my $item ( $self->get_item() ) { </td> </tr> <tr> <td class="h" > <a name="736">736</a> </td> <td class="c3" > 77 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#736-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 170 </td> <td class="s"> my $date = $item->get_pubDate_native() or next; </td> </tr> <tr> <td class="h" > <a name="737">737</a> </td> <td class="c3" > 45 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 86 </td> <td class="s"> $item->pubDate( $date ); </td> </tr> <tr> <td class="h" > <a name="738">738</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="739">739</a> </td> <td class="c3" > 37 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 104 </td> <td class="s"> my $date = $self->get_pubDate_native(); </td> </tr> <tr> <td class="h" > <a name="740">740</a> </td> <td class="c3" > 37 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#740-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 116 </td> <td class="s"> $self->pubDate( $date ) if $date; </td> </tr> <tr> <td class="h" > <a name="741">741</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="742">742</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="743">743</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub xmlns { </td> </tr> <tr> <td class="h" > <a name="744">744</a> </td> <td class="c3" > 312 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#744-1"> 312 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#744-1"> 1 </a> </td> <td > 426 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="745">745</a> </td> <td class="c3" > 312 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 367 </td> <td class="s"> my $ns = shift; </td> </tr> <tr> <td class="h" > <a name="746">746</a> </td> <td class="c3" > 312 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 424 </td> <td class="s"> my $url = shift; </td> </tr> <tr> <td class="h" > <a name="747">747</a> </td> <td class="c3" > 312 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 595 </td> <td class="s"> my $root = $self->docroot; </td> </tr> <tr> <td class="h" > <a name="748">748</a> </td> <td class="c3" > 312 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#748-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 711 </td> <td class="s"> if ( !defined $ns ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="749">749</a> </td> <td class="c3" > 74 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 182 </td> <td class="s"> my $list = [ grep { /^-xmlns(:\S|$)/ } keys %$root ]; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 339 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 681 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="750">750</a> </td> <td class="c3" > 74 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 143 </td> <td class="s"> return map { (/^-(.*)$/)[0] } @$list; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 129 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 392 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="751">751</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="752">752</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( !defined $url ) { </td> </tr> <tr> <td class="h" > <a name="753">753</a> </td> <td class="c3" > 20 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#753-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 58 </td> <td class="s"> return unless exists $root->{ '-' . $ns }; </td> </tr> <tr> <td class="h" > <a name="754">754</a> </td> <td class="c3" > 20 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 59 </td> <td class="s"> return $root->{ '-' . $ns }; </td> </tr> <tr> <td class="h" > <a name="755">755</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="756">756</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="757">757</a> </td> <td class="c3" > 218 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 576 </td> <td class="s"> $root->{ '-' . $ns } = $url; </td> </tr> <tr> <td class="h" > <a name="758">758</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="759">759</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="760">760</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="761">761</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub get_pubDate_w3cdtf { </td> </tr> <tr> <td class="h" > <a name="762">762</a> </td> <td class="c3" > 82 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#762-1"> 82 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#762-1"> 0 </a> </td> <td > 141 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="763">763</a> </td> <td class="c3" > 82 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 187 </td> <td class="s"> my $date = $self->get_pubDate_native(); </td> </tr> <tr> <td class="h" > <a name="764">764</a> </td> <td class="c3" > 82 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 208 </td> <td class="s"> XML::FeedPP::Util::get_w3cdtf($date); </td> </tr> <tr> <td class="h" > <a name="765">765</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="766">766</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="767">767</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub get_pubDate_rfc1123 { </td> </tr> <tr> <td class="h" > <a name="768">768</a> </td> <td class="c3" > 21 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#768-1"> 21 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#768-1"> 0 </a> </td> <td > 902 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="769">769</a> </td> <td class="c3" > 21 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 40 </td> <td class="s"> my $date = $self->get_pubDate_native(); </td> </tr> <tr> <td class="h" > <a name="770">770</a> </td> <td class="c3" > 21 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 39 </td> <td class="s"> XML::FeedPP::Util::get_rfc1123($date); </td> </tr> <tr> <td class="h" > <a name="771">771</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="772">772</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="773">773</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub get_pubDate_epoch { </td> </tr> <tr> <td class="h" > <a name="774">774</a> </td> <td class="c3" > 113 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#774-1"> 113 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#774-1"> 0 </a> </td> <td > 155 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="775">775</a> </td> <td class="c3" > 113 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 175 </td> <td class="s"> my $date = $self->get_pubDate_native(); </td> </tr> <tr> <td class="h" > <a name="776">776</a> </td> <td class="c3" > 113 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 195 </td> <td class="s"> XML::FeedPP::Util::get_epoch($date); </td> </tr> <tr> <td class="h" > <a name="777">777</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="778">778</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="779">779</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub call { </td> </tr> <tr> <td class="h" > <a name="780">780</a> </td> <td class="c0" > <a href="#781"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#780-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#780-1"> 0 </a> </td> <td > 0 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="781">781</a> </td> <td class="c0" > <a href="#782"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my $name = shift; </td> </tr> <tr> <td class="h" > <a name="782">782</a> </td> <td class="c0" > <a href="#783"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my $class = __PACKAGE__."::Plugin::".$name; </td> </tr> <tr> <td class="h" > <a name="783">783</a> </td> <td class="c0" > <a href="#784"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my $pmfile = $class; </td> </tr> <tr> <td class="h" > <a name="784">784</a> </td> <td class="c0" > <a href="#785"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $pmfile =~ s#::#/#g; </td> </tr> <tr> <td class="h" > <a name="785">785</a> </td> <td class="c0" > <a href="#786"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $pmfile .= ".pm"; </td> </tr> <tr> <td class="h" > <a name="786">786</a> </td> <td class="c0" > <a href="#787"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> local $@; </td> </tr> <tr> <td class="h" > <a name="787">787</a> </td> <td class="c0" > <a href="#788"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#787-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> eval { </td> </tr> <tr> <td class="h" > <a name="788">788</a> </td> <td class="c0" > <a href="#790"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> require $pmfile; </td> </tr> <tr> <td class="h" > <a name="789">789</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } unless defined $class->VERSION; </td> </tr> <tr> <td class="h" > <a name="790">790</a> </td> <td class="c0" > <a href="#791"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#790-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> Carp::croak "$class failed: $@" if $@; </td> </tr> <tr> <td class="h" > <a name="791">791</a> </td> <td class="c0" > <a href="#835"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> return $class->run( $self, @_ ); </td> </tr> <tr> <td class="h" > <a name="792">792</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="793">793</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="794">794</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub elements { </td> </tr> <tr> <td class="h" > <a name="795">795</a> </td> <td class="c3" > 99 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#795-1"> 99 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#795-1"> 0 </a> </td> <td > 147 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="796">796</a> </td> <td class="c3" > 99 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 177 </td> <td class="s"> my $args = [ @_ ]; </td> </tr> <tr> <td class="h" > <a name="797">797</a> </td> <td class="c3" > 99 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 218 </td> <td class="s"> my $methods = { map {$_=>1} @$FEED_METHODS }; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 792 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1360 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="798">798</a> </td> <td class="c3" > 99 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 451 </td> <td class="s"> while ( my $key = shift @$args ) { </td> </tr> <tr> <td class="h" > <a name="799">799</a> </td> <td class="c3" > 27 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 31 </td> <td class="s"> my $val = shift @$args; </td> </tr> <tr> <td class="h" > <a name="800">800</a> </td> <td class="c3" > 27 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#800-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 39 </td> <td class="s"> if ( $methods->{$key} ) { </td> </tr> <tr> <td class="h" > <a name="801">801</a> </td> <td class="c3" > 24 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 69 </td> <td class="s"> $self->$key( $val ); </td> </tr> <tr> <td class="h" > <a name="802">802</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } else { </td> </tr> <tr> <td class="h" > <a name="803">803</a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 7 </td> <td class="s"> $self->set( $key, $val ); </td> </tr> <tr> <td class="h" > <a name="804">804</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="805">805</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="806">806</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="807">807</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="808">808</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub match_item { </td> </tr> <tr> <td class="h" > <a name="809">809</a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#809-1"> 12 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#809-1"> 1 </a> </td> <td > 4065 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="810">810</a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 23 </td> <td class="s"> my @list = $self->get_item(); </td> </tr> <tr> <td class="h" > <a name="811">811</a> </td> <td class="c3" > 12 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#811-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 23 </td> <td class="s"> return unless scalar @list; </td> </tr> <tr> <td class="h" > <a name="812">812</a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 21 </td> <td class="s"> my $methods = { map {$_=>1} @$ITEM_METHODS }; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 108 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 155 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="813">813</a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 25 </td> <td class="s"> my $args = [ @_ ]; </td> </tr> <tr> <td class="h" > <a name="814">814</a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 18 </td> <td class="s"> my $out = []; </td> </tr> <tr> <td class="h" > <a name="815">815</a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 19 </td> <td class="s"> foreach my $item ( @list ) { </td> </tr> <tr> <td class="h" > <a name="816">816</a> </td> <td class="c3" > 36 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 35 </td> <td class="s"> my $unmatch = 0; </td> </tr> <tr> <td class="h" > <a name="817">817</a> </td> <td class="c3" > 36 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 34 </td> <td class="s"> my $i = 0; </td> </tr> <tr> <td class="h" > <a name="818">818</a> </td> <td class="c3" > 36 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 34 </td> <td class="s"> while( 1 ) { </td> </tr> <tr> <td class="h" > <a name="819">819</a> </td> <td class="c3" > 63 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#819-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 107 </td> <td class="s"> my $key = $args->[$i++] or last; </td> </tr> <tr> <td class="h" > <a name="820">820</a> </td> <td class="c3" > 42 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 41 </td> <td class="s"> my $test = $args->[$i++]; </td> </tr> <tr> <td class="h" > <a name="821">821</a> </td> <td class="c3" > 42 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#821-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 90 </td> <td class="s"> my $got = $methods->{$key} ? $item->$key() : $item->get( $key ); </td> </tr> <tr> <td class="h" > <a name="822">822</a> </td> <td class="c3" > 42 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#822-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 213 </td> <td class="s"> unless ( $got =~ $test ) { </td> </tr> <tr> <td class="h" > <a name="823">823</a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 17 </td> <td class="s"> $unmatch ++; </td> </tr> <tr> <td class="h" > <a name="824">824</a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 21 </td> <td class="s"> last; </td> </tr> <tr> <td class="h" > <a name="825">825</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="826">826</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="827">827</a> </td> <td class="c3" > 36 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#827-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 56 </td> <td class="s"> unless ( $unmatch ) { </td> </tr> <tr> <td class="h" > <a name="828">828</a> </td> <td class="c3" > 21 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#828-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 29 </td> <td class="s"> return $item unless wantarray; </td> </tr> <tr> <td class="h" > <a name="829">829</a> </td> <td class="c3" > 21 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 35 </td> <td class="s"> push( @$out, $item ); </td> </tr> <tr> <td class="h" > <a name="830">830</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="831">831</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="832">832</a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 47 </td> <td class="s"> @$out; </td> </tr> <tr> <td class="h" > <a name="833">833</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="834">834</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="835">835</a> </td> <td class="c0" > <a href="#836"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#835-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#835-1"> 0 </a> </td> <td > 0 </td> <td class="s"> sub channel_class { Carp::croak((ref $_[0])."->channel_class() is not implemented"); } </td> </tr> <tr> <td class="h" > <a name="836">836</a> </td> <td class="c0" > <a href="#837"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#836-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#836-1"> 0 </a> </td> <td > 0 </td> <td class="s"> sub item_class { Carp::croak((ref $_[0])."->item_class() is not implemented"); } </td> </tr> <tr> <td class="h" > <a name="837">837</a> </td> <td class="c0" > <a href="#838"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#837-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#837-1"> 0 </a> </td> <td > 0 </td> <td class="s"> sub test_feed { Carp::croak((ref $_[0])."->test_feed() is not implemented"); } </td> </tr> <tr> <td class="h" > <a name="838">838</a> </td> <td class="c0" > <a href="#839"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#838-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#838-1"> 0 </a> </td> <td > 0 </td> <td class="s"> sub init_feed { Carp::croak((ref $_[0])."->init_feed() is not implemented"); } </td> </tr> <tr> <td class="h" > <a name="839">839</a> </td> <td class="c0" > <a href="#840"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#839-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#839-1"> 1 </a> </td> <td > 0 </td> <td class="s"> sub add_item { Carp::croak((ref $_[0])."->add_item() is not implemented"); } </td> </tr> <tr> <td class="h" > <a name="840">840</a> </td> <td class="c0" > <a href="#841"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#840-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#840-1"> 1 </a> </td> <td > 0 </td> <td class="s"> sub clear_item { Carp::croak((ref $_[0])."->clear_item() is not implemented"); } </td> </tr> <tr> <td class="h" > <a name="841">841</a> </td> <td class="c0" > <a href="#842"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#841-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#841-1"> 1 </a> </td> <td > 0 </td> <td class="s"> sub remove_item { Carp::croak((ref $_[0])."->remove_item() is not implemented"); } </td> </tr> <tr> <td class="h" > <a name="842">842</a> </td> <td class="c0" > <a href="#843"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#842-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#842-1"> 1 </a> </td> <td > 0 </td> <td class="s"> sub get_item { Carp::croak((ref $_[0])."->get_item() is not implemented"); } </td> </tr> <tr> <td class="h" > <a name="843">843</a> </td> <td class="c0" > <a href="#844"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#843-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#843-1"> 1 </a> </td> <td > 0 </td> <td class="s"> sub sort_item { Carp::croak((ref $_[0])."->sort_item() is not implemented"); } </td> </tr> <tr> <td class="h" > <a name="844">844</a> </td> <td class="c0" > <a href="#845"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#844-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#844-1"> 1 </a> </td> <td > 0 </td> <td class="s"> sub uniq_item { Carp::croak((ref $_[0])."->uniq_item() is not implemented"); } </td> </tr> <tr> <td class="h" > <a name="845">845</a> </td> <td class="c0" > <a href="#846"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#845-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#845-1"> 1 </a> </td> <td > 0 </td> <td class="s"> sub limit_item { Carp::croak((ref $_[0])."->limit_item() is not implemented"); } </td> </tr> <tr> <td class="h" > <a name="846">846</a> </td> <td class="c0" > <a href="#847"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#846-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#846-1"> 0 </a> </td> <td > 0 </td> <td class="s"> sub docroot { Carp::croak((ref $_[0])."->docroot() is not implemented"); } </td> </tr> <tr> <td class="h" > <a name="847">847</a> </td> <td class="c0" > <a href="#848"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#847-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#847-1"> 0 </a> </td> <td > 0 </td> <td class="s"> sub channel { Carp::croak((ref $_[0])."->channel() is not implemented"); } </td> </tr> <tr> <td class="h" > <a name="848">848</a> </td> <td class="c0" > <a href="#849"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#848-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#848-1"> 1 </a> </td> <td > 0 </td> <td class="s"> sub set { Carp::croak((ref $_[0])."->set() is not implemented"); } </td> </tr> <tr> <td class="h" > <a name="849">849</a> </td> <td class="c0" > <a href="#850"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#849-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#849-1"> 1 </a> </td> <td > 0 </td> <td class="s"> sub get { Carp::croak((ref $_[0])."->get() is not implemented"); } </td> </tr> <tr> <td class="h" > <a name="850">850</a> </td> <td class="c0" > <a href="#851"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#850-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#850-1"> 1 </a> </td> <td > 0 </td> <td class="s"> sub title { Carp::croak((ref $_[0])."->title() is not implemented"); } </td> </tr> <tr> <td class="h" > <a name="851">851</a> </td> <td class="c0" > <a href="#852"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#851-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#851-1"> 1 </a> </td> <td > 0 </td> <td class="s"> sub description { Carp::croak((ref $_[0])."->description() is not implemented"); } </td> </tr> <tr> <td class="h" > <a name="852">852</a> </td> <td class="c0" > <a href="#853"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#852-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#852-1"> 1 </a> </td> <td > 0 </td> <td class="s"> sub link { Carp::croak((ref $_[0])."->link() is not implemented"); } </td> </tr> <tr> <td class="h" > <a name="853">853</a> </td> <td class="c0" > <a href="#854"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#853-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#853-1"> 1 </a> </td> <td > 0 </td> <td class="s"> sub language { Carp::croak((ref $_[0])."->language() is not implemented"); } </td> </tr> <tr> <td class="h" > <a name="854">854</a> </td> <td class="c0" > <a href="#855"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#854-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#854-1"> 1 </a> </td> <td > 0 </td> <td class="s"> sub copyright { Carp::croak((ref $_[0])."->copyright() is not implemented"); } </td> </tr> <tr> <td class="h" > <a name="855">855</a> </td> <td class="c0" > <a href="#856"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#855-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#855-1"> 1 </a> </td> <td > 0 </td> <td class="s"> sub pubDate { Carp::croak((ref $_[0])."->pubDate() is not implemented"); } </td> </tr> <tr> <td class="h" > <a name="856">856</a> </td> <td class="c0" > <a href="#863"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#856-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#856-1"> 1 </a> </td> <td > 0 </td> <td class="s"> sub image { Carp::croak((ref $_[0])."->image() is not implemented"); } </td> </tr> <tr> <td class="h" > <a name="857">857</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="858">858</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ---------------------------------------------------------------- </td> </tr> <tr> <td class="h" > <a name="859">859</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> package XML::FeedPP::Plugin; </td> </tr> <tr> <td class="h" > <a name="860">860</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#860-1"> 44 </a> </td> <td >   </td> <td > 323 </td> <td class="s"> use strict; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 114 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3085 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="861">861</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="862">862</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub run { </td> </tr> <tr> <td class="h" > <a name="863">863</a> </td> <td class="c0" > <a href="#864"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#863-1"> 0 </a> </td> <td >   </td> <td > 0 </td> <td class="s"> my $class = shift; </td> </tr> <tr> <td class="h" > <a name="864">864</a> </td> <td class="c0" > <a href="#865"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my $feed = shift; </td> </tr> <tr> <td class="h" > <a name="865">865</a> </td> <td class="c0" > <a href="#866"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#865-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my $ref = ref $class ? ref $class : $class; </td> </tr> <tr> <td class="h" > <a name="866">866</a> </td> <td class="c0" > <a href="#920"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> Carp::croak $ref."->run() is not implemented"; </td> </tr> <tr> <td class="h" > <a name="867">867</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="868">868</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="869">869</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ---------------------------------------------------------------- </td> </tr> <tr> <td class="h" > <a name="870">870</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> package XML::FeedPP::Item; </td> </tr> <tr> <td class="h" > <a name="871">871</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#871-1"> 44 </a> </td> <td >   </td> <td > 241 </td> <td class="s"> use strict; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 78 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1020 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="872">872</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#872-1"> 44 </a> </td> <td >   </td> <td > 202 </td> <td class="s"> use vars qw( @ISA ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 61 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 6607 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="873">873</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> @ISA = qw( XML::FeedPP::Element ); </td> </tr> <tr> <td class="h" > <a name="874">874</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="875">875</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> *get_pubDate_w3cdtf = \&XML::FeedPP::get_pubDate_w3cdtf; # import </td> </tr> <tr> <td class="h" > <a name="876">876</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> *get_pubDate_rfc1123 = \&XML::FeedPP::get_pubDate_rfc1123; </td> </tr> <tr> <td class="h" > <a name="877">877</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> *get_pubDate_epoch = \&XML::FeedPP::get_pubDate_epoch; </td> </tr> <tr> <td class="h" > <a name="878">878</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="879">879</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub elements { </td> </tr> <tr> <td class="h" > <a name="880">880</a> </td> <td class="c3" > 33 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#880-1"> 33 </a> </td> <td >   </td> <td > 37 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="881">881</a> </td> <td class="c3" > 33 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 58 </td> <td class="s"> my $args = [ @_ ]; </td> </tr> <tr> <td class="h" > <a name="882">882</a> </td> <td class="c3" > 33 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 54 </td> <td class="s"> my $methods = { map {$_=>1} @$XML::FeedPP::ITEM_METHODS }; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 297 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 441 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="883">883</a> </td> <td class="c3" > 33 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 81 </td> <td class="s"> while ( my $key = shift @$args ) { </td> </tr> <tr> <td class="h" > <a name="884">884</a> </td> <td class="c3" > 99 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 105 </td> <td class="s"> my $val = shift @$args; </td> </tr> <tr> <td class="h" > <a name="885">885</a> </td> <td class="c3" > 99 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#885-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 137 </td> <td class="s"> if ( $methods->{$key} ) { </td> </tr> <tr> <td class="h" > <a name="886">886</a> </td> <td class="c3" > 87 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 159 </td> <td class="s"> $self->$key( $val ); </td> </tr> <tr> <td class="h" > <a name="887">887</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } else { </td> </tr> <tr> <td class="h" > <a name="888">888</a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 28 </td> <td class="s"> $self->set( $key, $val ); </td> </tr> <tr> <td class="h" > <a name="889">889</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="890">890</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="891">891</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="892">892</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="893">893</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ---------------------------------------------------------------- </td> </tr> <tr> <td class="h" > <a name="894">894</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> package XML::FeedPP::RSS; </td> </tr> <tr> <td class="h" > <a name="895">895</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#895-1"> 44 </a> </td> <td >   </td> <td > 273 </td> <td class="s"> use strict; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 84 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1063 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="896">896</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#896-1"> 44 </a> </td> <td >   </td> <td > 203 </td> <td class="s"> use vars qw( @ISA ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 85 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 56117 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="897">897</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> @ISA = qw( XML::FeedPP ); </td> </tr> <tr> <td class="h" > <a name="898">898</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="899">899</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub channel_class { </td> </tr> <tr> <td class="h" > <a name="900">900</a> </td> <td class="c3" > 106 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#900-1"> 106 </a> </td> <td >   </td> <td > 603 </td> <td class="s"> 'XML::FeedPP::RSS::Channel'; </td> </tr> <tr> <td class="h" > <a name="901">901</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="902">902</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="903">903</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub item_class { </td> </tr> <tr> <td class="h" > <a name="904">904</a> </td> <td class="c3" > 67 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#904-1"> 67 </a> </td> <td >   </td> <td > 242 </td> <td class="s"> 'XML::FeedPP::RSS::Item'; </td> </tr> <tr> <td class="h" > <a name="905">905</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="906">906</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="907">907</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub test_feed { </td> </tr> <tr> <td class="h" > <a name="908">908</a> </td> <td class="c3" > 101 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#908-1"> 101 </a> </td> <td >   </td> <td > 141 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="909">909</a> </td> <td class="c3" > 101 </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#909-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 320 </td> <td class="s"> my $source = shift || $self; </td> </tr> <tr> <td class="h" > <a name="910">910</a> </td> <td class="c3" > 101 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#910-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 258 </td> <td class="s"> return unless ref $source; </td> </tr> <tr> <td class="h" > <a name="911">911</a> </td> <td class="c3" > 101 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#911-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 259 </td> <td class="s"> return unless ref $source->{rss}; </td> </tr> <tr> <td class="h" > <a name="912">912</a> </td> <td class="c3" > 59 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 135 </td> <td class="s"> __PACKAGE__; </td> </tr> <tr> <td class="h" > <a name="913">913</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="914">914</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="915">915</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub init_feed { </td> </tr> <tr> <td class="h" > <a name="916">916</a> </td> <td class="c3" > 68 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#916-1"> 50 </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#916-1"> 68 </a> </td> <td >   </td> <td > 230 </td> <td class="s"> my $self = shift or return; </td> </tr> <tr> <td class="h" > <a name="917">917</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="918">918</a> </td> <td class="c3" > 68 </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#918-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 370 </td> <td class="s"> $self->{rss} ||= {}; </td> </tr> <tr> <td class="h" > <a name="919">919</a> </td> <td class="c3" > 68 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#919-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 239 </td> <td class="s"> if ( ! UNIVERSAL::isa( $self->{rss}, 'HASH' ) ) { </td> </tr> <tr> <td class="h" > <a name="920">920</a> </td> <td class="c0" > <a href="#938"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> Carp::croak "Invalid RSS 2.0 feed format: $self->{rss}"; </td> </tr> <tr> <td class="h" > <a name="921">921</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="922">922</a> </td> <td class="c3" > 68 </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#922-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 273 </td> <td class="s"> $self->{rss}->{'-version'} ||= $XML::FeedPP::RSS20_VERSION; </td> </tr> <tr> <td class="h" > <a name="923">923</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="924">924</a> </td> <td class="c3" > 68 </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#924-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 270 </td> <td class="s"> my $channel = $self->{rss}{channel} ||= $self->channel_class->new(); </td> </tr> <tr> <td class="h" > <a name="925">925</a> </td> <td class="c3" > 68 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 171 </td> <td class="s"> $self->channel_class->ref_bless($channel); </td> </tr> <tr> <td class="h" > <a name="926">926</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="927">927</a> </td> <td class="c3" > 68 </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#927-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 248 </td> <td class="s"> my $items = $channel->{item} || []; </td> </tr> <tr> <td class="h" > <a name="928">928</a> </td> <td class="c3" > 68 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#928-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 351 </td> <td class="s"> my @items = grep ref $_, # skip empty items </td> </tr> <tr> <td class="h" > <a name="929">929</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> UNIVERSAL::isa($items, 'HASH') ? $items : @$items; </td> </tr> <tr> <td class="h" > <a name="930">930</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="931">931</a> </td> <td class="c3" > 68 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 199 </td> <td class="s"> $self->item_class->ref_bless($_) for @items; </td> </tr> <tr> <td class="h" > <a name="932">932</a> </td> <td class="c3" > 68 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 147 </td> <td class="s"> $channel->{item} = \@items; </td> </tr> <tr> <td class="h" > <a name="933">933</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="934">934</a> </td> <td class="c3" > 68 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 155 </td> <td class="s"> $self; </td> </tr> <tr> <td class="h" > <a name="935">935</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="936">936</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="937">937</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub merge_native_channel { </td> </tr> <tr> <td class="h" > <a name="938">938</a> </td> <td class="c0" > <a href="#939"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#938-1"> 0 </a> </td> <td >   </td> <td > 0 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="939">939</a> </td> <td class="c0" > <a href="#941"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#939-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my $tree = shift or next; </td> </tr> <tr> <td class="h" > <a name="940">940</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="941">941</a> </td> <td class="c0" > <a href="#945"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> XML::FeedPP::Util::merge_hash( $self->{rss}, $tree->{rss}, qw( channel ) ); </td> </tr> <tr> <td class="h" > <a name="942">942</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> XML::FeedPP::Util::merge_hash( </td> </tr> <tr> <td class="h" > <a name="943">943</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{rss}->{channel}, </td> </tr> <tr> <td class="h" > <a name="944">944</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $tree->{rss}->{channel}, </td> </tr> <tr> <td class="h" > <a name="945">945</a> </td> <td class="c0" > <a href="#1039"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> qw( item ) </td> </tr> <tr> <td class="h" > <a name="946">946</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="947">947</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="948">948</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="949">949</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub add_item { </td> </tr> <tr> <td class="h" > <a name="950">950</a> </td> <td class="c3" > 108 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#950-1"> 108 </a> </td> <td >   </td> <td > 1499 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="951">951</a> </td> <td class="c3" > 108 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 225 </td> <td class="s"> my( $init, $link, @rest ) = &XML::FeedPP::Util::param_even_odd(@_); </td> </tr> <tr> <td class="h" > <a name="952">952</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="953">953</a> </td> <td class="c3" > 108 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#953-1"> 50 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#953-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 392 </td> <td class="s"> Carp::croak "add_item needs an argument" if ( ! ref $init && ! $link ); </td> </tr> <tr> <td class="h" > <a name="954">954</a> </td> <td class="c3" > 108 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#954-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 229 </td> <td class="s"> if ( ref $link ) { </td> </tr> <tr> <td class="h" > <a name="955">955</a> </td> <td class="c3" > 23 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 77 </td> <td class="s"> return $self->add_clone_item( $link ); </td> </tr> <tr> <td class="h" > <a name="956">956</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="957">957</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="958">958</a> </td> <td class="c3" > 85 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 366 </td> <td class="s"> my $item = XML::FeedPP::RSS::Item->new(@rest); </td> </tr> <tr> <td class="h" > <a name="959">959</a> </td> <td class="c3" > 85 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#959-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 267 </td> <td class="s"> $item->link($link) if $link; </td> </tr> <tr> <td class="h" > <a name="960">960</a> </td> <td class="c3" > 85 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#960-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 164 </td> <td class="s"> $item->elements(@$init) if ref $init; </td> </tr> <tr> <td class="h" > <a name="961">961</a> </td> <td class="c3" > 85 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 106 </td> <td class="s"> push( @{ $self->{rss}->{channel}->{item} }, $item ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 85 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 202 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="962">962</a> </td> <td class="c3" > 85 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 188 </td> <td class="s"> $item; </td> </tr> <tr> <td class="h" > <a name="963">963</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="964">964</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="965">965</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub clear_item { </td> </tr> <tr> <td class="h" > <a name="966">966</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#966-1"> 1 </a> </td> <td >   </td> <td > 11063 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="967">967</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> $self->{rss}->{channel}->{item} = []; </td> </tr> <tr> <td class="h" > <a name="968">968</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="969">969</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="970">970</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub remove_item { </td> </tr> <tr> <td class="h" > <a name="971">971</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#971-1"> 7 </a> </td> <td >   </td> <td > 15 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="972">972</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> my $remove = shift; </td> </tr> <tr> <td class="h" > <a name="973">973</a> </td> <td class="c3" > 7 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#973-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 19 </td> <td class="s"> my $list = $self->{rss}->{channel}->{item} or return; </td> </tr> <tr> <td class="h" > <a name="974">974</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> my @deleted; </td> </tr> <tr> <td class="h" > <a name="975">975</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="976">976</a> </td> <td class="c3" > 7 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#976-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 29 </td> <td class="s"> if ( $remove =~ /^-?\d+/ ) { </td> </tr> <tr> <td class="h" > <a name="977">977</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 13 </td> <td class="s"> @deleted = splice( @$list, $remove, 1 ); </td> </tr> <tr> <td class="h" > <a name="978">978</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="979">979</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="980">980</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> @deleted = grep { $_->link() eq $remove } @$list; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 5 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="981">981</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2 </td> <td class="s"> @$list = grep { $_->link() ne $remove } @$list; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 5 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="982">982</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="983">983</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="984">984</a> </td> <td class="c3" > 7 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#984-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 27 </td> <td class="s"> wantarray ? @deleted : shift @deleted; </td> </tr> <tr> <td class="h" > <a name="985">985</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="986">986</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="987">987</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub get_item { </td> </tr> <tr> <td class="h" > <a name="988">988</a> </td> <td class="c3" > 131 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#988-1"> 131 </a> </td> <td >   </td> <td > 34167 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="989">989</a> </td> <td class="c3" > 131 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 175 </td> <td class="s"> my $num = shift; </td> </tr> <tr> <td class="h" > <a name="990">990</a> </td> <td class="c3" > 131 </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#990-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 364 </td> <td class="s"> $self->{rss}->{channel}->{item} ||= []; </td> </tr> <tr> <td class="h" > <a name="991">991</a> </td> <td class="c3" > 131 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#991-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 317 </td> <td class="s"> if ( defined $num ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="992">992</a> </td> <td class="c3" > 57 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 177 </td> <td class="s"> return $self->{rss}->{channel}->{item}->[$num]; </td> </tr> <tr> <td class="h" > <a name="993">993</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="994">994</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif (wantarray) { </td> </tr> <tr> <td class="h" > <a name="995">995</a> </td> <td class="c3" > 40 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 51 </td> <td class="s"> return @{ $self->{rss}->{channel}->{item} }; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 40 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 119 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="996">996</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="997">997</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="998">998</a> </td> <td class="c3" > 34 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 44 </td> <td class="s"> return scalar @{ $self->{rss}->{channel}->{item} }; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 34 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 189 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="999">999</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1000">1000</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1001">1001</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1002">1002</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub sort_item { </td> </tr> <tr> <td class="h" > <a name="1003">1003</a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1003-1"> 15 </a> </td> <td >   </td> <td > 29 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1004">1004</a> </td> <td class="c3" > 15 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1004-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 62 </td> <td class="s"> my $list = $self->{rss}->{channel}->{item} or return; </td> </tr> <tr> <td class="h" > <a name="1005">1005</a> </td> <td class="c3" > 15 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1005-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 44 </td> <td class="s"> my $epoch = [ map { $_->get_pubDate_epoch() || 0 } @$list ]; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 37 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 96 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1006">1006</a> </td> <td class="c3" > 37 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 76 </td> <td class="s"> my $sorted = [ map { $list->[$_] } sort { </td> </tr> <tr> <td class="h" > <a name="1007">1007</a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 72 </td> <td class="s"> $epoch->[$b] <=> $epoch->[$a] </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 46 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 67 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1008">1008</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } 0 .. $#$list ]; </td> </tr> <tr> <td class="h" > <a name="1009">1009</a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 40 </td> <td class="s"> @$list = @$sorted; </td> </tr> <tr> <td class="h" > <a name="1010">1010</a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 47 </td> <td class="s"> scalar @$list; </td> </tr> <tr> <td class="h" > <a name="1011">1011</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1012">1012</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1013">1013</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub uniq_item { </td> </tr> <tr> <td class="h" > <a name="1014">1014</a> </td> <td class="c3" > 13 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1014-1"> 13 </a> </td> <td >   </td> <td > 28 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1015">1015</a> </td> <td class="c3" > 13 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1015-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 54 </td> <td class="s"> my $list = $self->{rss}->{channel}->{item} or return; </td> </tr> <tr> <td class="h" > <a name="1016">1016</a> </td> <td class="c3" > 13 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 32 </td> <td class="s"> my (%check, @uniq); </td> </tr> <tr> <td class="h" > <a name="1017">1017</a> </td> <td class="c3" > 13 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 42 </td> <td class="s"> foreach my $item (@$list) { </td> </tr> <tr> <td class="h" > <a name="1018">1018</a> </td> <td class="c3" > 27 </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1018-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 53 </td> <td class="s"> my $key = $item->guid() || $item->link(); </td> </tr> <tr> <td class="h" > <a name="1019">1019</a> </td> <td class="c3" > 27 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1019-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 128 </td> <td class="s"> push( @uniq, $item ) unless $check{$key}++; </td> </tr> <tr> <td class="h" > <a name="1020">1020</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1021">1021</a> </td> <td class="c3" > 13 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 47 </td> <td class="s"> @$list = @uniq; </td> </tr> <tr> <td class="h" > <a name="1022">1022</a> </td> <td class="c3" > 13 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 42 </td> <td class="s"> scalar @$list; </td> </tr> <tr> <td class="h" > <a name="1023">1023</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1024">1024</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1025">1025</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub limit_item { </td> </tr> <tr> <td class="h" > <a name="1026">1026</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1026-1"> 7 </a> </td> <td >   </td> <td > 15 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1027">1027</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> my $limit = shift; </td> </tr> <tr> <td class="h" > <a name="1028">1028</a> </td> <td class="c3" > 7 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1028-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 20 </td> <td class="s"> my $list = $self->{rss}->{channel}->{item} or return; </td> </tr> <tr> <td class="h" > <a name="1029">1029</a> </td> <td class="c3" > 7 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1029-1"> 100 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1029-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 44 </td> <td class="s"> if ( $limit > 0 && $limit < scalar @$list ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 100 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#-2"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1030">1030</a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 21 </td> <td class="s"> @$list = splice( @$list, 0, $limit ); # remove from end </td> </tr> <tr> <td class="h" > <a name="1031">1031</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1032">1032</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( $limit < 0 && -$limit < scalar @$list ) { </td> </tr> <tr> <td class="h" > <a name="1033">1033</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 7 </td> <td class="s"> @$list = splice( @$list, $limit ); # remove from start </td> </tr> <tr> <td class="h" > <a name="1034">1034</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1035">1035</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 13 </td> <td class="s"> scalar @$list; </td> </tr> <tr> <td class="h" > <a name="1036">1036</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1037">1037</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1038">1038</a> </td> <td class="c3" > 72 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1038-1"> 72 </a> </td> <td >   </td> <td > 146 </td> <td class="s"> sub docroot { shift->{rss}; } </td> </tr> <tr> <td class="h" > <a name="1039">1039</a> </td> <td class="c0" > <a href="#1151"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1039-1"> 0 </a> </td> <td >   </td> <td > 0 </td> <td class="s"> sub channel { shift->{rss}->{channel}; } </td> </tr> <tr> <td class="h" > <a name="1040">1040</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1040-1"> 2 </a> </td> <td >   </td> <td > 14 </td> <td class="s"> sub set { shift->{rss}->{channel}->set(@_); } </td> </tr> <tr> <td class="h" > <a name="1041">1041</a> </td> <td class="c3" > 25 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1041-1"> 25 </a> </td> <td >   </td> <td > 10177 </td> <td class="s"> sub get { shift->{rss}->{channel}->get(@_); } </td> </tr> <tr> <td class="h" > <a name="1042">1042</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1043">1043</a> </td> <td class="c3" > 54 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1043-1"> 54 </a> </td> <td >   </td> <td > 4812 </td> <td class="s"> sub title { shift->{rss}->{channel}->get_or_set( "title", @_ ); } </td> </tr> <tr> <td class="h" > <a name="1044">1044</a> </td> <td class="c3" > 38 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1044-1"> 38 </a> </td> <td >   </td> <td > 116 </td> <td class="s"> sub description { shift->{rss}->{channel}->get_or_set( "description", @_ ); } </td> </tr> <tr> <td class="h" > <a name="1045">1045</a> </td> <td class="c3" > 56 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1045-1"> 56 </a> </td> <td >   </td> <td > 3270 </td> <td class="s"> sub link { shift->{rss}->{channel}->get_or_set( "link", @_ ); } </td> </tr> <tr> <td class="h" > <a name="1046">1046</a> </td> <td class="c3" > 36 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1046-1"> 36 </a> </td> <td >   </td> <td > 100 </td> <td class="s"> sub language { shift->{rss}->{channel}->get_or_set( "language", @_ ); } </td> </tr> <tr> <td class="h" > <a name="1047">1047</a> </td> <td class="c3" > 35 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1047-1"> 35 </a> </td> <td >   </td> <td > 110 </td> <td class="s"> sub copyright { shift->{rss}->{channel}->get_or_set( "copyright", @_ ); } </td> </tr> <tr> <td class="h" > <a name="1048">1048</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1049">1049</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub pubDate { </td> </tr> <tr> <td class="h" > <a name="1050">1050</a> </td> <td class="c3" > 51 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1050-1"> 51 </a> </td> <td >   </td> <td > 100 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1051">1051</a> </td> <td class="c3" > 51 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 97 </td> <td class="s"> my $date = shift; </td> </tr> <tr> <td class="h" > <a name="1052">1052</a> </td> <td class="c3" > 51 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1052-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 182 </td> <td class="s"> return $self->get_pubDate_w3cdtf() unless defined $date; </td> </tr> <tr> <td class="h" > <a name="1053">1053</a> </td> <td class="c3" > 18 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 47 </td> <td class="s"> $date = XML::FeedPP::Util::get_rfc1123($date); </td> </tr> <tr> <td class="h" > <a name="1054">1054</a> </td> <td class="c3" > 18 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 79 </td> <td class="s"> $self->{rss}->{channel}->set_value( "pubDate", $date ); </td> </tr> <tr> <td class="h" > <a name="1055">1055</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1056">1056</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1057">1057</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub get_pubDate_native { </td> </tr> <tr> <td class="h" > <a name="1058">1058</a> </td> <td class="c3" > 52 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1058-1"> 52 </a> </td> <td >   </td> <td > 99 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1059">1059</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{rss}->{channel}->get_value("pubDate") # normal RSS 2.0 </td> </tr> <tr> <td class="h" > <a name="1060">1060</a> </td> <td class="c3" > 52 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1060-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 190 </td> <td class="s"> || $self->{rss}->{channel}->get_value("dc:date"); # strange </td> </tr> <tr> <td class="h" > <a name="1061">1061</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1062">1062</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1063">1063</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub image { </td> </tr> <tr> <td class="h" > <a name="1064">1064</a> </td> <td class="c3" > 32 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1064-1"> 32 </a> </td> <td >   </td> <td > 11422 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1065">1065</a> </td> <td class="c3" > 32 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 77 </td> <td class="s"> my $url = shift; </td> </tr> <tr> <td class="h" > <a name="1066">1066</a> </td> <td class="c3" > 32 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1066-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 133 </td> <td class="s"> if ( defined $url ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1067">1067</a> </td> <td class="c3" > 4 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 13 </td> <td class="s"> my ( $title, $link, $desc, $width, $height ) = @_; </td> </tr> <tr> <td class="h" > <a name="1068">1068</a> </td> <td class="c3" > 4 </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1068-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 25 </td> <td class="s"> $self->{rss}->{channel}->{image} ||= {}; </td> </tr> <tr> <td class="h" > <a name="1069">1069</a> </td> <td class="c3" > 4 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 7 </td> <td class="s"> my $image = $self->{rss}->{channel}->{image}; </td> </tr> <tr> <td class="h" > <a name="1070">1070</a> </td> <td class="c3" > 4 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 17 </td> <td class="s"> $image->{url} = $url; </td> </tr> <tr> <td class="h" > <a name="1071">1071</a> </td> <td class="c3" > 4 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1071-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 13 </td> <td class="s"> $image->{title} = $title if defined $title; </td> </tr> <tr> <td class="h" > <a name="1072">1072</a> </td> <td class="c3" > 4 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1072-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 11 </td> <td class="s"> $image->{link} = $link if defined $link; </td> </tr> <tr> <td class="h" > <a name="1073">1073</a> </td> <td class="c3" > 4 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1073-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 10 </td> <td class="s"> $image->{description} = $desc if defined $desc; </td> </tr> <tr> <td class="h" > <a name="1074">1074</a> </td> <td class="c3" > 4 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1074-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> $image->{width} = $width if defined $width; </td> </tr> <tr> <td class="h" > <a name="1075">1075</a> </td> <td class="c3" > 4 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1075-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 18 </td> <td class="s"> $image->{height} = $height if defined $height; </td> </tr> <tr> <td class="h" > <a name="1076">1076</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1077">1077</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( exists $self->{rss}->{channel}->{image} ) { </td> </tr> <tr> <td class="h" > <a name="1078">1078</a> </td> <td class="c3" > 5 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> my $image = $self->{rss}->{channel}->{image}; </td> </tr> <tr> <td class="h" > <a name="1079">1079</a> </td> <td class="c3" > 5 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 14 </td> <td class="s"> my $array = []; </td> </tr> <tr> <td class="h" > <a name="1080">1080</a> </td> <td class="c3" > 5 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 11 </td> <td class="s"> foreach my $key (qw( url title link description width height )) { </td> </tr> <tr> <td class="h" > <a name="1081">1081</a> </td> <td class="c3" > 30 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1081-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 56 </td> <td class="s"> push( @$array, exists $image->{$key} ? $image->{$key} : undef ); </td> </tr> <tr> <td class="h" > <a name="1082">1082</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1083">1083</a> </td> <td class="c3" > 5 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1083-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 27 </td> <td class="s"> return wantarray ? @$array : shift @$array; </td> </tr> <tr> <td class="h" > <a name="1084">1084</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1085">1085</a> </td> <td class="c3" > 27 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 67 </td> <td class="s"> undef; </td> </tr> <tr> <td class="h" > <a name="1086">1086</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1087">1087</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1088">1088</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ---------------------------------------------------------------- </td> </tr> <tr> <td class="h" > <a name="1089">1089</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> package XML::FeedPP::RSS::Channel; </td> </tr> <tr> <td class="h" > <a name="1090">1090</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1090-1"> 44 </a> </td> <td >   </td> <td > 290 </td> <td class="s"> use strict; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 91 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1013 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1091">1091</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1091-1"> 44 </a> </td> <td >   </td> <td > 193 </td> <td class="s"> use vars qw( @ISA ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 72 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2397 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1092">1092</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> @ISA = qw( XML::FeedPP::Element ); </td> </tr> <tr> <td class="h" > <a name="1093">1093</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1094">1094</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ---------------------------------------------------------------- </td> </tr> <tr> <td class="h" > <a name="1095">1095</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> package XML::FeedPP::RSS::Item; </td> </tr> <tr> <td class="h" > <a name="1096">1096</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1096-1"> 44 </a> </td> <td >   </td> <td > 283 </td> <td class="s"> use strict; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 113 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 977 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1097">1097</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1097-1"> 44 </a> </td> <td >   </td> <td > 218 </td> <td class="s"> use vars qw( @ISA ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 104 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 21270 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1098">1098</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> @ISA = qw( XML::FeedPP::Item ); </td> </tr> <tr> <td class="h" > <a name="1099">1099</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1100">1100</a> </td> <td class="c3" > 104 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1100-1"> 104 </a> </td> <td >   </td> <td > 16827 </td> <td class="s"> sub title { shift->get_or_set( "title", @_ ); } </td> </tr> <tr> <td class="h" > <a name="1101">1101</a> </td> <td class="c3" > 56 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1101-1"> 56 </a> </td> <td >   </td> <td > 150 </td> <td class="s"> sub description { shift->get_or_set( "description", @_ ); } </td> </tr> <tr> <td class="h" > <a name="1102">1102</a> </td> <td class="c3" > 99 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1102-1"> 99 </a> </td> <td >   </td> <td > 9491 </td> <td class="s"> sub category { shift->get_set_array( "category", @_ ); } </td> </tr> <tr> <td class="h" > <a name="1103">1103</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1104">1104</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub author { </td> </tr> <tr> <td class="h" > <a name="1105">1105</a> </td> <td class="c3" > 45 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1105-1"> 45 </a> </td> <td >   </td> <td > 100 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1106">1106</a> </td> <td class="c3" > 45 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1106-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 95 </td> <td class="s"> if ( scalar @_ ) { </td> </tr> <tr> <td class="h" > <a name="1107">1107</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 17 </td> <td class="s"> $self->set_value( 'author', @_ ); </td> </tr> <tr> <td class="h" > <a name="1108">1108</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } else { </td> </tr> <tr> <td class="h" > <a name="1109">1109</a> </td> <td class="c3" > 38 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1109-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 81 </td> <td class="s"> $self->get_value('author') || $self->get_value('dc:creator'); </td> </tr> <tr> <td class="h" > <a name="1110">1110</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1111">1111</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1112">1112</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1113">1113</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub link { </td> </tr> <tr> <td class="h" > <a name="1114">1114</a> </td> <td class="c3" > 167 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1114-1"> 167 </a> </td> <td >   </td> <td > 1576 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1115">1115</a> </td> <td class="c3" > 167 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 199 </td> <td class="s"> my $link = shift; </td> </tr> <tr> <td class="h" > <a name="1116">1116</a> </td> <td class="c3" > 167 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1116-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 358 </td> <td class="s"> return $self->get_value("link") unless defined $link; </td> </tr> <tr> <td class="h" > <a name="1117">1117</a> </td> <td class="c3" > 86 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1117-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 160 </td> <td class="s"> $self->guid($link) unless defined $self->guid(); </td> </tr> <tr> <td class="h" > <a name="1118">1118</a> </td> <td class="c3" > 86 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 183 </td> <td class="s"> $self->set_value( link => $link ); </td> </tr> <tr> <td class="h" > <a name="1119">1119</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1120">1120</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1121">1121</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub guid { </td> </tr> <tr> <td class="h" > <a name="1122">1122</a> </td> <td class="c3" > 252 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1122-1"> 252 </a> </td> <td >   </td> <td > 845 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1123">1123</a> </td> <td class="c3" > 252 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 310 </td> <td class="s"> my $guid = shift; </td> </tr> <tr> <td class="h" > <a name="1124">1124</a> </td> <td class="c3" > 252 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1124-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 538 </td> <td class="s"> return $self->get_value("guid") unless defined $guid; </td> </tr> <tr> <td class="h" > <a name="1125">1125</a> </td> <td class="c3" > 100 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 198 </td> <td class="s"> my @args = @_; </td> </tr> <tr> <td class="h" > <a name="1126">1126</a> </td> <td class="c3" > 100 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1126-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 212 </td> <td class="s"> if ( ! scalar @args ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1127">1127</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # default </td> </tr> <tr> <td class="h" > <a name="1128">1128</a> </td> <td class="c3" > 98 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 163 </td> <td class="s"> @args = ( 'isPermaLink' => 'true' ); </td> </tr> <tr> <td class="h" > <a name="1129">1129</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } elsif ( scalar @args == 1 ) { </td> </tr> <tr> <td class="h" > <a name="1130">1130</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # XML::FeedPP 0.36's behavior </td> </tr> <tr> <td class="h" > <a name="1131">1131</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> unshift( @args, 'isPermaLink' ); </td> </tr> <tr> <td class="h" > <a name="1132">1132</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1133">1133</a> </td> <td class="c3" > 100 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 250 </td> <td class="s"> $self->set_value( guid => $guid, @args ); </td> </tr> <tr> <td class="h" > <a name="1134">1134</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1135">1135</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1136">1136</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub pubDate { </td> </tr> <tr> <td class="h" > <a name="1137">1137</a> </td> <td class="c3" > 95 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1137-1"> 95 </a> </td> <td >   </td> <td > 215 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1138">1138</a> </td> <td class="c3" > 95 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 118 </td> <td class="s"> my $date = shift; </td> </tr> <tr> <td class="h" > <a name="1139">1139</a> </td> <td class="c3" > 95 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1139-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 253 </td> <td class="s"> return $self->get_pubDate_w3cdtf() unless defined $date; </td> </tr> <tr> <td class="h" > <a name="1140">1140</a> </td> <td class="c3" > 53 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 87 </td> <td class="s"> $date = XML::FeedPP::Util::get_rfc1123($date); </td> </tr> <tr> <td class="h" > <a name="1141">1141</a> </td> <td class="c3" > 53 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 120 </td> <td class="s"> $self->set_value( "pubDate", $date ); </td> </tr> <tr> <td class="h" > <a name="1142">1142</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1143">1143</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1144">1144</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub get_pubDate_native { </td> </tr> <tr> <td class="h" > <a name="1145">1145</a> </td> <td class="c3" > 119 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1145-1"> 119 </a> </td> <td >   </td> <td > 150 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1146">1146</a> </td> <td class="c3" > 119 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1146-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 190 </td> <td class="s"> $self->get_value("pubDate") # normal RSS 2.0 </td> </tr> <tr> <td class="h" > <a name="1147">1147</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> || $self->get_value("dc:date"); # strange </td> </tr> <tr> <td class="h" > <a name="1148">1148</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1149">1149</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1150">1150</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub image { </td> </tr> <tr> <td class="h" > <a name="1151">1151</a> </td> <td class="c0" > <a href="#1152"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1151-1"> 0 </a> </td> <td >   </td> <td > 0 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1152">1152</a> </td> <td class="c0" > <a href="#1153"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my $url = shift; </td> </tr> <tr> <td class="h" > <a name="1153">1153</a> </td> <td class="c0" > <a href="#1154"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1153-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> if ( defined $url ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1154">1154</a> </td> <td class="c0" > <a href="#1155"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my ( $title, $link, $desc, $width, $height ) = @_; </td> </tr> <tr> <td class="h" > <a name="1155">1155</a> </td> <td class="c0" > <a href="#1156"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1155-1"> 0 </a> </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $self->{image} ||= {}; </td> </tr> <tr> <td class="h" > <a name="1156">1156</a> </td> <td class="c0" > <a href="#1157"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my $image = $self->{image}; </td> </tr> <tr> <td class="h" > <a name="1157">1157</a> </td> <td class="c0" > <a href="#1158"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $image->{url} = $url; </td> </tr> <tr> <td class="h" > <a name="1158">1158</a> </td> <td class="c0" > <a href="#1159"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1158-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $image->{title} = $title if defined $title; </td> </tr> <tr> <td class="h" > <a name="1159">1159</a> </td> <td class="c0" > <a href="#1160"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1159-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $image->{link} = $link if defined $link; </td> </tr> <tr> <td class="h" > <a name="1160">1160</a> </td> <td class="c0" > <a href="#1161"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1160-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $image->{description} = $desc if defined $desc; </td> </tr> <tr> <td class="h" > <a name="1161">1161</a> </td> <td class="c0" > <a href="#1162"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1161-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $image->{width} = $width if defined $width; </td> </tr> <tr> <td class="h" > <a name="1162">1162</a> </td> <td class="c0" > <a href="#1165"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1162-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $image->{height} = $height if defined $height; </td> </tr> <tr> <td class="h" > <a name="1163">1163</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1164">1164</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( exists $self->{image} ) { </td> </tr> <tr> <td class="h" > <a name="1165">1165</a> </td> <td class="c0" > <a href="#1166"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my $image = $self->{image}; </td> </tr> <tr> <td class="h" > <a name="1166">1166</a> </td> <td class="c0" > <a href="#1167"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my $array = []; </td> </tr> <tr> <td class="h" > <a name="1167">1167</a> </td> <td class="c0" > <a href="#1168"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> foreach my $key (qw( url title link description width height )) { </td> </tr> <tr> <td class="h" > <a name="1168">1168</a> </td> <td class="c0" > <a href="#1170"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1168-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> push( @$array, exists $image->{$key} ? $image->{$key} : undef ); </td> </tr> <tr> <td class="h" > <a name="1169">1169</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1170">1170</a> </td> <td class="c0" > <a href="#1172"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1170-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> return wantarray ? @$array : shift @$array; </td> </tr> <tr> <td class="h" > <a name="1171">1171</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1172">1172</a> </td> <td class="c0" > <a href="#1202"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> undef; </td> </tr> <tr> <td class="h" > <a name="1173">1173</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1174">1174</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1175">1175</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ---------------------------------------------------------------- </td> </tr> <tr> <td class="h" > <a name="1176">1176</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> package XML::FeedPP::RDF; </td> </tr> <tr> <td class="h" > <a name="1177">1177</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1177-1"> 44 </a> </td> <td >   </td> <td > 291 </td> <td class="s"> use strict; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 88 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1249 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1178">1178</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1178-1"> 44 </a> </td> <td >   </td> <td > 209 </td> <td class="s"> use vars qw( @ISA ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 96 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 73580 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1179">1179</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> @ISA = qw( XML::FeedPP ); </td> </tr> <tr> <td class="h" > <a name="1180">1180</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1181">1181</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub channel_class { </td> </tr> <tr> <td class="h" > <a name="1182">1182</a> </td> <td class="c3" > 77 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1182-1"> 77 </a> </td> <td >   </td> <td > 429 </td> <td class="s"> 'XML::FeedPP::RDF::Channel'; </td> </tr> <tr> <td class="h" > <a name="1183">1183</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1184">1184</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1185">1185</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub item_class { </td> </tr> <tr> <td class="h" > <a name="1186">1186</a> </td> <td class="c3" > 97 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1186-1"> 97 </a> </td> <td >   </td> <td > 415 </td> <td class="s"> 'XML::FeedPP::RDF::Item'; </td> </tr> <tr> <td class="h" > <a name="1187">1187</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1188">1188</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1189">1189</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub test_feed { </td> </tr> <tr> <td class="h" > <a name="1190">1190</a> </td> <td class="c3" > 61 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1190-1"> 61 </a> </td> <td >   </td> <td > 92 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1191">1191</a> </td> <td class="c3" > 61 </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1191-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 183 </td> <td class="s"> my $source = shift || $self; </td> </tr> <tr> <td class="h" > <a name="1192">1192</a> </td> <td class="c3" > 61 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1192-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 124 </td> <td class="s"> return unless ref $source; </td> </tr> <tr> <td class="h" > <a name="1193">1193</a> </td> <td class="c3" > 61 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1193-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 157 </td> <td class="s"> return unless ref $source->{'rdf:RDF'}; </td> </tr> <tr> <td class="h" > <a name="1194">1194</a> </td> <td class="c3" > 37 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 90 </td> <td class="s"> __PACKAGE__; </td> </tr> <tr> <td class="h" > <a name="1195">1195</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1196">1196</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1197">1197</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub init_feed { </td> </tr> <tr> <td class="h" > <a name="1198">1198</a> </td> <td class="c3" > 48 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1198-1"> 50 </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1198-1"> 48 </a> </td> <td >   </td> <td > 193 </td> <td class="s"> my $self = shift or return; </td> </tr> <tr> <td class="h" > <a name="1199">1199</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1200">1200</a> </td> <td class="c3" > 48 </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1200-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 251 </td> <td class="s"> $self->{'rdf:RDF'} ||= {}; </td> </tr> <tr> <td class="h" > <a name="1201">1201</a> </td> <td class="c3" > 48 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1201-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 191 </td> <td class="s"> if ( ! UNIVERSAL::isa( $self->{'rdf:RDF'}, 'HASH' ) ) { </td> </tr> <tr> <td class="h" > <a name="1202">1202</a> </td> <td class="c0" > <a href="#1230"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> Carp::croak "Invalid RDF 1.0 feed format: $self->{'rdf:RDF'}"; </td> </tr> <tr> <td class="h" > <a name="1203">1203</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1204">1204</a> </td> <td class="c3" > 48 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 228 </td> <td class="s"> $self->xmlns( 'xmlns' => $XML::FeedPP::XMLNS_RSS ); </td> </tr> <tr> <td class="h" > <a name="1205">1205</a> </td> <td class="c3" > 48 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 151 </td> <td class="s"> $self->xmlns( 'xmlns:rdf' => $XML::FeedPP::XMLNS_RDF ); </td> </tr> <tr> <td class="h" > <a name="1206">1206</a> </td> <td class="c3" > 48 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 119 </td> <td class="s"> $self->xmlns( 'xmlns:dc' => $XML::FeedPP::XMLNS_DC ); </td> </tr> <tr> <td class="h" > <a name="1207">1207</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1208">1208</a> </td> <td class="c3" > 48 </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1208-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 210 </td> <td class="s"> $self->{'rdf:RDF'}->{channel} ||= $self->channel_class->new(); </td> </tr> <tr> <td class="h" > <a name="1209">1209</a> </td> <td class="c3" > 48 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 114 </td> <td class="s"> $self->channel_class->ref_bless( $self->{'rdf:RDF'}->{channel} ); </td> </tr> <tr> <td class="h" > <a name="1210">1210</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1211">1211</a> </td> <td class="c3" > 48 </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1211-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 266 </td> <td class="s"> $self->{'rdf:RDF'}->{channel}->{items} ||= {}; </td> </tr> <tr> <td class="h" > <a name="1212">1212</a> </td> <td class="c3" > 48 </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1212-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 220 </td> <td class="s"> $self->{'rdf:RDF'}->{channel}->{items}->{'rdf:Seq'} ||= {}; </td> </tr> <tr> <td class="h" > <a name="1213">1213</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1214">1214</a> </td> <td class="c3" > 48 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 86 </td> <td class="s"> my $rdfseq = $self->{'rdf:RDF'}->{channel}->{items}->{'rdf:Seq'}; </td> </tr> <tr> <td class="h" > <a name="1215">1215</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1216">1216</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # http://www.kawa.net/works/perl/feedpp/feedpp.html#com-2008-05-17T13:13:33Z </td> </tr> <tr> <td class="h" > <a name="1217">1217</a> </td> <td class="c3" > 48 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1217-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 178 </td> <td class="s"> if ( UNIVERSAL::isa( $rdfseq, 'ARRAY' ) ) { </td> </tr> <tr> <td class="h" > <a name="1218">1218</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> my $num1 = scalar @$rdfseq; </td> </tr> <tr> <td class="h" > <a name="1219">1219</a> </td> <td class="c3" > 1 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1219-1"> 50 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1219-1"> 33 </a> </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> my $num2 = scalar grep { ref $_ && exists $_->{'rdf:li'} && ref $_->{'rdf:li'} } @$rdfseq; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 14 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1220">1220</a> </td> <td class="c3" > 1 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1220-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> my $num3 = scalar grep { ref $_ && keys %$_ == 1 } @$rdfseq; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 11 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1221">1221</a> </td> <td class="c3" > 1 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1221-1"> 50 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1221-1"> 33 </a> </td> <td >   </td> <td >   </td> <td > 7 </td> <td class="s"> if ( $num1 && $num1 == $num2 && $num1 == $num3 ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#-2"> 33 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1222">1222</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> my $newli = [ map { @{$_->{'rdf:li'}} } @$rdfseq ]; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 5 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1223">1223</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2 </td> <td class="s"> $rdfseq = { 'rdf:li' => $newli }; </td> </tr> <tr> <td class="h" > <a name="1224">1224</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> $self->{'rdf:RDF'}->{channel}->{items}->{'rdf:Seq'} = $rdfseq; </td> </tr> <tr> <td class="h" > <a name="1225">1225</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1226">1226</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1227">1227</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1228">1228</a> </td> <td class="c3" > 48 </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1228-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 211 </td> <td class="s"> $rdfseq->{'rdf:li'} ||= []; </td> </tr> <tr> <td class="h" > <a name="1229">1229</a> </td> <td class="c3" > 48 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1229-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 150 </td> <td class="s"> if ( UNIVERSAL::isa( $rdfseq->{'rdf:li'}, 'HASH' ) ) { </td> </tr> <tr> <td class="h" > <a name="1230">1230</a> </td> <td class="c0" > <a href="#1236"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $rdfseq->{'rdf:li'} = [ $rdfseq->{'rdf:li'} ]; </td> </tr> <tr> <td class="h" > <a name="1231">1231</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1232">1232</a> </td> <td class="c3" > 48 </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1232-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 218 </td> <td class="s"> $self->{'rdf:RDF'}->{item} ||= []; </td> </tr> <tr> <td class="h" > <a name="1233">1233</a> </td> <td class="c3" > 48 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1233-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 141 </td> <td class="s"> if ( UNIVERSAL::isa( $self->{'rdf:RDF'}->{item}, 'HASH' ) ) { </td> </tr> <tr> <td class="h" > <a name="1234">1234</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1235">1235</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # force array when only one item exist </td> </tr> <tr> <td class="h" > <a name="1236">1236</a> </td> <td class="c0" > <a href="#1246"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $self->{'rdf:RDF'}->{item} = [ $self->{'rdf:RDF'}->{item} ]; </td> </tr> <tr> <td class="h" > <a name="1237">1237</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1238">1238</a> </td> <td class="c3" > 48 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 72 </td> <td class="s"> foreach my $item ( @{ $self->{'rdf:RDF'}->{item} } ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 48 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 133 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1239">1239</a> </td> <td class="c3" > 27 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 59 </td> <td class="s"> $self->item_class->ref_bless($item); </td> </tr> <tr> <td class="h" > <a name="1240">1240</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1241">1241</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1242">1242</a> </td> <td class="c3" > 48 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 86 </td> <td class="s"> $self; </td> </tr> <tr> <td class="h" > <a name="1243">1243</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1244">1244</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1245">1245</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub merge_native_channel { </td> </tr> <tr> <td class="h" > <a name="1246">1246</a> </td> <td class="c0" > <a href="#1247"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1246-1"> 0 </a> </td> <td >   </td> <td > 0 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1247">1247</a> </td> <td class="c0" > <a href="#1249"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1247-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my $tree = shift or next; </td> </tr> <tr> <td class="h" > <a name="1248">1248</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1249">1249</a> </td> <td class="c0" > <a href="#1255"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> XML::FeedPP::Util::merge_hash( $self->{'rdf:RDF'}, $tree->{'rdf:RDF'}, </td> </tr> <tr> <td class="h" > <a name="1250">1250</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> qw( channel item ) ); </td> </tr> <tr> <td class="h" > <a name="1251">1251</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1252">1252</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> XML::FeedPP::Util::merge_hash( </td> </tr> <tr> <td class="h" > <a name="1253">1253</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'rdf:RDF'}->{channel}, </td> </tr> <tr> <td class="h" > <a name="1254">1254</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $tree->{'rdf:RDF'}->{channel}, </td> </tr> <tr> <td class="h" > <a name="1255">1255</a> </td> <td class="c0" > <a href="#1374"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> qw( items ) </td> </tr> <tr> <td class="h" > <a name="1256">1256</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="1257">1257</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1258">1258</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1259">1259</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub add_item { </td> </tr> <tr> <td class="h" > <a name="1260">1260</a> </td> <td class="c3" > 98 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1260-1"> 98 </a> </td> <td >   </td> <td > 3318 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1261">1261</a> </td> <td class="c3" > 98 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 210 </td> <td class="s"> my( $init, $link, @rest ) = &XML::FeedPP::Util::param_even_odd(@_); </td> </tr> <tr> <td class="h" > <a name="1262">1262</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1263">1263</a> </td> <td class="c3" > 98 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1263-1"> 50 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1263-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 335 </td> <td class="s"> Carp::croak "add_item needs an argument" if ( ! ref $init && ! $link ); </td> </tr> <tr> <td class="h" > <a name="1264">1264</a> </td> <td class="c3" > 98 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1264-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 183 </td> <td class="s"> if ( ref $link ) { </td> </tr> <tr> <td class="h" > <a name="1265">1265</a> </td> <td class="c3" > 28 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 81 </td> <td class="s"> return $self->add_clone_item( $link ); </td> </tr> <tr> <td class="h" > <a name="1266">1266</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1267">1267</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1268">1268</a> </td> <td class="c3" > 70 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 147 </td> <td class="s"> my $rdfli = $self->item_class->new(); </td> </tr> <tr> <td class="h" > <a name="1269">1269</a> </td> <td class="c3" > 70 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 218 </td> <td class="s"> $rdfli->{'-rdf:resource'} = $link; </td> </tr> <tr> <td class="h" > <a name="1270">1270</a> </td> <td class="c3" > 70 </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1270-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 205 </td> <td class="s"> $self->{'rdf:RDF'}->{channel}->{items}->{'rdf:Seq'}->{'rdf:li'} ||= []; </td> </tr> <tr> <td class="h" > <a name="1271">1271</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> push( </td> </tr> <tr> <td class="h" > <a name="1272">1272</a> </td> <td class="c3" > 70 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 116 </td> <td class="s"> @{ $self->{'rdf:RDF'}->{channel}->{items}->{'rdf:Seq'}->{'rdf:li'} }, </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 70 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 165 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1273">1273</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $rdfli </td> </tr> <tr> <td class="h" > <a name="1274">1274</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="1275">1275</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1276">1276</a> </td> <td class="c3" > 70 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 170 </td> <td class="s"> my $item = XML::FeedPP::RDF::Item->new(@rest); </td> </tr> <tr> <td class="h" > <a name="1277">1277</a> </td> <td class="c3" > 70 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1277-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 221 </td> <td class="s"> $item->link($link) if $link; </td> </tr> <tr> <td class="h" > <a name="1278">1278</a> </td> <td class="c3" > 70 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1278-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 166 </td> <td class="s"> $item->elements(@$init) if ref $init; </td> </tr> <tr> <td class="h" > <a name="1279">1279</a> </td> <td class="c3" > 70 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 109 </td> <td class="s"> push( @{ $self->{'rdf:RDF'}->{item} }, $item ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 70 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 136 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1280">1280</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1281">1281</a> </td> <td class="c3" > 70 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 163 </td> <td class="s"> $item; </td> </tr> <tr> <td class="h" > <a name="1282">1282</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1283">1283</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1284">1284</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub clear_item { </td> </tr> <tr> <td class="h" > <a name="1285">1285</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1285-1"> 1 </a> </td> <td >   </td> <td > 2104 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1286">1286</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> $self->{'rdf:RDF'}->{item} = []; </td> </tr> <tr> <td class="h" > <a name="1287">1287</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> $self->__refresh_items(); </td> </tr> <tr> <td class="h" > <a name="1288">1288</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1289">1289</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1290">1290</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub remove_item { </td> </tr> <tr> <td class="h" > <a name="1291">1291</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1291-1"> 7 </a> </td> <td >   </td> <td > 16 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1292">1292</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 8 </td> <td class="s"> my $remove = shift; </td> </tr> <tr> <td class="h" > <a name="1293">1293</a> </td> <td class="c3" > 7 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1293-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 17 </td> <td class="s"> my $list = $self->{'rdf:RDF'}->{item} or return; </td> </tr> <tr> <td class="h" > <a name="1294">1294</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 10 </td> <td class="s"> my @deleted; </td> </tr> <tr> <td class="h" > <a name="1295">1295</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1296">1296</a> </td> <td class="c3" > 7 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1296-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 34 </td> <td class="s"> if ( $remove =~ /^-?\d+/ ) { </td> </tr> <tr> <td class="h" > <a name="1297">1297</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 16 </td> <td class="s"> @deleted = splice( @$list, $remove, 1 ); </td> </tr> <tr> <td class="h" > <a name="1298">1298</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1299">1299</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="1300">1300</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2 </td> <td class="s"> @deleted = grep { $_->link() eq $remove } @$list; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 5 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1301">1301</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2 </td> <td class="s"> @$list = grep { $_->link() ne $remove } @$list; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 5 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1302">1302</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1303">1303</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1304">1304</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 16 </td> <td class="s"> $self->__refresh_items(); </td> </tr> <tr> <td class="h" > <a name="1305">1305</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1306">1306</a> </td> <td class="c3" > 7 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1306-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 18 </td> <td class="s"> wantarray ? @deleted : shift @deleted; </td> </tr> <tr> <td class="h" > <a name="1307">1307</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1308">1308</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1309">1309</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub get_item { </td> </tr> <tr> <td class="h" > <a name="1310">1310</a> </td> <td class="c3" > 101 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1310-1"> 101 </a> </td> <td >   </td> <td > 10569 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1311">1311</a> </td> <td class="c3" > 101 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 144 </td> <td class="s"> my $num = shift; </td> </tr> <tr> <td class="h" > <a name="1312">1312</a> </td> <td class="c3" > 101 </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1312-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 318 </td> <td class="s"> $self->{'rdf:RDF'}->{item} ||= []; </td> </tr> <tr> <td class="h" > <a name="1313">1313</a> </td> <td class="c3" > 101 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1313-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 295 </td> <td class="s"> if ( defined $num ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1314">1314</a> </td> <td class="c3" > 36 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 97 </td> <td class="s"> return $self->{'rdf:RDF'}->{item}->[$num]; </td> </tr> <tr> <td class="h" > <a name="1315">1315</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1316">1316</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif (wantarray) { </td> </tr> <tr> <td class="h" > <a name="1317">1317</a> </td> <td class="c3" > 32 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 88 </td> <td class="s"> return @{ $self->{'rdf:RDF'}->{item} }; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 32 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 116 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1318">1318</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1319">1319</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="1320">1320</a> </td> <td class="c3" > 33 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 40 </td> <td class="s"> return scalar @{ $self->{'rdf:RDF'}->{item} }; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 33 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 158 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1321">1321</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1322">1322</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1323">1323</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1324">1324</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub sort_item { </td> </tr> <tr> <td class="h" > <a name="1325">1325</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1325-1"> 16 </a> </td> <td >   </td> <td > 40 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1326">1326</a> </td> <td class="c3" > 16 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1326-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 72 </td> <td class="s"> my $list = $self->{'rdf:RDF'}->{item} or return; </td> </tr> <tr> <td class="h" > <a name="1327">1327</a> </td> <td class="c3" > 16 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1327-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 41 </td> <td class="s"> my $epoch = [ map { $_->get_pubDate_epoch() || 0 } @$list ]; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 42 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 124 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1328">1328</a> </td> <td class="c3" > 42 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 68 </td> <td class="s"> my $sorted = [ map { $list->[$_] } sort { </td> </tr> <tr> <td class="h" > <a name="1329">1329</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 68 </td> <td class="s"> $epoch->[$b] <=> $epoch->[$a] </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 50 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 68 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1330">1330</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } 0 .. $#$list ]; </td> </tr> <tr> <td class="h" > <a name="1331">1331</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 52 </td> <td class="s"> @$list = @$sorted; </td> </tr> <tr> <td class="h" > <a name="1332">1332</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 58 </td> <td class="s"> $self->__refresh_items(); </td> </tr> <tr> <td class="h" > <a name="1333">1333</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1334">1334</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1335">1335</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub uniq_item { </td> </tr> <tr> <td class="h" > <a name="1336">1336</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1336-1"> 14 </a> </td> <td >   </td> <td > 24 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1337">1337</a> </td> <td class="c3" > 14 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1337-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 49 </td> <td class="s"> my $list = $self->{'rdf:RDF'}->{item} or return; </td> </tr> <tr> <td class="h" > <a name="1338">1338</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 38 </td> <td class="s"> my (%check, @uniq); </td> </tr> <tr> <td class="h" > <a name="1339">1339</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 29 </td> <td class="s"> foreach my $item (@$list) { </td> </tr> <tr> <td class="h" > <a name="1340">1340</a> </td> <td class="c3" > 32 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 60 </td> <td class="s"> my $link = $item->link(); </td> </tr> <tr> <td class="h" > <a name="1341">1341</a> </td> <td class="c3" > 32 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1341-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 109 </td> <td class="s"> push( @uniq, $item ) unless $check{$link}++; </td> </tr> <tr> <td class="h" > <a name="1342">1342</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1343">1343</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 46 </td> <td class="s"> $self->{'rdf:RDF'}->{item} = \@uniq; </td> </tr> <tr> <td class="h" > <a name="1344">1344</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 49 </td> <td class="s"> $self->__refresh_items(); </td> </tr> <tr> <td class="h" > <a name="1345">1345</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1346">1346</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1347">1347</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub limit_item { </td> </tr> <tr> <td class="h" > <a name="1348">1348</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1348-1"> 7 </a> </td> <td >   </td> <td > 16 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1349">1349</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 8 </td> <td class="s"> my $limit = shift; </td> </tr> <tr> <td class="h" > <a name="1350">1350</a> </td> <td class="c3" > 7 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1350-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 17 </td> <td class="s"> my $list = $self->{'rdf:RDF'}->{item} or return; </td> </tr> <tr> <td class="h" > <a name="1351">1351</a> </td> <td class="c3" > 7 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1351-1"> 100 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1351-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 41 </td> <td class="s"> if ( $limit > 0 && $limit < scalar @$list ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 100 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#-2"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1352">1352</a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 14 </td> <td class="s"> @$list = splice( @$list, 0, $limit ); # remove from end </td> </tr> <tr> <td class="h" > <a name="1353">1353</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1354">1354</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( $limit < 0 && -$limit < scalar @$list ) { </td> </tr> <tr> <td class="h" > <a name="1355">1355</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 7 </td> <td class="s"> @$list = splice( @$list, $limit ); # remove from start </td> </tr> <tr> <td class="h" > <a name="1356">1356</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1357">1357</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 16 </td> <td class="s"> $self->__refresh_items(); </td> </tr> <tr> <td class="h" > <a name="1358">1358</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1359">1359</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1360">1360</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub __refresh_items { </td> </tr> <tr> <td class="h" > <a name="1361">1361</a> </td> <td class="c3" > 45 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1361-1"> 45 </a> </td> <td >   </td> <td > 68 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1362">1362</a> </td> <td class="c3" > 45 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1362-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 115 </td> <td class="s"> my $list = $self->{'rdf:RDF'}->{item} or return; </td> </tr> <tr> <td class="h" > <a name="1363">1363</a> </td> <td class="c3" > 45 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 257 </td> <td class="s"> $self->{'rdf:RDF'}->{channel}->{items}->{'rdf:Seq'}->{'rdf:li'} = []; </td> </tr> <tr> <td class="h" > <a name="1364">1364</a> </td> <td class="c3" > 45 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 92 </td> <td class="s"> my $dest = $self->{'rdf:RDF'}->{channel}->{items}->{'rdf:Seq'}->{'rdf:li'}; </td> </tr> <tr> <td class="h" > <a name="1365">1365</a> </td> <td class="c3" > 45 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 83 </td> <td class="s"> foreach my $item (@$list) { </td> </tr> <tr> <td class="h" > <a name="1366">1366</a> </td> <td class="c3" > 101 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 161 </td> <td class="s"> my $rdfli = XML::FeedPP::Element->new(); </td> </tr> <tr> <td class="h" > <a name="1367">1367</a> </td> <td class="c3" > 101 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 144 </td> <td class="s"> $rdfli->{'-rdf:resource'} = $item->link(); </td> </tr> <tr> <td class="h" > <a name="1368">1368</a> </td> <td class="c3" > 101 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 194 </td> <td class="s"> push( @$dest, $rdfli ); </td> </tr> <tr> <td class="h" > <a name="1369">1369</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1370">1370</a> </td> <td class="c3" > 45 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 108 </td> <td class="s"> scalar @$dest; </td> </tr> <tr> <td class="h" > <a name="1371">1371</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1372">1372</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1373">1373</a> </td> <td class="c3" > 204 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1373-1"> 204 </a> </td> <td >   </td> <td > 364 </td> <td class="s"> sub docroot { shift->{'rdf:RDF'}; } </td> </tr> <tr> <td class="h" > <a name="1374">1374</a> </td> <td class="c0" > <a href="#1428"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1374-1"> 0 </a> </td> <td >   </td> <td > 0 </td> <td class="s"> sub channel { shift->{'rdf:RDF'}->{channel}; } </td> </tr> <tr> <td class="h" > <a name="1375">1375</a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1375-1"> 3 </a> </td> <td >   </td> <td > 26 </td> <td class="s"> sub set { shift->{'rdf:RDF'}->{channel}->set(@_); } </td> </tr> <tr> <td class="h" > <a name="1376">1376</a> </td> <td class="c3" > 49 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1376-1"> 49 </a> </td> <td >   </td> <td > 20041 </td> <td class="s"> sub get { shift->{'rdf:RDF'}->{channel}->get(@_); } </td> </tr> <tr> <td class="h" > <a name="1377">1377</a> </td> <td class="c3" > 43 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1377-1"> 43 </a> </td> <td >   </td> <td > 1828 </td> <td class="s"> sub title { shift->{'rdf:RDF'}->{channel}->get_or_set( "title", @_ ); } </td> </tr> <tr> <td class="h" > <a name="1378">1378</a> </td> <td class="c3" > 32 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1378-1"> 32 </a> </td> <td >   </td> <td > 99 </td> <td class="s"> sub description { shift->{'rdf:RDF'}->{channel}->get_or_set( "description", @_ ); } </td> </tr> <tr> <td class="h" > <a name="1379">1379</a> </td> <td class="c3" > 30 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1379-1"> 30 </a> </td> <td >   </td> <td > 84 </td> <td class="s"> sub language { shift->{'rdf:RDF'}->{channel}->get_or_set( "dc:language", @_ ); } </td> </tr> <tr> <td class="h" > <a name="1380">1380</a> </td> <td class="c3" > 29 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1380-1"> 29 </a> </td> <td >   </td> <td > 83 </td> <td class="s"> sub copyright { shift->{'rdf:RDF'}->{channel}->get_or_set( "dc:rights", @_ ); } </td> </tr> <tr> <td class="h" > <a name="1381">1381</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1382">1382</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub link { </td> </tr> <tr> <td class="h" > <a name="1383">1383</a> </td> <td class="c3" > 45 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1383-1"> 45 </a> </td> <td >   </td> <td > 11811 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1384">1384</a> </td> <td class="c3" > 45 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 104 </td> <td class="s"> my $link = shift; </td> </tr> <tr> <td class="h" > <a name="1385">1385</a> </td> <td class="c3" > 45 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1385-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 156 </td> <td class="s"> return $self->{'rdf:RDF'}->{channel}->get_value("link") </td> </tr> <tr> <td class="h" > <a name="1386">1386</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> unless defined $link; </td> </tr> <tr> <td class="h" > <a name="1387">1387</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 51 </td> <td class="s"> $self->{'rdf:RDF'}->{channel}->{'-rdf:about'} = $link; </td> </tr> <tr> <td class="h" > <a name="1388">1388</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 90 </td> <td class="s"> $self->{'rdf:RDF'}->{channel}->set_value( "link", $link, @_ ); </td> </tr> <tr> <td class="h" > <a name="1389">1389</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1390">1390</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1391">1391</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub pubDate { </td> </tr> <tr> <td class="h" > <a name="1392">1392</a> </td> <td class="c3" > 48 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1392-1"> 48 </a> </td> <td >   </td> <td > 86 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1393">1393</a> </td> <td class="c3" > 48 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 69 </td> <td class="s"> my $date = shift; </td> </tr> <tr> <td class="h" > <a name="1394">1394</a> </td> <td class="c3" > 48 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1394-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 153 </td> <td class="s"> return $self->get_pubDate_w3cdtf() unless defined $date; </td> </tr> <tr> <td class="h" > <a name="1395">1395</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 29 </td> <td class="s"> $date = XML::FeedPP::Util::get_w3cdtf($date); </td> </tr> <tr> <td class="h" > <a name="1396">1396</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 61 </td> <td class="s"> $self->{'rdf:RDF'}->{channel}->set_value( "dc:date", $date ); </td> </tr> <tr> <td class="h" > <a name="1397">1397</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1398">1398</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1399">1399</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub get_pubDate_native { </td> </tr> <tr> <td class="h" > <a name="1400">1400</a> </td> <td class="c3" > 52 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1400-1"> 52 </a> </td> <td >   </td> <td > 140 </td> <td class="s"> shift->{'rdf:RDF'}->{channel}->get_value("dc:date"); </td> </tr> <tr> <td class="h" > <a name="1401">1401</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1402">1402</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1403">1403</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> *get_pubDate_w3cdtf = \&get_pubDate_native; </td> </tr> <tr> <td class="h" > <a name="1404">1404</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1405">1405</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub image { </td> </tr> <tr> <td class="h" > <a name="1406">1406</a> </td> <td class="c3" > 25 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1406-1"> 25 </a> </td> <td >   </td> <td > 37 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1407">1407</a> </td> <td class="c3" > 25 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 37 </td> <td class="s"> my $url = shift; </td> </tr> <tr> <td class="h" > <a name="1408">1408</a> </td> <td class="c3" > 25 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1408-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 131 </td> <td class="s"> if ( defined $url ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-3"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1409">1409</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 5 </td> <td class="s"> my ( $title, $link ) = @_; </td> </tr> <tr> <td class="h" > <a name="1410">1410</a> </td> <td class="c3" > 2 </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1410-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 16 </td> <td class="s"> $self->{'rdf:RDF'}->{channel}->{image} ||= {}; </td> </tr> <tr> <td class="h" > <a name="1411">1411</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> $self->{'rdf:RDF'}->{channel}->{image}->{'-rdf:resource'} = $url; </td> </tr> <tr> <td class="h" > <a name="1412">1412</a> </td> <td class="c3" > 2 </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1412-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 16 </td> <td class="s"> $self->{'rdf:RDF'}->{image} ||= {}; </td> </tr> <tr> <td class="h" > <a name="1413">1413</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> $self->{'rdf:RDF'}->{image}->{'-rdf:about'} = $url; # fix </td> </tr> <tr> <td class="h" > <a name="1414">1414</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> my $image = $self->{'rdf:RDF'}->{image}; </td> </tr> <tr> <td class="h" > <a name="1415">1415</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 8 </td> <td class="s"> $image->{url} = $url; </td> </tr> <tr> <td class="h" > <a name="1416">1416</a> </td> <td class="c3" > 2 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1416-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> $image->{title} = $title if defined $title; </td> </tr> <tr> <td class="h" > <a name="1417">1417</a> </td> <td class="c3" > 2 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1417-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> $image->{link} = $link if defined $link; </td> </tr> <tr> <td class="h" > <a name="1418">1418</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1419">1419</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( exists $self->{'rdf:RDF'}->{image} ) { </td> </tr> <tr> <td class="h" > <a name="1420">1420</a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 7 </td> <td class="s"> my $image = $self->{'rdf:RDF'}->{image}; </td> </tr> <tr> <td class="h" > <a name="1421">1421</a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> my $array = []; </td> </tr> <tr> <td class="h" > <a name="1422">1422</a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 7 </td> <td class="s"> foreach my $key (qw( url title link )) { </td> </tr> <tr> <td class="h" > <a name="1423">1423</a> </td> <td class="c3" > 9 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1423-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 39 </td> <td class="s"> push( @$array, exists $image->{$key} ? $image->{$key} : undef ); </td> </tr> <tr> <td class="h" > <a name="1424">1424</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1425">1425</a> </td> <td class="c3" > 3 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1425-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 31 </td> <td class="s"> return wantarray ? @$array : shift @$array; </td> </tr> <tr> <td class="h" > <a name="1426">1426</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1427">1427</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( exists $self->{'rdf:RDF'}->{channel}->{image} ) { </td> </tr> <tr> <td class="h" > <a name="1428">1428</a> </td> <td class="c0" > <a href="#1487"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> return $self->{'rdf:RDF'}->{channel}->{image}->{'-rdf:resource'}; </td> </tr> <tr> <td class="h" > <a name="1429">1429</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1430">1430</a> </td> <td class="c3" > 22 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 52 </td> <td class="s"> undef; </td> </tr> <tr> <td class="h" > <a name="1431">1431</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1432">1432</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1433">1433</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ---------------------------------------------------------------- </td> </tr> <tr> <td class="h" > <a name="1434">1434</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> package XML::FeedPP::RDF::Channel; </td> </tr> <tr> <td class="h" > <a name="1435">1435</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1435-1"> 44 </a> </td> <td >   </td> <td > 308 </td> <td class="s"> use strict; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 102 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1407 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1436">1436</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1436-1"> 44 </a> </td> <td >   </td> <td > 229 </td> <td class="s"> use vars qw( @ISA ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 88 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2332 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1437">1437</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> @ISA = qw( XML::FeedPP::Element ); </td> </tr> <tr> <td class="h" > <a name="1438">1438</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1439">1439</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ---------------------------------------------------------------- </td> </tr> <tr> <td class="h" > <a name="1440">1440</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> package XML::FeedPP::RDF::Item; </td> </tr> <tr> <td class="h" > <a name="1441">1441</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1441-1"> 44 </a> </td> <td >   </td> <td > 248 </td> <td class="s"> use strict; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 79 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1146 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1442">1442</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1442-1"> 44 </a> </td> <td >   </td> <td > 233 </td> <td class="s"> use vars qw( @ISA ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 68 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 11486 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1443">1443</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> @ISA = qw( XML::FeedPP::Item ); </td> </tr> <tr> <td class="h" > <a name="1444">1444</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1445">1445</a> </td> <td class="c3" > 56 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1445-1"> 56 </a> </td> <td >   </td> <td > 173 </td> <td class="s"> sub title { shift->get_or_set( "title", @_ ); } </td> </tr> <tr> <td class="h" > <a name="1446">1446</a> </td> <td class="c3" > 29 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1446-1"> 29 </a> </td> <td >   </td> <td > 86 </td> <td class="s"> sub description { shift->get_or_set( "description", @_ ); } </td> </tr> <tr> <td class="h" > <a name="1447">1447</a> </td> <td class="c3" > 54 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1447-1"> 54 </a> </td> <td >   </td> <td > 6132 </td> <td class="s"> sub category { shift->get_set_array( "dc:subject", @_ ); } </td> </tr> <tr> <td class="h" > <a name="1448">1448</a> </td> <td class="c3" > 43 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1448-1"> 43 </a> </td> <td >   </td> <td > 57 </td> <td class="s"> sub guid { undef; } # this element is NOT supported for RDF </td> </tr> <tr> <td class="h" > <a name="1449">1449</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1450">1450</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub author { </td> </tr> <tr> <td class="h" > <a name="1451">1451</a> </td> <td class="c3" > 26 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1451-1"> 26 </a> </td> <td >   </td> <td > 60 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1452">1452</a> </td> <td class="c3" > 26 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 47 </td> <td class="s"> my $author = shift; </td> </tr> <tr> <td class="h" > <a name="1453">1453</a> </td> <td class="c3" > 26 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1453-1"> 100 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1453-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 93 </td> <td class="s"> return $self->get_value('dc:creator') </td> </tr> <tr> <td class="h" > <a name="1454">1454</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> || $self->get_value('creator') unless defined $author; </td> </tr> <tr> <td class="h" > <a name="1455">1455</a> </td> <td class="c3" > 5 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 12 </td> <td class="s"> $self->set_value( 'dc:creator' => $author ); </td> </tr> <tr> <td class="h" > <a name="1456">1456</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1457">1457</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1458">1458</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub link { </td> </tr> <tr> <td class="h" > <a name="1459">1459</a> </td> <td class="c3" > 273 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1459-1"> 273 </a> </td> <td >   </td> <td > 6134 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1460">1460</a> </td> <td class="c3" > 273 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 305 </td> <td class="s"> my $link = shift; </td> </tr> <tr> <td class="h" > <a name="1461">1461</a> </td> <td class="c3" > 273 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1461-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 548 </td> <td class="s"> return $self->get_value("link") unless defined $link; </td> </tr> <tr> <td class="h" > <a name="1462">1462</a> </td> <td class="c3" > 73 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 148 </td> <td class="s"> $self->{'-rdf:about'} = $link; </td> </tr> <tr> <td class="h" > <a name="1463">1463</a> </td> <td class="c3" > 73 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 217 </td> <td class="s"> $self->set_value( "link", $link, @_ ); </td> </tr> <tr> <td class="h" > <a name="1464">1464</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1465">1465</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1466">1466</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub pubDate { </td> </tr> <tr> <td class="h" > <a name="1467">1467</a> </td> <td class="c3" > 95 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1467-1"> 95 </a> </td> <td >   </td> <td > 205 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1468">1468</a> </td> <td class="c3" > 95 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 108 </td> <td class="s"> my $date = shift; </td> </tr> <tr> <td class="h" > <a name="1469">1469</a> </td> <td class="c3" > 95 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1469-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 218 </td> <td class="s"> return $self->get_pubDate_w3cdtf() unless defined $date; </td> </tr> <tr> <td class="h" > <a name="1470">1470</a> </td> <td class="c3" > 58 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 93 </td> <td class="s"> $date = XML::FeedPP::Util::get_w3cdtf($date); </td> </tr> <tr> <td class="h" > <a name="1471">1471</a> </td> <td class="c3" > 58 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 118 </td> <td class="s"> $self->set_value( "dc:date", $date ); </td> </tr> <tr> <td class="h" > <a name="1472">1472</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1473">1473</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1474">1474</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub get_pubDate_native { </td> </tr> <tr> <td class="h" > <a name="1475">1475</a> </td> <td class="c3" > 124 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1475-1"> 124 </a> </td> <td >   </td> <td > 261 </td> <td class="s"> shift->get_value("dc:date"); </td> </tr> <tr> <td class="h" > <a name="1476">1476</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1477">1477</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1478">1478</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> *get_pubDate_w3cdtf = \&get_pubDate_native; </td> </tr> <tr> <td class="h" > <a name="1479">1479</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1480">1480</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ---------------------------------------------------------------- </td> </tr> <tr> <td class="h" > <a name="1481">1481</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> package XML::FeedPP::Atom::Common; </td> </tr> <tr> <td class="h" > <a name="1482">1482</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1482-1"> 44 </a> </td> <td >   </td> <td > 259 </td> <td class="s"> use strict; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 74 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1232 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1483">1483</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1483-1"> 44 </a> </td> <td >   </td> <td > 205 </td> <td class="s"> use vars qw( @ISA ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 400 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 44532 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1484">1484</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> @ISA = qw( XML::FeedPP ); </td> </tr> <tr> <td class="h" > <a name="1485">1485</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1486">1486</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub merge_native_channel { </td> </tr> <tr> <td class="h" > <a name="1487">1487</a> </td> <td class="c0" > <a href="#1488"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1487-1"> 0 </a> </td> <td >   </td> <td > 0 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1488">1488</a> </td> <td class="c0" > <a href="#1490"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1488-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my $tree = shift or next; </td> </tr> <tr> <td class="h" > <a name="1489">1489</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1490">1490</a> </td> <td class="c0" > <a href="#1583"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> XML::FeedPP::Util::merge_hash( $self->{feed}, $tree->{feed}, qw( entry ) ); </td> </tr> <tr> <td class="h" > <a name="1491">1491</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1492">1492</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1493">1493</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub add_item { </td> </tr> <tr> <td class="h" > <a name="1494">1494</a> </td> <td class="c3" > 80 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1494-1"> 80 </a> </td> <td >   </td> <td > 2697 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1495">1495</a> </td> <td class="c3" > 80 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 157 </td> <td class="s"> my( $init, $link, @rest ) = &XML::FeedPP::Util::param_even_odd(@_); </td> </tr> <tr> <td class="h" > <a name="1496">1496</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1497">1497</a> </td> <td class="c3" > 80 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1497-1"> 50 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1497-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 326 </td> <td class="s"> Carp::croak "add_item needs an argument" if ( ! ref $init && ! $link ); </td> </tr> <tr> <td class="h" > <a name="1498">1498</a> </td> <td class="c3" > 80 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1498-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 154 </td> <td class="s"> if ( ref $link ) { </td> </tr> <tr> <td class="h" > <a name="1499">1499</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 52 </td> <td class="s"> return $self->add_clone_item( $link ); </td> </tr> <tr> <td class="h" > <a name="1500">1500</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1501">1501</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1502">1502</a> </td> <td class="c3" > 66 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 165 </td> <td class="s"> my $item = $self->item_class->new(@rest); </td> </tr> <tr> <td class="h" > <a name="1503">1503</a> </td> <td class="c3" > 66 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1503-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 204 </td> <td class="s"> $item->link($link) if $link; </td> </tr> <tr> <td class="h" > <a name="1504">1504</a> </td> <td class="c3" > 66 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1504-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 164 </td> <td class="s"> $item->elements(@$init) if ref $init; </td> </tr> <tr> <td class="h" > <a name="1505">1505</a> </td> <td class="c3" > 66 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 92 </td> <td class="s"> push( @{ $self->{feed}->{entry} }, $item ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 66 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 167 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1506">1506</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1507">1507</a> </td> <td class="c3" > 66 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 159 </td> <td class="s"> $item; </td> </tr> <tr> <td class="h" > <a name="1508">1508</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1509">1509</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1510">1510</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub clear_item { </td> </tr> <tr> <td class="h" > <a name="1511">1511</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1511-1"> 1 </a> </td> <td >   </td> <td > 2309 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1512">1512</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> $self->{feed}->{entry} = []; </td> </tr> <tr> <td class="h" > <a name="1513">1513</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1514">1514</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1515">1515</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub remove_item { </td> </tr> <tr> <td class="h" > <a name="1516">1516</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1516-1"> 7 </a> </td> <td >   </td> <td > 17 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1517">1517</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 43 </td> <td class="s"> my $remove = shift; </td> </tr> <tr> <td class="h" > <a name="1518">1518</a> </td> <td class="c3" > 7 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1518-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 23 </td> <td class="s"> my $list = $self->{feed}->{entry} or return; </td> </tr> <tr> <td class="h" > <a name="1519">1519</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 35 </td> <td class="s"> my @deleted; </td> </tr> <tr> <td class="h" > <a name="1520">1520</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1521">1521</a> </td> <td class="c3" > 7 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1521-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 38 </td> <td class="s"> if ( $remove =~ /^-?\d+/ ) { </td> </tr> <tr> <td class="h" > <a name="1522">1522</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 20 </td> <td class="s"> @deleted = splice( @$list, $remove, 1 ); </td> </tr> <tr> <td class="h" > <a name="1523">1523</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1524">1524</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="1525">1525</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 5 </td> <td class="s"> @deleted = grep { $_->link() eq $remove } @$list; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 10 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1526">1526</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> @$list = grep { $_->link() ne $remove } @$list; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 11 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1527">1527</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1528">1528</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1529">1529</a> </td> <td class="c3" > 7 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1529-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 26 </td> <td class="s"> wantarray ? @deleted : shift @deleted; </td> </tr> <tr> <td class="h" > <a name="1530">1530</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1531">1531</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1532">1532</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub get_item { </td> </tr> <tr> <td class="h" > <a name="1533">1533</a> </td> <td class="c3" > 104 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1533-1"> 104 </a> </td> <td >   </td> <td > 21070 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1534">1534</a> </td> <td class="c3" > 104 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 134 </td> <td class="s"> my $num = shift; </td> </tr> <tr> <td class="h" > <a name="1535">1535</a> </td> <td class="c3" > 104 </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1535-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 270 </td> <td class="s"> $self->{feed}->{entry} ||= []; </td> </tr> <tr> <td class="h" > <a name="1536">1536</a> </td> <td class="c3" > 104 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1536-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 265 </td> <td class="s"> if ( defined $num ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1537">1537</a> </td> <td class="c3" > 35 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 94 </td> <td class="s"> return $self->{feed}->{entry}->[$num]; </td> </tr> <tr> <td class="h" > <a name="1538">1538</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1539">1539</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif (wantarray) { </td> </tr> <tr> <td class="h" > <a name="1540">1540</a> </td> <td class="c3" > 29 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 42 </td> <td class="s"> return @{ $self->{feed}->{entry} }; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 29 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 90 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1541">1541</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1542">1542</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="1543">1543</a> </td> <td class="c3" > 40 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 52 </td> <td class="s"> return scalar @{ $self->{feed}->{entry} }; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 40 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 188 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1544">1544</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1545">1545</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1546">1546</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1547">1547</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub sort_item { </td> </tr> <tr> <td class="h" > <a name="1548">1548</a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1548-1"> 12 </a> </td> <td >   </td> <td > 28 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1549">1549</a> </td> <td class="c3" > 12 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1549-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 62 </td> <td class="s"> my $list = $self->{feed}->{entry} or return; </td> </tr> <tr> <td class="h" > <a name="1550">1550</a> </td> <td class="c3" > 12 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1550-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 61 </td> <td class="s"> my $epoch = [ map { $_->get_pubDate_epoch() || 0 } @$list ]; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 28 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 78 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1551">1551</a> </td> <td class="c3" > 28 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 54 </td> <td class="s"> my $sorted = [ map { $list->[$_] } sort { </td> </tr> <tr> <td class="h" > <a name="1552">1552</a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 70 </td> <td class="s"> $epoch->[$b] <=> $epoch->[$a] </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 35 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 49 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1553">1553</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } 0 .. $#$list ]; </td> </tr> <tr> <td class="h" > <a name="1554">1554</a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 40 </td> <td class="s"> @$list = @$sorted; </td> </tr> <tr> <td class="h" > <a name="1555">1555</a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 44 </td> <td class="s"> scalar @$list; </td> </tr> <tr> <td class="h" > <a name="1556">1556</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1557">1557</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1558">1558</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub uniq_item { </td> </tr> <tr> <td class="h" > <a name="1559">1559</a> </td> <td class="c3" > 10 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1559-1"> 10 </a> </td> <td >   </td> <td > 21 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1560">1560</a> </td> <td class="c3" > 10 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1560-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 33 </td> <td class="s"> my $list = $self->{feed}->{entry} or return; </td> </tr> <tr> <td class="h" > <a name="1561">1561</a> </td> <td class="c3" > 10 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 17 </td> <td class="s"> my (%check, @uniq); </td> </tr> <tr> <td class="h" > <a name="1562">1562</a> </td> <td class="c3" > 10 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 26 </td> <td class="s"> foreach my $item (@$list) { </td> </tr> <tr> <td class="h" > <a name="1563">1563</a> </td> <td class="c3" > 18 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 34 </td> <td class="s"> my $link = $item->guid(); </td> </tr> <tr> <td class="h" > <a name="1564">1564</a> </td> <td class="c3" > 18 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1564-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 73 </td> <td class="s"> push( @uniq, $item ) unless $check{$link}++; </td> </tr> <tr> <td class="h" > <a name="1565">1565</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1566">1566</a> </td> <td class="c3" > 10 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 52 </td> <td class="s"> @$list = @uniq; </td> </tr> <tr> <td class="h" > <a name="1567">1567</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1568">1568</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1569">1569</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub limit_item { </td> </tr> <tr> <td class="h" > <a name="1570">1570</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1570-1"> 7 </a> </td> <td >   </td> <td > 15 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1571">1571</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> my $limit = shift; </td> </tr> <tr> <td class="h" > <a name="1572">1572</a> </td> <td class="c3" > 7 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1572-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 73 </td> <td class="s"> my $list = $self->{feed}->{entry} or return; </td> </tr> <tr> <td class="h" > <a name="1573">1573</a> </td> <td class="c3" > 7 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1573-1"> 100 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1573-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 39 </td> <td class="s"> if ( $limit > 0 && $limit < scalar @$list ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 100 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#-2"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1574">1574</a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 43 </td> <td class="s"> @$list = splice( @$list, 0, $limit ); # remove from end </td> </tr> <tr> <td class="h" > <a name="1575">1575</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1576">1576</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( $limit < 0 && -$limit < scalar @$list ) { </td> </tr> <tr> <td class="h" > <a name="1577">1577</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> @$list = splice( @$list, $limit ); # remove from start </td> </tr> <tr> <td class="h" > <a name="1578">1578</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1579">1579</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 17 </td> <td class="s"> scalar @$list; </td> </tr> <tr> <td class="h" > <a name="1580">1580</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1581">1581</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1582">1582</a> </td> <td class="c3" > 98 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1582-1"> 98 </a> </td> <td >   </td> <td > 191 </td> <td class="s"> sub docroot { shift->{feed}; } </td> </tr> <tr> <td class="h" > <a name="1583">1583</a> </td> <td class="c0" > <a href="#1631"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1583-1"> 0 </a> </td> <td >   </td> <td > 0 </td> <td class="s"> sub channel { shift->{feed}; } </td> </tr> <tr> <td class="h" > <a name="1584">1584</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1584-1"> 1 </a> </td> <td >   </td> <td > 4 </td> <td class="s"> sub set { shift->{feed}->set(@_); } </td> </tr> <tr> <td class="h" > <a name="1585">1585</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1585-1"> 1 </a> </td> <td >   </td> <td > 6 </td> <td class="s"> sub get { shift->{feed}->get(@_); } </td> </tr> <tr> <td class="h" > <a name="1586">1586</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1587">1587</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub language { </td> </tr> <tr> <td class="h" > <a name="1588">1588</a> </td> <td class="c3" > 29 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1588-1"> 29 </a> </td> <td >   </td> <td > 56 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1589">1589</a> </td> <td class="c3" > 29 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 40 </td> <td class="s"> my $lang = shift; </td> </tr> <tr> <td class="h" > <a name="1590">1590</a> </td> <td class="c3" > 29 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1590-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 89 </td> <td class="s"> return $self->{feed}->{'-xml:lang'} unless defined $lang; </td> </tr> <tr> <td class="h" > <a name="1591">1591</a> </td> <td class="c3" > 8 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 20 </td> <td class="s"> $self->{feed}->{'-xml:lang'} = $lang; </td> </tr> <tr> <td class="h" > <a name="1592">1592</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1593">1593</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1594">1594</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub image { </td> </tr> <tr> <td class="h" > <a name="1595">1595</a> </td> <td class="c3" > 27 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1595-1"> 27 </a> </td> <td >   </td> <td > 79 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1596">1596</a> </td> <td class="c3" > 27 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 39 </td> <td class="s"> my $href = shift; </td> </tr> <tr> <td class="h" > <a name="1597">1597</a> </td> <td class="c3" > 27 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 35 </td> <td class="s"> my $title = shift; </td> </tr> <tr> <td class="h" > <a name="1598">1598</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1599">1599</a> </td> <td class="c3" > 27 </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1599-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 88 </td> <td class="s"> my $link = $self->{feed}->{link} || []; </td> </tr> <tr> <td class="h" > <a name="1600">1600</a> </td> <td class="c3" > 27 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1600-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 76 </td> <td class="s"> $link = [$link] if UNIVERSAL::isa( $link, 'HASH' ); </td> </tr> <tr> <td class="h" > <a name="1601">1601</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $icon = ( </td> </tr> <tr> <td class="h" > <a name="1602">1602</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> grep { </td> </tr> <tr> <td class="h" > <a name="1603">1603</a> </td> <td class="c3" > 27 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 53 </td> <td class="s"> ref $_ </td> </tr> <tr> <td class="h" > <a name="1604">1604</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> && exists $_->{'-rel'} </td> </tr> <tr> <td class="h" > <a name="1605">1605</a> </td> <td class="c3" > 30 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1605-1"> 50 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1605-1"> 33 </a> </td> <td >   </td> <td >   </td> <td > 168 </td> <td class="s"> && ($_->{'-rel'} eq "icon" ) </td> </tr> <tr> <td class="h" > <a name="1606">1606</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } @$link </td> </tr> <tr> <td class="h" > <a name="1607">1607</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> )[0]; </td> </tr> <tr> <td class="h" > <a name="1608">1608</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1609">1609</a> </td> <td class="c3" > 27 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 110 </td> <td class="s"> my $rext = join( "|", map {"\Q$_\E"} keys %$XML::FeedPP::MIME_TYPES ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 243 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 358 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1610">1610</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1611">1611</a> </td> <td class="c3" > 27 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1611-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 115 </td> <td class="s"> if ( defined $href ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1612">1612</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 676 </td> <td class="s"> my $ext = ( $href =~ m#[^/]\.($rext)(\W|$)#i )[0]; </td> </tr> <tr> <td class="h" > <a name="1613">1613</a> </td> <td class="c3" > 6 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1613-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 23 </td> <td class="s"> my $type = $XML::FeedPP::MIME_TYPES->{$ext} if $ext; </td> </tr> <tr> <td class="h" > <a name="1614">1614</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1615">1615</a> </td> <td class="c3" > 6 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1615-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 15 </td> <td class="s"> if ( ref $icon ) { </td> </tr> <tr> <td class="h" > <a name="1616">1616</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2 </td> <td class="s"> $icon->{'-href'} = $href; </td> </tr> <tr> <td class="h" > <a name="1617">1617</a> </td> <td class="c3" > 1 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1617-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> $icon->{'-type'} = $type if $type; </td> </tr> <tr> <td class="h" > <a name="1618">1618</a> </td> <td class="c3" > 1 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1618-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> $icon->{'-title'} = $title if $title; </td> </tr> <tr> <td class="h" > <a name="1619">1619</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1620">1620</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="1621">1621</a> </td> <td class="c3" > 5 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> my $newicon = {}; </td> </tr> <tr> <td class="h" > <a name="1622">1622</a> </td> <td class="c3" > 5 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 10 </td> <td class="s"> $newicon->{'-rel'} = 'icon'; </td> </tr> <tr> <td class="h" > <a name="1623">1623</a> </td> <td class="c3" > 5 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> $newicon->{'-href'} = $href; </td> </tr> <tr> <td class="h" > <a name="1624">1624</a> </td> <td class="c3" > 5 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1624-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 13 </td> <td class="s"> $newicon->{'-type'} = $type if $type; </td> </tr> <tr> <td class="h" > <a name="1625">1625</a> </td> <td class="c3" > 5 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1625-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 11 </td> <td class="s"> $newicon->{'-title'} = $title if $title; </td> </tr> <tr> <td class="h" > <a name="1626">1626</a> </td> <td class="c3" > 5 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 8 </td> <td class="s"> my $flink = $self->{feed}->{link}; </td> </tr> <tr> <td class="h" > <a name="1627">1627</a> </td> <td class="c3" > 5 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1627-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 26 </td> <td class="s"> if ( UNIVERSAL::isa( $flink, 'ARRAY' )) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1628">1628</a> </td> <td class="c3" > 5 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 12 </td> <td class="s"> push( @$flink, $newicon ); </td> </tr> <tr> <td class="h" > <a name="1629">1629</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1630">1630</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( UNIVERSAL::isa( $flink, 'HASH' )) { </td> </tr> <tr> <td class="h" > <a name="1631">1631</a> </td> <td class="c0" > <a href="#1634"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $self->{feed}->{link} = [ $flink, $newicon ]; </td> </tr> <tr> <td class="h" > <a name="1632">1632</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1633">1633</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="1634">1634</a> </td> <td class="c0" > <a href="#1678"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $self->{feed}->{link} = [ $newicon ]; </td> </tr> <tr> <td class="h" > <a name="1635">1635</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1636">1636</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1637">1637</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1638">1638</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( ref $icon ) { </td> </tr> <tr> <td class="h" > <a name="1639">1639</a> </td> <td class="c3" > 8 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 18 </td> <td class="s"> my $array = [ $icon->{'-href'} ]; </td> </tr> <tr> <td class="h" > <a name="1640">1640</a> </td> <td class="c3" > 8 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1640-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 15 </td> <td class="s"> push( @$array, $icon->{'-title'} ) if exists $icon->{'-title'}; </td> </tr> <tr> <td class="h" > <a name="1641">1641</a> </td> <td class="c3" > 8 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1641-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 36 </td> <td class="s"> return wantarray ? @$array : shift @$array; </td> </tr> <tr> <td class="h" > <a name="1642">1642</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1643">1643</a> </td> <td class="c3" > 19 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 342 </td> <td class="s"> undef; </td> </tr> <tr> <td class="h" > <a name="1644">1644</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1645">1645</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1646">1646</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ---------------------------------------------------------------- </td> </tr> <tr> <td class="h" > <a name="1647">1647</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> package XML::FeedPP::Atom::Atom03; </td> </tr> <tr> <td class="h" > <a name="1648">1648</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1648-1"> 44 </a> </td> <td >   </td> <td > 365 </td> <td class="s"> use strict; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 82 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1118 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1649">1649</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1649-1"> 44 </a> </td> <td >   </td> <td > 189 </td> <td class="s"> use vars qw( @ISA ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 67 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 32904 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1650">1650</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> @ISA = qw( XML::FeedPP::Atom::Common ); </td> </tr> <tr> <td class="h" > <a name="1651">1651</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1652">1652</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub channel_class { </td> </tr> <tr> <td class="h" > <a name="1653">1653</a> </td> <td class="c3" > 66 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1653-1"> 66 </a> </td> <td >   </td> <td > 368 </td> <td class="s"> 'XML::FeedPP::Atom::Atom03::Feed'; </td> </tr> <tr> <td class="h" > <a name="1654">1654</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1655">1655</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1656">1656</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub item_class { </td> </tr> <tr> <td class="h" > <a name="1657">1657</a> </td> <td class="c3" > 69 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1657-1"> 69 </a> </td> <td >   </td> <td > 321 </td> <td class="s"> 'XML::FeedPP::Atom::Atom03::Entry'; </td> </tr> <tr> <td class="h" > <a name="1658">1658</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1659">1659</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1660">1660</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub test_feed { </td> </tr> <tr> <td class="h" > <a name="1661">1661</a> </td> <td class="c3" > 29 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1661-1"> 29 </a> </td> <td >   </td> <td > 46 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1662">1662</a> </td> <td class="c3" > 29 </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1662-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 100 </td> <td class="s"> my $source = shift || $self; </td> </tr> <tr> <td class="h" > <a name="1663">1663</a> </td> <td class="c3" > 29 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1663-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 60 </td> <td class="s"> return unless ref $source; </td> </tr> <tr> <td class="h" > <a name="1664">1664</a> </td> <td class="c3" > 29 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1664-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 60 </td> <td class="s"> return unless ref $source->{feed}; </td> </tr> <tr> <td class="h" > <a name="1665">1665</a> </td> <td class="c3" > 28 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1665-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 97 </td> <td class="s"> return unless exists $source->{feed}->{-xmlns}; </td> </tr> <tr> <td class="h" > <a name="1666">1666</a> </td> <td class="c3" > 28 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 41 </td> <td class="s"> my $xmlns = $source->{feed}->{-xmlns}; </td> </tr> <tr> <td class="h" > <a name="1667">1667</a> </td> <td class="c3" > 28 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1667-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 102 </td> <td class="s"> return if ($xmlns ne $XML::FeedPP::XMLNS_ATOM03); </td> </tr> <tr> <td class="h" > <a name="1668">1668</a> </td> <td class="c3" > 27 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 77 </td> <td class="s"> __PACKAGE__; </td> </tr> <tr> <td class="h" > <a name="1669">1669</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1670">1670</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1671">1671</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub init_feed { </td> </tr> <tr> <td class="h" > <a name="1672">1672</a> </td> <td class="c3" > 41 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1672-1"> 50 </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1672-1"> 41 </a> </td> <td >   </td> <td > 172 </td> <td class="s"> my $self = shift or return; </td> </tr> <tr> <td class="h" > <a name="1673">1673</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1674">1674</a> </td> <td class="c3" > 41 </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1674-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 239 </td> <td class="s"> $self->{feed} ||= $self->channel_class->new(); </td> </tr> <tr> <td class="h" > <a name="1675">1675</a> </td> <td class="c3" > 41 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 110 </td> <td class="s"> $self->channel_class->ref_bless( $self->{feed} ); </td> </tr> <tr> <td class="h" > <a name="1676">1676</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1677">1677</a> </td> <td class="c3" > 41 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1677-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 139 </td> <td class="s"> if ( ! UNIVERSAL::isa( $self->{feed}, 'HASH' ) ) { </td> </tr> <tr> <td class="h" > <a name="1678">1678</a> </td> <td class="c0" > <a href="#1687"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> Carp::croak "Invalid Atom 0.3 feed format: $self->{feed}"; </td> </tr> <tr> <td class="h" > <a name="1679">1679</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1680">1680</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1681">1681</a> </td> <td class="c3" > 41 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 195 </td> <td class="s"> $self->xmlns( 'xmlns' => $XML::FeedPP::XMLNS_ATOM03 ); </td> </tr> <tr> <td class="h" > <a name="1682">1682</a> </td> <td class="c3" > 41 </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1682-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 171 </td> <td class="s"> $self->{feed}->{'-version'} ||= $XML::FeedPP::ATOM03_VERSION; </td> </tr> <tr> <td class="h" > <a name="1683">1683</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1684">1684</a> </td> <td class="c3" > 41 </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1684-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 153 </td> <td class="s"> $self->{feed}->{entry} ||= []; </td> </tr> <tr> <td class="h" > <a name="1685">1685</a> </td> <td class="c3" > 41 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1685-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 140 </td> <td class="s"> if ( UNIVERSAL::isa( $self->{feed}->{entry}, 'HASH' ) ) { </td> </tr> <tr> <td class="h" > <a name="1686">1686</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # if this feed has only one item </td> </tr> <tr> <td class="h" > <a name="1687">1687</a> </td> <td class="c0" > <a href="#1765"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $self->{feed}->{entry} = [ $self->{feed}->{entry} ]; </td> </tr> <tr> <td class="h" > <a name="1688">1688</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1689">1689</a> </td> <td class="c3" > 41 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 85 </td> <td class="s"> foreach my $item ( @{ $self->{feed}->{entry} } ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 41 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 118 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1690">1690</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 38 </td> <td class="s"> $self->item_class->ref_bless($item); </td> </tr> <tr> <td class="h" > <a name="1691">1691</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1692">1692</a> </td> <td class="c3" > 41 </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1692-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 210 </td> <td class="s"> $self->{feed}->{author} ||= { name => '' }; # dummy for validation </td> </tr> <tr> <td class="h" > <a name="1693">1693</a> </td> <td class="c3" > 41 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 58 </td> <td class="s"> $self; </td> </tr> <tr> <td class="h" > <a name="1694">1694</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1695">1695</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1696">1696</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub title { </td> </tr> <tr> <td class="h" > <a name="1697">1697</a> </td> <td class="c3" > 37 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1697-1"> 37 </a> </td> <td >   </td> <td > 2977 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1698">1698</a> </td> <td class="c3" > 37 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 65 </td> <td class="s"> my $title = shift; </td> </tr> <tr> <td class="h" > <a name="1699">1699</a> </td> <td class="c3" > 37 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1699-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 131 </td> <td class="s"> return $self->{feed}->get_value('title') unless defined $title; </td> </tr> <tr> <td class="h" > <a name="1700">1700</a> </td> <td class="c3" > 13 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 68 </td> <td class="s"> $self->{feed}->set_value( 'title' => $title, type => 'text/plain' ); </td> </tr> <tr> <td class="h" > <a name="1701">1701</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1702">1702</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1703">1703</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub description { </td> </tr> <tr> <td class="h" > <a name="1704">1704</a> </td> <td class="c3" > 26 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1704-1"> 26 </a> </td> <td >   </td> <td > 48 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1705">1705</a> </td> <td class="c3" > 26 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 34 </td> <td class="s"> my $desc = shift; </td> </tr> <tr> <td class="h" > <a name="1706">1706</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return $self->{feed}->get_value('tagline') </td> </tr> <tr> <td class="h" > <a name="1707">1707</a> </td> <td class="c3" > 26 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1707-1"> 100 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1707-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 79 </td> <td class="s"> || $self->{feed}->get_value('subtitle') unless defined $desc; </td> </tr> <tr> <td class="h" > <a name="1708">1708</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 18 </td> <td class="s"> $self->{feed}->set_value( 'tagline' => $desc, type => 'text/html', mode => 'escaped' ); </td> </tr> <tr> <td class="h" > <a name="1709">1709</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1710">1710</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1711">1711</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub pubDate { </td> </tr> <tr> <td class="h" > <a name="1712">1712</a> </td> <td class="c3" > 37 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1712-1"> 37 </a> </td> <td >   </td> <td > 75 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1713">1713</a> </td> <td class="c3" > 37 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 61 </td> <td class="s"> my $date = shift; </td> </tr> <tr> <td class="h" > <a name="1714">1714</a> </td> <td class="c3" > 37 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1714-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 112 </td> <td class="s"> return $self->get_pubDate_w3cdtf() unless defined $date; </td> </tr> <tr> <td class="h" > <a name="1715">1715</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 44 </td> <td class="s"> $date = XML::FeedPP::Util::get_w3cdtf($date); </td> </tr> <tr> <td class="h" > <a name="1716">1716</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 52 </td> <td class="s"> $self->{feed}->set_value( 'modified', $date ); </td> </tr> <tr> <td class="h" > <a name="1717">1717</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1718">1718</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1719">1719</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub get_pubDate_native { </td> </tr> <tr> <td class="h" > <a name="1720">1720</a> </td> <td class="c3" > 37 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1720-1"> 37 </a> </td> <td >   </td> <td > 53 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1721">1721</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{feed}->get_value('modified') # Atom 0.3 </td> </tr> <tr> <td class="h" > <a name="1722">1722</a> </td> <td class="c3" > 37 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1722-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 105 </td> <td class="s"> || $self->{feed}->get_value('updated'); # Atom 1.0 </td> </tr> <tr> <td class="h" > <a name="1723">1723</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1724">1724</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1725">1725</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> *get_pubDate_w3cdtf = \&get_pubDate_native; </td> </tr> <tr> <td class="h" > <a name="1726">1726</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1727">1727</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub copyright { </td> </tr> <tr> <td class="h" > <a name="1728">1728</a> </td> <td class="c3" > 22 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1728-1"> 22 </a> </td> <td >   </td> <td > 41 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1729">1729</a> </td> <td class="c3" > 22 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 28 </td> <td class="s"> my $copy = shift; </td> </tr> <tr> <td class="h" > <a name="1730">1730</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return $self->{feed}->get_value('copyright') </td> </tr> <tr> <td class="h" > <a name="1731">1731</a> </td> <td class="c3" > 22 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1731-1"> 100 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1731-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 55 </td> <td class="s"> || $self->{feed}->get_value('rights') unless defined $copy; </td> </tr> <tr> <td class="h" > <a name="1732">1732</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 22 </td> <td class="s"> $self->{feed}->set_value( 'copyright' => $copy ); </td> </tr> <tr> <td class="h" > <a name="1733">1733</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1734">1734</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1735">1735</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub link { </td> </tr> <tr> <td class="h" > <a name="1736">1736</a> </td> <td class="c3" > 45 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1736-1"> 45 </a> </td> <td >   </td> <td > 5134 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1737">1737</a> </td> <td class="c3" > 45 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 66 </td> <td class="s"> my $href = shift; </td> </tr> <tr> <td class="h" > <a name="1738">1738</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1739">1739</a> </td> <td class="c3" > 45 </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1739-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 176 </td> <td class="s"> my $link = $self->{feed}->{link} || []; </td> </tr> <tr> <td class="h" > <a name="1740">1740</a> </td> <td class="c3" > 45 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1740-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 140 </td> <td class="s"> $link = [$link] if UNIVERSAL::isa( $link, 'HASH' ); </td> </tr> <tr> <td class="h" > <a name="1741">1741</a> </td> <td class="c3" > 45 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 97 </td> <td class="s"> $link = [ grep { ref $_ } @$link ]; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 29 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 84 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1742">1742</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $link = [ grep { </td> </tr> <tr> <td class="h" > <a name="1743">1743</a> </td> <td class="c3" > 45 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1743-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 93 </td> <td class="s"> ! exists $_->{'-rel'} || $_->{'-rel'} eq 'alternate' </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 29 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 144 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1744">1744</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } @$link ]; </td> </tr> <tr> <td class="h" > <a name="1745">1745</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $link = [ grep { </td> </tr> <tr> <td class="h" > <a name="1746">1746</a> </td> <td class="c3" > 45 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1746-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 79 </td> <td class="s"> ! exists $_->{'-type'} || $_->{'-type'} =~ m#^text/(x-)?html#i </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 21 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 154 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1747">1747</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } @$link ]; </td> </tr> <tr> <td class="h" > <a name="1748">1748</a> </td> <td class="c3" > 45 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 81 </td> <td class="s"> my $html = shift @$link; </td> </tr> <tr> <td class="h" > <a name="1749">1749</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1750">1750</a> </td> <td class="c3" > 45 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1750-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 128 </td> <td class="s"> if ( defined $href ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1751">1751</a> </td> <td class="c3" > 18 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1751-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 43 </td> <td class="s"> if ( ref $html ) { </td> </tr> <tr> <td class="h" > <a name="1752">1752</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> $html->{'-href'} = $href; </td> </tr> <tr> <td class="h" > <a name="1753">1753</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1754">1754</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="1755">1755</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 54 </td> <td class="s"> my $hash = { </td> </tr> <tr> <td class="h" > <a name="1756">1756</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> -rel => 'alternate', </td> </tr> <tr> <td class="h" > <a name="1757">1757</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> -type => 'text/html', </td> </tr> <tr> <td class="h" > <a name="1758">1758</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> -href => $href, </td> </tr> <tr> <td class="h" > <a name="1759">1759</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="1760">1760</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 35 </td> <td class="s"> my $flink = $self->{feed}->{link}; </td> </tr> <tr> <td class="h" > <a name="1761">1761</a> </td> <td class="c3" > 16 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1761-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 46 </td> <td class="s"> if ( ! ref $flink ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-3"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1762">1762</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 45 </td> <td class="s"> $self->{feed}->{link} = [ $hash ]; </td> </tr> <tr> <td class="h" > <a name="1763">1763</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1764">1764</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( UNIVERSAL::isa( $flink, 'ARRAY' )) { </td> </tr> <tr> <td class="h" > <a name="1765">1765</a> </td> <td class="c0" > <a href="#1768"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> push( @$flink, $hash ); </td> </tr> <tr> <td class="h" > <a name="1766">1766</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1767">1767</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( UNIVERSAL::isa( $flink, 'HASH' )) { </td> </tr> <tr> <td class="h" > <a name="1768">1768</a> </td> <td class="c0" > <a href="#1810"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $self->{feed}->{link} = [ $flink, $hash ]; </td> </tr> <tr> <td class="h" > <a name="1769">1769</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1770">1770</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1771">1771</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1772">1772</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( ref $html ) { </td> </tr> <tr> <td class="h" > <a name="1773">1773</a> </td> <td class="c3" > 19 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 84 </td> <td class="s"> return $html->{'-href'}; </td> </tr> <tr> <td class="h" > <a name="1774">1774</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1775">1775</a> </td> <td class="c3" > 26 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 54 </td> <td class="s"> return; </td> </tr> <tr> <td class="h" > <a name="1776">1776</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1777">1777</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1778">1778</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ---------------------------------------------------------------- </td> </tr> <tr> <td class="h" > <a name="1779">1779</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> package XML::FeedPP::Atom::Atom10; </td> </tr> <tr> <td class="h" > <a name="1780">1780</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1780-1"> 44 </a> </td> <td >   </td> <td > 301 </td> <td class="s"> use strict; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 81 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1024 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1781">1781</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1781-1"> 44 </a> </td> <td >   </td> <td > 199 </td> <td class="s"> use vars qw( @ISA ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 72 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 30113 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1782">1782</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> @ISA = qw( XML::FeedPP::Atom::Common ); </td> </tr> <tr> <td class="h" > <a name="1783">1783</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1784">1784</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub channel_class { </td> </tr> <tr> <td class="h" > <a name="1785">1785</a> </td> <td class="c3" > 24 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1785-1"> 24 </a> </td> <td >   </td> <td > 150 </td> <td class="s"> 'XML::FeedPP::Atom::Atom10::Feed'; </td> </tr> <tr> <td class="h" > <a name="1786">1786</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1787">1787</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1788">1788</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub item_class { </td> </tr> <tr> <td class="h" > <a name="1789">1789</a> </td> <td class="c3" > 28 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1789-1"> 28 </a> </td> <td >   </td> <td > 140 </td> <td class="s"> 'XML::FeedPP::Atom::Atom10::Entry'; </td> </tr> <tr> <td class="h" > <a name="1790">1790</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1791">1791</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1792">1792</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub test_feed { </td> </tr> <tr> <td class="h" > <a name="1793">1793</a> </td> <td class="c3" > 34 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1793-1"> 34 </a> </td> <td >   </td> <td > 58 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1794">1794</a> </td> <td class="c3" > 34 </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1794-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 103 </td> <td class="s"> my $source = shift || $self; </td> </tr> <tr> <td class="h" > <a name="1795">1795</a> </td> <td class="c3" > 34 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1795-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 75 </td> <td class="s"> return unless ref $source; </td> </tr> <tr> <td class="h" > <a name="1796">1796</a> </td> <td class="c3" > 34 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1796-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 77 </td> <td class="s"> return unless ref $source->{feed}; </td> </tr> <tr> <td class="h" > <a name="1797">1797</a> </td> <td class="c3" > 33 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1797-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 77 </td> <td class="s"> return unless exists $source->{feed}->{-xmlns}; </td> </tr> <tr> <td class="h" > <a name="1798">1798</a> </td> <td class="c3" > 33 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 50 </td> <td class="s"> my $xmlns = $source->{feed}->{-xmlns}; </td> </tr> <tr> <td class="h" > <a name="1799">1799</a> </td> <td class="c3" > 33 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1799-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 83 </td> <td class="s"> return if ($xmlns ne $XML::FeedPP::XMLNS_ATOM10); </td> </tr> <tr> <td class="h" > <a name="1800">1800</a> </td> <td class="c3" > 19 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 40 </td> <td class="s"> __PACKAGE__; </td> </tr> <tr> <td class="h" > <a name="1801">1801</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1802">1802</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1803">1803</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub init_feed { </td> </tr> <tr> <td class="h" > <a name="1804">1804</a> </td> <td class="c3" > 17 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1804-1"> 50 </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1804-1"> 17 </a> </td> <td >   </td> <td > 75 </td> <td class="s"> my $self = shift or return; </td> </tr> <tr> <td class="h" > <a name="1805">1805</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1806">1806</a> </td> <td class="c3" > 17 </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1806-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 84 </td> <td class="s"> $self->{feed} ||= $self->channel_class->new(); </td> </tr> <tr> <td class="h" > <a name="1807">1807</a> </td> <td class="c3" > 17 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 78 </td> <td class="s"> $self->channel_class->ref_bless( $self->{feed} ); </td> </tr> <tr> <td class="h" > <a name="1808">1808</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1809">1809</a> </td> <td class="c3" > 17 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1809-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 67 </td> <td class="s"> if ( ! UNIVERSAL::isa( $self->{feed}, 'HASH' ) ) { </td> </tr> <tr> <td class="h" > <a name="1810">1810</a> </td> <td class="c0" > <a href="#1819"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> Carp::croak "Invalid Atom 1.0 feed format: $self->{feed}"; </td> </tr> <tr> <td class="h" > <a name="1811">1811</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1812">1812</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1813">1813</a> </td> <td class="c3" > 17 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 107 </td> <td class="s"> $self->xmlns( 'xmlns' => $XML::FeedPP::XMLNS_ATOM10 ); </td> </tr> <tr> <td class="h" > <a name="1814">1814</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # $self->{feed}->{'-version'} ||= $XML::FeedPP::ATOM10_VERSION; </td> </tr> <tr> <td class="h" > <a name="1815">1815</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1816">1816</a> </td> <td class="c3" > 17 </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1816-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 76 </td> <td class="s"> $self->{feed}->{entry} ||= []; </td> </tr> <tr> <td class="h" > <a name="1817">1817</a> </td> <td class="c3" > 17 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1817-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 68 </td> <td class="s"> if ( UNIVERSAL::isa( $self->{feed}->{entry}, 'HASH' ) ) { </td> </tr> <tr> <td class="h" > <a name="1818">1818</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # if this feed has only one item </td> </tr> <tr> <td class="h" > <a name="1819">1819</a> </td> <td class="c0" > <a href="#1895"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $self->{feed}->{entry} = [ $self->{feed}->{entry} ]; </td> </tr> <tr> <td class="h" > <a name="1820">1820</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1821">1821</a> </td> <td class="c3" > 17 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 31 </td> <td class="s"> foreach my $item ( @{ $self->{feed}->{entry} } ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 17 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 45 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1822">1822</a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 29 </td> <td class="s"> $self->item_class->ref_bless($item); </td> </tr> <tr> <td class="h" > <a name="1823">1823</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1824">1824</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # $self->{feed}->{author} ||= { name => '' }; # dummy for validation </td> </tr> <tr> <td class="h" > <a name="1825">1825</a> </td> <td class="c3" > 17 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 27 </td> <td class="s"> $self; </td> </tr> <tr> <td class="h" > <a name="1826">1826</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1827">1827</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1828">1828</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub title { </td> </tr> <tr> <td class="h" > <a name="1829">1829</a> </td> <td class="c3" > 17 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1829-1"> 17 </a> </td> <td >   </td> <td > 2635 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1830">1830</a> </td> <td class="c3" > 17 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 26 </td> <td class="s"> my $title = shift; </td> </tr> <tr> <td class="h" > <a name="1831">1831</a> </td> <td class="c3" > 17 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1831-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 97 </td> <td class="s"> return $self->{feed}->get_value('title') unless defined $title; </td> </tr> <tr> <td class="h" > <a name="1832">1832</a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 18 </td> <td class="s"> $self->{feed}->set_value( 'title' => $title, @_ ); </td> </tr> <tr> <td class="h" > <a name="1833">1833</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1834">1834</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1835">1835</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub description { </td> </tr> <tr> <td class="h" > <a name="1836">1836</a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1836-1"> 12 </a> </td> <td >   </td> <td > 29 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1837">1837</a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 48 </td> <td class="s"> my $desc = shift; </td> </tr> <tr> <td class="h" > <a name="1838">1838</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return $self->{feed}->get_value('content') </td> </tr> <tr> <td class="h" > <a name="1839">1839</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> || $self->{feed}->get_value('summary') </td> </tr> <tr> <td class="h" > <a name="1840">1840</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> || $self->{feed}->get_value('subtitle') </td> </tr> <tr> <td class="h" > <a name="1841">1841</a> </td> <td class="c3" > 12 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1841-1"> 100 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1841-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 52 </td> <td class="s"> || $self->{feed}->get_value('tagline') unless defined $desc; </td> </tr> <tr> <td class="h" > <a name="1842">1842</a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 19 </td> <td class="s"> $self->{feed}->set_value( 'content' => $desc, @_ ); # type => 'text' </td> </tr> <tr> <td class="h" > <a name="1843">1843</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1844">1844</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1845">1845</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub pubDate { </td> </tr> <tr> <td class="h" > <a name="1846">1846</a> </td> <td class="c3" > 9 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1846-1"> 9 </a> </td> <td >   </td> <td > 302 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1847">1847</a> </td> <td class="c3" > 9 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 12 </td> <td class="s"> my $date = shift; </td> </tr> <tr> <td class="h" > <a name="1848">1848</a> </td> <td class="c3" > 9 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1848-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 32 </td> <td class="s"> return $self->get_pubDate_w3cdtf() unless defined $date; </td> </tr> <tr> <td class="h" > <a name="1849">1849</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> $date = XML::FeedPP::Util::get_w3cdtf($date); </td> </tr> <tr> <td class="h" > <a name="1850">1850</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> $self->{feed}->set_value( 'updated', $date ); </td> </tr> <tr> <td class="h" > <a name="1851">1851</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1852">1852</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1853">1853</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub get_pubDate_native { </td> </tr> <tr> <td class="h" > <a name="1854">1854</a> </td> <td class="c3" > 9 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1854-1"> 9 </a> </td> <td >   </td> <td > 14 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1855">1855</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{feed}->get_value('updated') # Atom 1.0 </td> </tr> <tr> <td class="h" > <a name="1856">1856</a> </td> <td class="c3" > 9 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1856-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 23 </td> <td class="s"> || $self->{feed}->get_value('modified') # Atom 0.3 </td> </tr> <tr> <td class="h" > <a name="1857">1857</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1858">1858</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1859">1859</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> *get_pubDate_w3cdtf = \&get_pubDate_native; </td> </tr> <tr> <td class="h" > <a name="1860">1860</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1861">1861</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub copyright { </td> </tr> <tr> <td class="h" > <a name="1862">1862</a> </td> <td class="c3" > 8 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1862-1"> 8 </a> </td> <td >   </td> <td > 19 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1863">1863</a> </td> <td class="c3" > 8 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 12 </td> <td class="s"> my $copy = shift; </td> </tr> <tr> <td class="h" > <a name="1864">1864</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return $self->{feed}->get_value('rights') </td> </tr> <tr> <td class="h" > <a name="1865">1865</a> </td> <td class="c3" > 8 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1865-1"> 100 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1865-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 28 </td> <td class="s"> || $self->{feed}->get_value('copyright') unless defined $copy; </td> </tr> <tr> <td class="h" > <a name="1866">1866</a> </td> <td class="c3" > 2 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 5 </td> <td class="s"> $self->{feed}->set_value( 'rights' => $copy ); </td> </tr> <tr> <td class="h" > <a name="1867">1867</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1868">1868</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1869">1869</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub link { </td> </tr> <tr> <td class="h" > <a name="1870">1870</a> </td> <td class="c3" > 18 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1870-1"> 18 </a> </td> <td >   </td> <td > 3112 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1871">1871</a> </td> <td class="c3" > 18 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 27 </td> <td class="s"> my $href = shift; </td> </tr> <tr> <td class="h" > <a name="1872">1872</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1873">1873</a> </td> <td class="c3" > 18 </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1873-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 71 </td> <td class="s"> my $link = $self->{feed}->{link} || []; </td> </tr> <tr> <td class="h" > <a name="1874">1874</a> </td> <td class="c3" > 18 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1874-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 82 </td> <td class="s"> $link = [$link] if UNIVERSAL::isa( $link, 'HASH' ); </td> </tr> <tr> <td class="h" > <a name="1875">1875</a> </td> <td class="c3" > 18 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 45 </td> <td class="s"> $link = [ grep { ref $_ } @$link ]; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 28 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1876">1876</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $link = [ grep { </td> </tr> <tr> <td class="h" > <a name="1877">1877</a> </td> <td class="c3" > 18 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1877-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 34 </td> <td class="s"> ! exists $_->{'-rel'} || $_->{'-rel'} eq 'alternate' </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 63 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1878">1878</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } @$link ]; </td> </tr> <tr> <td class="h" > <a name="1879">1879</a> </td> <td class="c3" > 18 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 29 </td> <td class="s"> my $html = shift @$link; </td> </tr> <tr> <td class="h" > <a name="1880">1880</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1881">1881</a> </td> <td class="c3" > 18 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1881-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 58 </td> <td class="s"> if ( defined $href ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1882">1882</a> </td> <td class="c3" > 6 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1882-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 27 </td> <td class="s"> if ( ref $html ) { </td> </tr> <tr> <td class="h" > <a name="1883">1883</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2 </td> <td class="s"> $html->{'-href'} = $href; </td> </tr> <tr> <td class="h" > <a name="1884">1884</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1885">1885</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="1886">1886</a> </td> <td class="c3" > 5 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 17 </td> <td class="s"> my $hash = { </td> </tr> <tr> <td class="h" > <a name="1887">1887</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> -rel => 'alternate', </td> </tr> <tr> <td class="h" > <a name="1888">1888</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> -href => $href, </td> </tr> <tr> <td class="h" > <a name="1889">1889</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="1890">1890</a> </td> <td class="c3" > 5 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 11 </td> <td class="s"> my $flink = $self->{feed}->{link}; </td> </tr> <tr> <td class="h" > <a name="1891">1891</a> </td> <td class="c3" > 5 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1891-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 38 </td> <td class="s"> if ( ! ref $flink ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-3"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1892">1892</a> </td> <td class="c3" > 5 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 17 </td> <td class="s"> $self->{feed}->{link} = [ $hash ]; </td> </tr> <tr> <td class="h" > <a name="1893">1893</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1894">1894</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( UNIVERSAL::isa( $flink, 'ARRAY' )) { </td> </tr> <tr> <td class="h" > <a name="1895">1895</a> </td> <td class="c0" > <a href="#1898"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> push( @$flink, $hash ); </td> </tr> <tr> <td class="h" > <a name="1896">1896</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1897">1897</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( UNIVERSAL::isa( $flink, 'HASH' )) { </td> </tr> <tr> <td class="h" > <a name="1898">1898</a> </td> <td class="c0" > <a href="#2037"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $self->{feed}->{link} = [ $flink, $hash ]; </td> </tr> <tr> <td class="h" > <a name="1899">1899</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1900">1900</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1901">1901</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1902">1902</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( ref $html ) { </td> </tr> <tr> <td class="h" > <a name="1903">1903</a> </td> <td class="c3" > 9 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 37 </td> <td class="s"> return $html->{'-href'}; </td> </tr> <tr> <td class="h" > <a name="1904">1904</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1905">1905</a> </td> <td class="c3" > 9 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 18 </td> <td class="s"> return; </td> </tr> <tr> <td class="h" > <a name="1906">1906</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1907">1907</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1908">1908</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ---------------------------------------------------------------- </td> </tr> <tr> <td class="h" > <a name="1909">1909</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> package XML::FeedPP::Atom; </td> </tr> <tr> <td class="h" > <a name="1910">1910</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1910-1"> 44 </a> </td> <td >   </td> <td > 288 </td> <td class="s"> use strict; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 87 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1127 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1911">1911</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1911-1"> 44 </a> </td> <td >   </td> <td > 210 </td> <td class="s"> use vars qw( @ISA ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 108 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 4114 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1912">1912</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> @ISA = qw( XML::FeedPP::Atom::Atom03 ); </td> </tr> <tr> <td class="h" > <a name="1913">1913</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1914">1914</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # @ISA = qw( XML::FeedPP::Atom::Atom10 ); # if Atom 1.0 for default </td> </tr> <tr> <td class="h" > <a name="1915">1915</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1916">1916</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub test_feed { </td> </tr> <tr> <td class="h" > <a name="1917">1917</a> </td> <td class="c3" > 4 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1917-1"> 4 </a> </td> <td >   </td> <td > 7 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1918">1918</a> </td> <td class="c3" > 4 </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1918-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 19 </td> <td class="s"> my $source = shift || $self; </td> </tr> <tr> <td class="h" > <a name="1919">1919</a> </td> <td class="c3" > 4 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1919-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 11 </td> <td class="s"> return unless ref $source; </td> </tr> <tr> <td class="h" > <a name="1920">1920</a> </td> <td class="c3" > 4 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1920-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 13 </td> <td class="s"> return unless ref $source->{feed}; </td> </tr> <tr> <td class="h" > <a name="1921">1921</a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> __PACKAGE__; </td> </tr> <tr> <td class="h" > <a name="1922">1922</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1923">1923</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1924">1924</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ---------------------------------------------------------------- </td> </tr> <tr> <td class="h" > <a name="1925">1925</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> package XML::FeedPP::Atom::Common::Feed; </td> </tr> <tr> <td class="h" > <a name="1926">1926</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1926-1"> 44 </a> </td> <td >   </td> <td > 245 </td> <td class="s"> use strict; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 72 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1064 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1927">1927</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1927-1"> 44 </a> </td> <td >   </td> <td > 210 </td> <td class="s"> use vars qw( @ISA ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 83 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 8587 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1928">1928</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> @ISA = qw( XML::FeedPP::Element ); </td> </tr> <tr> <td class="h" > <a name="1929">1929</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1930">1930</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # <content type="xhtml"><div>...</div></content> </td> </tr> <tr> <td class="h" > <a name="1931">1931</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # http://www.ietf.org/rfc/rfc4287.txt </td> </tr> <tr> <td class="h" > <a name="1932">1932</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # 3. If the value of "type" is "xhtml", the content of atom:content </td> </tr> <tr> <td class="h" > <a name="1933">1933</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # MUST be a single XHTML div element [XHTML] and SHOULD be suitable </td> </tr> <tr> <td class="h" > <a name="1934">1934</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # for handling as XHTML. The XHTML div element itself MUST NOT be </td> </tr> <tr> <td class="h" > <a name="1935">1935</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # considered part of the content. </td> </tr> <tr> <td class="h" > <a name="1936">1936</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1937">1937</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub _fetch_value { </td> </tr> <tr> <td class="h" > <a name="1938">1938</a> </td> <td class="c3" > 139 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1938-1"> 139 </a> </td> <td >   </td> <td > 159 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1939">1939</a> </td> <td class="c3" > 139 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 144 </td> <td class="s"> my $value = shift; </td> </tr> <tr> <td class="h" > <a name="1940">1940</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1941">1941</a> </td> <td class="c3" > 139 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1941-1"> 100 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1941-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 586 </td> <td class="s"> if ( UNIVERSAL::isa( $value, 'HASH' ) </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#-2"> 66 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1942">1942</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> && exists $value->{'-type'} </td> </tr> <tr> <td class="h" > <a name="1943">1943</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> && ($value->{'-type'} eq "xhtml")) { </td> </tr> <tr> <td class="h" > <a name="1944">1944</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 18 </td> <td class="s"> my $child = [ grep { /^[^\-\#]/ } keys %$value ]; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 17 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 46 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1945">1945</a> </td> <td class="c3" > 6 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1945-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 15 </td> <td class="s"> if (scalar @$child == 1) { </td> </tr> <tr> <td class="h" > <a name="1946">1946</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 8 </td> <td class="s"> my $div = shift @$child; </td> </tr> <tr> <td class="h" > <a name="1947">1947</a> </td> <td class="c3" > 6 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1947-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 26 </td> <td class="s"> if ($div =~ /^([^:]+:)?div$/i) { </td> </tr> <tr> <td class="h" > <a name="1948">1948</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 34 </td> <td class="s"> return $value->{$div}; </td> </tr> <tr> <td class="h" > <a name="1949">1949</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1950">1950</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1951">1951</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1952">1952</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1953">1953</a> </td> <td class="c3" > 133 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 258 </td> <td class="s"> $self->SUPER::_fetch_value($value); </td> </tr> <tr> <td class="h" > <a name="1954">1954</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1955">1955</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1956">1956</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ---------------------------------------------------------------- </td> </tr> <tr> <td class="h" > <a name="1957">1957</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> package XML::FeedPP::Atom::Atom03::Feed; </td> </tr> <tr> <td class="h" > <a name="1958">1958</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1958-1"> 44 </a> </td> <td >   </td> <td > 286 </td> <td class="s"> use strict; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 92 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1094 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1959">1959</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1959-1"> 44 </a> </td> <td >   </td> <td > 211 </td> <td class="s"> use vars qw( @ISA ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 106 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2325 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1960">1960</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> @ISA = qw( XML::FeedPP::Atom::Common::Feed ); </td> </tr> <tr> <td class="h" > <a name="1961">1961</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1962">1962</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ---------------------------------------------------------------- </td> </tr> <tr> <td class="h" > <a name="1963">1963</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> package XML::FeedPP::Atom::Atom10::Feed; </td> </tr> <tr> <td class="h" > <a name="1964">1964</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1964-1"> 44 </a> </td> <td >   </td> <td > 224 </td> <td class="s"> use strict; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 78 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1070 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1965">1965</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1965-1"> 44 </a> </td> <td >   </td> <td > 207 </td> <td class="s"> use vars qw( @ISA ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 77 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2007 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1966">1966</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> @ISA = qw( XML::FeedPP::Atom::Common::Feed ); </td> </tr> <tr> <td class="h" > <a name="1967">1967</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1968">1968</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ---------------------------------------------------------------- </td> </tr> <tr> <td class="h" > <a name="1969">1969</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> package XML::FeedPP::Atom::Common::Entry; </td> </tr> <tr> <td class="h" > <a name="1970">1970</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1970-1"> 44 </a> </td> <td >   </td> <td > 202 </td> <td class="s"> use strict; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 80 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 885 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1971">1971</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1971-1"> 44 </a> </td> <td >   </td> <td > 175 </td> <td class="s"> use vars qw( @ISA ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 76 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 6089 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1972">1972</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> @ISA = qw( XML::FeedPP::Item ); </td> </tr> <tr> <td class="h" > <a name="1973">1973</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1974">1974</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub author { </td> </tr> <tr> <td class="h" > <a name="1975">1975</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1975-1"> 31 </a> </td> <td >   </td> <td > 54 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1976">1976</a> </td> <td class="c3" > 31 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 44 </td> <td class="s"> my $name = shift; </td> </tr> <tr> <td class="h" > <a name="1977">1977</a> </td> <td class="c3" > 31 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1977-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 63 </td> <td class="s"> unless ( defined $name ) { </td> </tr> <tr> <td class="h" > <a name="1978">1978</a> </td> <td class="c3" > 22 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1978-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 55 </td> <td class="s"> my $author = $self->{author}->{name} if ref $self->{author}; </td> </tr> <tr> <td class="h" > <a name="1979">1979</a> </td> <td class="c3" > 22 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 58 </td> <td class="s"> return $author; </td> </tr> <tr> <td class="h" > <a name="1980">1980</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1981">1981</a> </td> <td class="c3" > 9 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1981-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 43 </td> <td class="s"> my $author = ref $name ? $name : { name => $name }; </td> </tr> <tr> <td class="h" > <a name="1982">1982</a> </td> <td class="c3" > 9 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 24 </td> <td class="s"> $self->{author} = $author; </td> </tr> <tr> <td class="h" > <a name="1983">1983</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1984">1984</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1985">1985</a> </td> <td class="c3" > 187 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1985-1"> 187 </a> </td> <td >   </td> <td > 417 </td> <td class="s"> sub guid { shift->get_or_set( 'id', @_ ); } </td> </tr> <tr> <td class="h" > <a name="1986">1986</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1987">1987</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> *_fetch_value = \&XML::FeedPP::Atom::Common::Feed::_fetch_value; </td> </tr> <tr> <td class="h" > <a name="1988">1988</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1989">1989</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ---------------------------------------------------------------- </td> </tr> <tr> <td class="h" > <a name="1990">1990</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> package XML::FeedPP::Atom::Atom03::Entry; </td> </tr> <tr> <td class="h" > <a name="1991">1991</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1991-1"> 44 </a> </td> <td >   </td> <td > 242 </td> <td class="s"> use strict; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 97 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 970 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1992">1992</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1992-1"> 44 </a> </td> <td >   </td> <td > 177 </td> <td class="s"> use vars qw( @ISA ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 89 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 20416 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1993">1993</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> @ISA = qw( XML::FeedPP::Atom::Common::Entry ); </td> </tr> <tr> <td class="h" > <a name="1994">1994</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1995">1995</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub description { </td> </tr> <tr> <td class="h" > <a name="1996">1996</a> </td> <td class="c3" > 24 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#1996-1"> 24 </a> </td> <td >   </td> <td > 45 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1997">1997</a> </td> <td class="c3" > 24 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 34 </td> <td class="s"> my $desc = shift; </td> </tr> <tr> <td class="h" > <a name="1998">1998</a> </td> <td class="c3" > 24 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#1998-1"> 100 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#1998-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 88 </td> <td class="s"> return $self->get_value('content') </td> </tr> <tr> <td class="h" > <a name="1999">1999</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> || $self->get_value('summary') unless defined $desc; </td> </tr> <tr> <td class="h" > <a name="2000">2000</a> </td> <td class="c3" > 8 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 33 </td> <td class="s"> $self->set_value( </td> </tr> <tr> <td class="h" > <a name="2001">2001</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> 'content' => $desc, </td> </tr> <tr> <td class="h" > <a name="2002">2002</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> type => 'text/html', </td> </tr> <tr> <td class="h" > <a name="2003">2003</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> mode => 'escaped' </td> </tr> <tr> <td class="h" > <a name="2004">2004</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="2005">2005</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2006">2006</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2007">2007</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub link { </td> </tr> <tr> <td class="h" > <a name="2008">2008</a> </td> <td class="c3" > 106 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2008-1"> 106 </a> </td> <td >   </td> <td > 1453 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="2009">2009</a> </td> <td class="c3" > 106 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 135 </td> <td class="s"> my $href = shift; </td> </tr> <tr> <td class="h" > <a name="2010">2010</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2011">2011</a> </td> <td class="c3" > 106 </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2011-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 335 </td> <td class="s"> my $link = $self->{link} || []; </td> </tr> <tr> <td class="h" > <a name="2012">2012</a> </td> <td class="c3" > 106 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2012-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 338 </td> <td class="s"> $link = [$link] if UNIVERSAL::isa( $link, 'HASH' ); </td> </tr> <tr> <td class="h" > <a name="2013">2013</a> </td> <td class="c3" > 106 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 192 </td> <td class="s"> $link = [ grep { ref $_ } @$link ]; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 53 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 136 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2014">2014</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $link = [ grep { </td> </tr> <tr> <td class="h" > <a name="2015">2015</a> </td> <td class="c3" > 106 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2015-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 217 </td> <td class="s"> ! exists $_->{'-rel'} || $_->{'-rel'} eq 'alternate' </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 53 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 277 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2016">2016</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } @$link ]; </td> </tr> <tr> <td class="h" > <a name="2017">2017</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $link = [ grep { </td> </tr> <tr> <td class="h" > <a name="2018">2018</a> </td> <td class="c3" > 106 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2018-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 185 </td> <td class="s"> ! exists $_->{'-type'} || $_->{'-type'} =~ m#^text/(x-)?html#i </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 53 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 389 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2019">2019</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } @$link ]; </td> </tr> <tr> <td class="h" > <a name="2020">2020</a> </td> <td class="c3" > 106 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 167 </td> <td class="s"> my $html = shift @$link; </td> </tr> <tr> <td class="h" > <a name="2021">2021</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2022">2022</a> </td> <td class="c3" > 106 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2022-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 242 </td> <td class="s"> if ( defined $href ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2023">2023</a> </td> <td class="c3" > 54 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2023-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 100 </td> <td class="s"> if ( ref $html ) { </td> </tr> <tr> <td class="h" > <a name="2024">2024</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2 </td> <td class="s"> $html->{'-href'} = $href; </td> </tr> <tr> <td class="h" > <a name="2025">2025</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2026">2026</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="2027">2027</a> </td> <td class="c3" > 53 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 175 </td> <td class="s"> my $hash = { </td> </tr> <tr> <td class="h" > <a name="2028">2028</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> -rel => 'alternate', </td> </tr> <tr> <td class="h" > <a name="2029">2029</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> -type => 'text/html', </td> </tr> <tr> <td class="h" > <a name="2030">2030</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> -href => $href, </td> </tr> <tr> <td class="h" > <a name="2031">2031</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="2032">2032</a> </td> <td class="c3" > 53 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 91 </td> <td class="s"> my $flink = $self->{link}; </td> </tr> <tr> <td class="h" > <a name="2033">2033</a> </td> <td class="c3" > 53 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2033-1"> 50 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2033-1"> 0 </a> </td> <td >   </td> <td >   </td> <td > 143 </td> <td class="s"> if ( ! ref $flink ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-3"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2034">2034</a> </td> <td class="c3" > 53 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 129 </td> <td class="s"> $self->{link} = [ $hash ]; </td> </tr> <tr> <td class="h" > <a name="2035">2035</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2036">2036</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( ref $flink && UNIVERSAL::isa( $flink, 'ARRAY' )) { </td> </tr> <tr> <td class="h" > <a name="2037">2037</a> </td> <td class="c0" > <a href="#2040"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> push( @$flink, $hash ); </td> </tr> <tr> <td class="h" > <a name="2038">2038</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2039">2039</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( ref $flink && UNIVERSAL::isa( $flink, 'HASH' )) { </td> </tr> <tr> <td class="h" > <a name="2040">2040</a> </td> <td class="c0" > <a href="#2119"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $self->{link} = [ $flink, $hash ]; </td> </tr> <tr> <td class="h" > <a name="2041">2041</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2042">2042</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2043">2043</a> </td> <td class="c3" > 54 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2043-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 186 </td> <td class="s"> $self->guid( $href ) unless defined $self->guid(); </td> </tr> <tr> <td class="h" > <a name="2044">2044</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2045">2045</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( ref $html ) { </td> </tr> <tr> <td class="h" > <a name="2046">2046</a> </td> <td class="c3" > 52 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 219 </td> <td class="s"> return $html->{'-href'}; </td> </tr> <tr> <td class="h" > <a name="2047">2047</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2048">2048</a> </td> <td class="c3" > 54 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 119 </td> <td class="s"> return; </td> </tr> <tr> <td class="h" > <a name="2049">2049</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2050">2050</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2051">2051</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub pubDate { </td> </tr> <tr> <td class="h" > <a name="2052">2052</a> </td> <td class="c3" > 57 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2052-1"> 57 </a> </td> <td >   </td> <td > 104 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="2053">2053</a> </td> <td class="c3" > 57 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 75 </td> <td class="s"> my $date = shift; </td> </tr> <tr> <td class="h" > <a name="2054">2054</a> </td> <td class="c3" > 57 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2054-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 130 </td> <td class="s"> return $self->get_pubDate_w3cdtf() unless defined $date; </td> </tr> <tr> <td class="h" > <a name="2055">2055</a> </td> <td class="c3" > 38 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 58 </td> <td class="s"> $date = XML::FeedPP::Util::get_w3cdtf($date); </td> </tr> <tr> <td class="h" > <a name="2056">2056</a> </td> <td class="c3" > 38 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 95 </td> <td class="s"> $self->set_value( 'issued', $date ); </td> </tr> <tr> <td class="h" > <a name="2057">2057</a> </td> <td class="c3" > 38 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 63 </td> <td class="s"> $self->set_value( 'modified', $date ); </td> </tr> <tr> <td class="h" > <a name="2058">2058</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2059">2059</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2060">2060</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub get_pubDate_native { </td> </tr> <tr> <td class="h" > <a name="2061">2061</a> </td> <td class="c3" > 66 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2061-1"> 66 </a> </td> <td >   </td> <td > 91 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="2062">2062</a> </td> <td class="c3" > 66 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2062-1"> 50 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2062-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 114 </td> <td class="s"> $self->get_value('modified') # Atom 0.3 </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#-2"> 66 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2063">2063</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> || $self->get_value('issued') # Atom 0.3 </td> </tr> <tr> <td class="h" > <a name="2064">2064</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> || $self->get_value('updated') # Atom 1.0 </td> </tr> <tr> <td class="h" > <a name="2065">2065</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> || $self->get_value('published'); # Atom 1.0 </td> </tr> <tr> <td class="h" > <a name="2066">2066</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2067">2067</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2068">2068</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> *get_pubDate_w3cdtf = \&get_pubDate_native; </td> </tr> <tr> <td class="h" > <a name="2069">2069</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2070">2070</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub title { </td> </tr> <tr> <td class="h" > <a name="2071">2071</a> </td> <td class="c3" > 48 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2071-1"> 48 </a> </td> <td >   </td> <td > 1116 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="2072">2072</a> </td> <td class="c3" > 48 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 65 </td> <td class="s"> my $title = shift; </td> </tr> <tr> <td class="h" > <a name="2073">2073</a> </td> <td class="c3" > 48 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2073-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 146 </td> <td class="s"> return $self->get_value('title') unless defined $title; </td> </tr> <tr> <td class="h" > <a name="2074">2074</a> </td> <td class="c3" > 25 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 57 </td> <td class="s"> $self->set_value( 'title' => $title, type => 'text/plain' ); </td> </tr> <tr> <td class="h" > <a name="2075">2075</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2076">2076</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2077">2077</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2077-1"> 14 </a> </td> <td >   </td> <td > 29 </td> <td class="s"> sub category { undef; } # this element is NOT supported for Atom 0.3 </td> </tr> <tr> <td class="h" > <a name="2078">2078</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2079">2079</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ---------------------------------------------------------------- </td> </tr> <tr> <td class="h" > <a name="2080">2080</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> package XML::FeedPP::Atom::Atom10::Entry; </td> </tr> <tr> <td class="h" > <a name="2081">2081</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2081-1"> 44 </a> </td> <td >   </td> <td > 262 </td> <td class="s"> use strict; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 70 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 984 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2082">2082</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2082-1"> 44 </a> </td> <td >   </td> <td > 188 </td> <td class="s"> use vars qw( @ISA ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 77 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 24328 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2083">2083</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> @ISA = qw( XML::FeedPP::Atom::Common::Entry ); </td> </tr> <tr> <td class="h" > <a name="2084">2084</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2085">2085</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub description { </td> </tr> <tr> <td class="h" > <a name="2086">2086</a> </td> <td class="c3" > 18 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2086-1"> 18 </a> </td> <td >   </td> <td > 6006 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="2087">2087</a> </td> <td class="c3" > 18 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 24 </td> <td class="s"> my $desc = shift; </td> </tr> <tr> <td class="h" > <a name="2088">2088</a> </td> <td class="c3" > 18 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2088-1"> 100 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2088-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 82 </td> <td class="s"> return $self->get_value('content') </td> </tr> <tr> <td class="h" > <a name="2089">2089</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> || $self->get_value('summary') unless defined $desc; </td> </tr> <tr> <td class="h" > <a name="2090">2090</a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 10 </td> <td class="s"> $self->set_value( 'content' => $desc, @_ ); </td> </tr> <tr> <td class="h" > <a name="2091">2091</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2092">2092</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2093">2093</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub link { </td> </tr> <tr> <td class="h" > <a name="2094">2094</a> </td> <td class="c3" > 24 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2094-1"> 24 </a> </td> <td >   </td> <td > 44 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="2095">2095</a> </td> <td class="c3" > 24 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 47 </td> <td class="s"> my $href = shift; </td> </tr> <tr> <td class="h" > <a name="2096">2096</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2097">2097</a> </td> <td class="c3" > 24 </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2097-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 96 </td> <td class="s"> my $link = $self->{link} || []; </td> </tr> <tr> <td class="h" > <a name="2098">2098</a> </td> <td class="c3" > 24 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2098-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 91 </td> <td class="s"> $link = [$link] if UNIVERSAL::isa( $link, 'HASH' ); </td> </tr> <tr> <td class="h" > <a name="2099">2099</a> </td> <td class="c3" > 24 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 58 </td> <td class="s"> $link = [ grep { ref $_ } @$link ]; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 27 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2100">2100</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $link = [ grep { </td> </tr> <tr> <td class="h" > <a name="2101">2101</a> </td> <td class="c3" > 24 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2101-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 45 </td> <td class="s"> ! exists $_->{'-rel'} || $_->{'-rel'} eq 'alternate' </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 44 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2102">2102</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } @$link ]; </td> </tr> <tr> <td class="h" > <a name="2103">2103</a> </td> <td class="c3" > 24 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 34 </td> <td class="s"> my $html = shift @$link; </td> </tr> <tr> <td class="h" > <a name="2104">2104</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2105">2105</a> </td> <td class="c3" > 24 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2105-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 68 </td> <td class="s"> if ( defined $href ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2106">2106</a> </td> <td class="c3" > 14 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2106-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 25 </td> <td class="s"> if ( ref $html ) { </td> </tr> <tr> <td class="h" > <a name="2107">2107</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1 </td> <td class="s"> $html->{'-href'} = $href; </td> </tr> <tr> <td class="h" > <a name="2108">2108</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2109">2109</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="2110">2110</a> </td> <td class="c3" > 13 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 23 </td> <td class="s"> my $hash = { </td> </tr> <tr> <td class="h" > <a name="2111">2111</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # -rel => 'alternate', </td> </tr> <tr> <td class="h" > <a name="2112">2112</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> -href => $href, </td> </tr> <tr> <td class="h" > <a name="2113">2113</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="2114">2114</a> </td> <td class="c3" > 13 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 24 </td> <td class="s"> my $flink = $self->{link}; </td> </tr> <tr> <td class="h" > <a name="2115">2115</a> </td> <td class="c3" > 13 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2115-1"> 50 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2115-1"> 0 </a> </td> <td >   </td> <td >   </td> <td > 23 </td> <td class="s"> if ( ! ref $flink ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-3"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2116">2116</a> </td> <td class="c3" > 13 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 29 </td> <td class="s"> $self->{link} = [ $hash ]; </td> </tr> <tr> <td class="h" > <a name="2117">2117</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2118">2118</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( ref $flink && UNIVERSAL::isa( $flink, 'ARRAY' )) { </td> </tr> <tr> <td class="h" > <a name="2119">2119</a> </td> <td class="c0" > <a href="#2122"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> push( @$flink, $hash ); </td> </tr> <tr> <td class="h" > <a name="2120">2120</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2121">2121</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( ref $flink && UNIVERSAL::isa( $flink, 'HASH' )) { </td> </tr> <tr> <td class="h" > <a name="2122">2122</a> </td> <td class="c0" > <a href="#2207"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $self->{link} = [ $flink, $hash ]; </td> </tr> <tr> <td class="h" > <a name="2123">2123</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2124">2124</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2125">2125</a> </td> <td class="c3" > 14 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2125-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 42 </td> <td class="s"> $self->guid( $href ) unless defined $self->guid(); </td> </tr> <tr> <td class="h" > <a name="2126">2126</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2127">2127</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( ref $html ) { </td> </tr> <tr> <td class="h" > <a name="2128">2128</a> </td> <td class="c3" > 10 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 33 </td> <td class="s"> return $html->{'-href'}; </td> </tr> <tr> <td class="h" > <a name="2129">2129</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2130">2130</a> </td> <td class="c3" > 14 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 25 </td> <td class="s"> return; </td> </tr> <tr> <td class="h" > <a name="2131">2131</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2132">2132</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2133">2133</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub pubDate { </td> </tr> <tr> <td class="h" > <a name="2134">2134</a> </td> <td class="c3" > 13 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2134-1"> 13 </a> </td> <td >   </td> <td > 26 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="2135">2135</a> </td> <td class="c3" > 13 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 17 </td> <td class="s"> my $date = shift; </td> </tr> <tr> <td class="h" > <a name="2136">2136</a> </td> <td class="c3" > 13 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2136-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 31 </td> <td class="s"> return $self->get_pubDate_w3cdtf() unless defined $date; </td> </tr> <tr> <td class="h" > <a name="2137">2137</a> </td> <td class="c3" > 4 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 7 </td> <td class="s"> $date = XML::FeedPP::Util::get_w3cdtf($date); </td> </tr> <tr> <td class="h" > <a name="2138">2138</a> </td> <td class="c3" > 4 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 10 </td> <td class="s"> $self->set_value( 'updated', $date ); </td> </tr> <tr> <td class="h" > <a name="2139">2139</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2140">2140</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2141">2141</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub get_pubDate_native { </td> </tr> <tr> <td class="h" > <a name="2142">2142</a> </td> <td class="c3" > 21 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2142-1"> 21 </a> </td> <td >   </td> <td > 35 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="2143">2143</a> </td> <td class="c3" > 21 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2143-1"> 50 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2143-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 48 </td> <td class="s"> $self->get_value('updated') # Atom 1.0 </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#-2"> 66 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2144">2144</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> || $self->get_value('published') # Atom 1.0 </td> </tr> <tr> <td class="h" > <a name="2145">2145</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> || $self->get_value('issued') # Atom 0.3 </td> </tr> <tr> <td class="h" > <a name="2146">2146</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> || $self->get_value('modified'); # Atom 0.3 </td> </tr> <tr> <td class="h" > <a name="2147">2147</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2148">2148</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2149">2149</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> *get_pubDate_w3cdtf = \&get_pubDate_native; </td> </tr> <tr> <td class="h" > <a name="2150">2150</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2151">2151</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub title { </td> </tr> <tr> <td class="h" > <a name="2152">2152</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2152-1"> 16 </a> </td> <td >   </td> <td > 1022 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="2153">2153</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 24 </td> <td class="s"> my $title = shift; </td> </tr> <tr> <td class="h" > <a name="2154">2154</a> </td> <td class="c3" > 16 </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2154-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 51 </td> <td class="s"> my $type = shift || 'text'; </td> </tr> <tr> <td class="h" > <a name="2155">2155</a> </td> <td class="c3" > 16 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2155-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 46 </td> <td class="s"> return $self->get_value('title') unless defined $title; </td> </tr> <tr> <td class="h" > <a name="2156">2156</a> </td> <td class="c3" > 5 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 14 </td> <td class="s"> $self->set_value( 'title' => $title, type => $type ); </td> </tr> <tr> <td class="h" > <a name="2157">2157</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2158">2158</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2159">2159</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub category { </td> </tr> <tr> <td class="h" > <a name="2160">2160</a> </td> <td class="c3" > 35 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2160-1"> 35 </a> </td> <td >   </td> <td > 3428 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="2161">2161</a> </td> <td class="c3" > 35 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2161-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 68 </td> <td class="s"> if ( scalar @_ ) { </td> </tr> <tr> <td class="h" > <a name="2162">2162</a> </td> <td class="c3" > 15 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2162-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 36 </td> <td class="s"> my $cate = ref $_[0] ? $_[0] : \@_; </td> </tr> <tr> <td class="h" > <a name="2163">2163</a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 28 </td> <td class="s"> my $list = [ map {+{-term=>$_}} @$cate ]; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 26 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 60 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2164">2164</a> </td> <td class="c3" > 15 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2164-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 56 </td> <td class="s"> $self->{category} = ( scalar @$list > 1 ) ? $list : shift @$list; </td> </tr> <tr> <td class="h" > <a name="2165">2165</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2166">2166</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="2167">2167</a> </td> <td class="c3" > 20 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2167-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 44 </td> <td class="s"> return unless exists $self->{category}; </td> </tr> <tr> <td class="h" > <a name="2168">2168</a> </td> <td class="c3" > 20 </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2168-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 55 </td> <td class="s"> my $list = $self->{category} || []; </td> </tr> <tr> <td class="h" > <a name="2169">2169</a> </td> <td class="c3" > 20 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2169-1"> 100 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2169-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 93 </td> <td class="s"> $list = [ $list ] if ( defined $list && ! UNIVERSAL::isa( $list, 'ARRAY' )); </td> </tr> <tr> <td class="h" > <a name="2170">2170</a> </td> <td class="c3" > 20 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2170-1"> 50 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2170-1"> 33 </a> </td> <td >   </td> <td >   </td> <td > 37 </td> <td class="s"> my $term = [ map {ref $_ && exists $_->{-term} && $_->{-term} } @$list ]; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 36 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 154 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2171">2171</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # return wantarray ? @$term : shift @$term; </td> </tr> <tr> <td class="h" > <a name="2172">2172</a> </td> <td class="c3" > 20 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2172-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 68 </td> <td class="s"> return ( scalar @$term > 1 ) ? $term : shift @$term; </td> </tr> <tr> <td class="h" > <a name="2173">2173</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2174">2174</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2175">2175</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2176">2176</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ---------------------------------------------------------------- </td> </tr> <tr> <td class="h" > <a name="2177">2177</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> package XML::FeedPP::Element; </td> </tr> <tr> <td class="h" > <a name="2178">2178</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2178-1"> 44 </a> </td> <td >   </td> <td > 277 </td> <td class="s"> use strict; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 68 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 52627 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2179">2179</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2180">2180</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub new { </td> </tr> <tr> <td class="h" > <a name="2181">2181</a> </td> <td class="c3" > 491 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2181-1"> 491 </a> </td> <td >   </td> <td > 658 </td> <td class="s"> my $package = shift; </td> </tr> <tr> <td class="h" > <a name="2182">2182</a> </td> <td class="c3" > 491 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 689 </td> <td class="s"> my $self = {@_}; </td> </tr> <tr> <td class="h" > <a name="2183">2183</a> </td> <td class="c3" > 491 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 660 </td> <td class="s"> bless $self, $package; </td> </tr> <tr> <td class="h" > <a name="2184">2184</a> </td> <td class="c3" > 491 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 943 </td> <td class="s"> $self; </td> </tr> <tr> <td class="h" > <a name="2185">2185</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2186">2186</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2187">2187</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub ref_bless { </td> </tr> <tr> <td class="h" > <a name="2188">2188</a> </td> <td class="c3" > 299 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2188-1"> 299 </a> </td> <td >   </td> <td > 431 </td> <td class="s"> my $package = shift; </td> </tr> <tr> <td class="h" > <a name="2189">2189</a> </td> <td class="c3" > 299 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 377 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="2190">2190</a> </td> <td class="c3" > 299 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 443 </td> <td class="s"> bless $self, $package; </td> </tr> <tr> <td class="h" > <a name="2191">2191</a> </td> <td class="c3" > 299 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 426 </td> <td class="s"> $self; </td> </tr> <tr> <td class="h" > <a name="2192">2192</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2193">2193</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2194">2194</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub set { </td> </tr> <tr> <td class="h" > <a name="2195">2195</a> </td> <td class="c3" > 29 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2195-1"> 29 </a> </td> <td >   </td> <td > 103 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="2196">2196</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2197">2197</a> </td> <td class="c3" > 29 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 58 </td> <td class="s"> while ( scalar @_ ) { </td> </tr> <tr> <td class="h" > <a name="2198">2198</a> </td> <td class="c3" > 127 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 163 </td> <td class="s"> my $key = shift @_; </td> </tr> <tr> <td class="h" > <a name="2199">2199</a> </td> <td class="c3" > 127 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 139 </td> <td class="s"> my $val = shift @_; </td> </tr> <tr> <td class="h" > <a name="2200">2200</a> </td> <td class="c3" > 127 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 149 </td> <td class="s"> my $node = $self; </td> </tr> <tr> <td class="h" > <a name="2201">2201</a> </td> <td class="c3" > 127 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 293 </td> <td class="s"> while ( $key =~ s#^([^/]+)/##s ) { </td> </tr> <tr> <td class="h" > <a name="2202">2202</a> </td> <td class="c3" > 36 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 63 </td> <td class="s"> my $child = $1; </td> </tr> <tr> <td class="h" > <a name="2203">2203</a> </td> <td class="c3" > 36 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2203-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 89 </td> <td class="s"> if ( ref $node->{$child} ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2204">2204</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ok </td> </tr> <tr> <td class="h" > <a name="2205">2205</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2206">2206</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( defined $node->{$child} ) { </td> </tr> <tr> <td class="h" > <a name="2207">2207</a> </td> <td class="c0" > <a href="#2240"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $node->{$child} = { '#text' => $node->{$child} }; </td> </tr> <tr> <td class="h" > <a name="2208">2208</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2209">2209</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="2210">2210</a> </td> <td class="c3" > 18 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 26 </td> <td class="s"> $node->{$child} = {}; </td> </tr> <tr> <td class="h" > <a name="2211">2211</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2212">2212</a> </td> <td class="c3" > 36 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 63 </td> <td class="s"> $node = $node->{$child}; </td> </tr> <tr> <td class="h" > <a name="2213">2213</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2214">2214</a> </td> <td class="c3" > 127 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 255 </td> <td class="s"> my ( $tagname, $attr ) = split( /\@/, $key, 2 ); </td> </tr> <tr> <td class="h" > <a name="2215">2215</a> </td> <td class="c3" > 127 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2215-1"> 100 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2215-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 376 </td> <td class="s"> if ( $tagname eq "" && defined $attr ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-3"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2216">2216</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 16 </td> <td class="s"> $node->{ '-' . $attr } = $val; </td> </tr> <tr> <td class="h" > <a name="2217">2217</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2218">2218</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( defined $attr ) { </td> </tr> <tr> <td class="h" > <a name="2219">2219</a> </td> <td class="c3" > 59 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2219-1"> 100 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2219-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 168 </td> <td class="s"> if ( ref $node->{$tagname} && </td> </tr> <tr> <td class="h" > <a name="2220">2220</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> UNIVERSAL::isa( $node->{$tagname}, 'ARRAY' )) { </td> </tr> <tr> <td class="h" > <a name="2221">2221</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> $node->{$tagname} = shift @{$node->{$tagname}}; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2222">2222</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2223">2223</a> </td> <td class="c3" > 59 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 92 </td> <td class="s"> my $hkey = '-' . $attr; </td> </tr> <tr> <td class="h" > <a name="2224">2224</a> </td> <td class="c3" > 59 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2224-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 115 </td> <td class="s"> if ( ref $node->{$tagname} ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2225">2225</a> </td> <td class="c3" > 25 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 77 </td> <td class="s"> $node->{$tagname}->{$hkey} = $val; </td> </tr> <tr> <td class="h" > <a name="2226">2226</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2227">2227</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( defined $node->{$tagname} ) { </td> </tr> <tr> <td class="h" > <a name="2228">2228</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $node->{$tagname} = { </td> </tr> <tr> <td class="h" > <a name="2229">2229</a> </td> <td class="c3" > 4 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 17 </td> <td class="s"> '#text' => $node->{$tagname}, </td> </tr> <tr> <td class="h" > <a name="2230">2230</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $hkey => $val, </td> </tr> <tr> <td class="h" > <a name="2231">2231</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="2232">2232</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2233">2233</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="2234">2234</a> </td> <td class="c3" > 30 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 101 </td> <td class="s"> $node->{$tagname} = { $hkey => $val }; </td> </tr> <tr> <td class="h" > <a name="2235">2235</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2236">2236</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2237">2237</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( defined $tagname ) { </td> </tr> <tr> <td class="h" > <a name="2238">2238</a> </td> <td class="c3" > 62 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2238-1"> 50 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2238-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 154 </td> <td class="s"> if ( ref $node->{$tagname} && </td> </tr> <tr> <td class="h" > <a name="2239">2239</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> UNIVERSAL::isa( $node->{$tagname}, 'ARRAY' )) { </td> </tr> <tr> <td class="h" > <a name="2240">2240</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $node->{$tagname} = shift @{$node->{$tagname}}; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#2290"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2241">2241</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2242">2242</a> </td> <td class="c3" > 62 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2242-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 108 </td> <td class="s"> if ( ref $node->{$tagname} ) { </td> </tr> <tr> <td class="h" > <a name="2243">2243</a> </td> <td class="c3" > 19 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 39 </td> <td class="s"> $node->{$tagname}->{'#text'} = $val; </td> </tr> <tr> <td class="h" > <a name="2244">2244</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2245">2245</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="2246">2246</a> </td> <td class="c3" > 43 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 141 </td> <td class="s"> $node->{$tagname} = $val; </td> </tr> <tr> <td class="h" > <a name="2247">2247</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2248">2248</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2249">2249</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2250">2250</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2251">2251</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2252">2252</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub get { </td> </tr> <tr> <td class="h" > <a name="2253">2253</a> </td> <td class="c3" > 228 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2253-1"> 228 </a> </td> <td >   </td> <td > 45090 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="2254">2254</a> </td> <td class="c3" > 228 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 303 </td> <td class="s"> my $key = shift; </td> </tr> <tr> <td class="h" > <a name="2255">2255</a> </td> <td class="c3" > 228 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 289 </td> <td class="s"> my $node = $self; </td> </tr> <tr> <td class="h" > <a name="2256">2256</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2257">2257</a> </td> <td class="c3" > 228 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 879 </td> <td class="s"> while ( $key =~ s#^([^/]+)/##s ) { </td> </tr> <tr> <td class="h" > <a name="2258">2258</a> </td> <td class="c3" > 84 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 172 </td> <td class="s"> my $child = $1; </td> </tr> <tr> <td class="h" > <a name="2259">2259</a> </td> <td class="c3" > 84 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2259-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 153 </td> <td class="s"> return unless ref $node; </td> </tr> <tr> <td class="h" > <a name="2260">2260</a> </td> <td class="c3" > 84 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2260-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 166 </td> <td class="s"> return unless exists $node->{$child}; </td> </tr> <tr> <td class="h" > <a name="2261">2261</a> </td> <td class="c3" > 72 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 158 </td> <td class="s"> $node = $node->{$child}; </td> </tr> <tr> <td class="h" > <a name="2262">2262</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2263">2263</a> </td> <td class="c3" > 216 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 563 </td> <td class="s"> my ( $tagname, $attr ) = split( /\@/, $key, 2 ); </td> </tr> <tr> <td class="h" > <a name="2264">2264</a> </td> <td class="c3" > 216 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2264-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 437 </td> <td class="s"> return unless ref $node; </td> </tr> <tr> <td class="h" > <a name="2265">2265</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # return unless exists $node->{$tagname}; </td> </tr> <tr> <td class="h" > <a name="2266">2266</a> </td> <td class="c3" > 204 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2266-1"> 100 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2266-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 576 </td> <td class="s"> if ( $tagname eq "" && defined $attr ) { # @attribute </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2267">2267</a> </td> <td class="c3" > 7 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2267-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 22 </td> <td class="s"> return unless exists $node->{ '-' . $attr }; </td> </tr> <tr> <td class="h" > <a name="2268">2268</a> </td> <td class="c3" > 7 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 32 </td> <td class="s"> return $node->{ '-' . $attr }; </td> </tr> <tr> <td class="h" > <a name="2269">2269</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2270">2270</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( defined $attr ) { # node@attribute </td> </tr> <tr> <td class="h" > <a name="2271">2271</a> </td> <td class="c3" > 98 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2271-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 248 </td> <td class="s"> return unless ref $node->{$tagname}; </td> </tr> <tr> <td class="h" > <a name="2272">2272</a> </td> <td class="c3" > 80 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 140 </td> <td class="s"> my $hkey = '-' . $attr; </td> </tr> <tr> <td class="h" > <a name="2273">2273</a> </td> <td class="c3" > 80 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2273-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 213 </td> <td class="s"> if ( UNIVERSAL::isa( $node->{$tagname}, 'ARRAY' )) { </td> </tr> <tr> <td class="h" > <a name="2274">2274</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $list = [ </td> </tr> <tr> <td class="h" > <a name="2275">2275</a> </td> <td class="c3" > 28 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2275-1"> 100 </a> </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2275-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 84 </td> <td class="s"> map { ref $_ && exists $_->{$hkey} ? $_->{$hkey} : undef } </td> </tr> <tr> <td class="h" > <a name="2276">2276</a> </td> <td class="c3" > 8 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 10 </td> <td class="s"> @{$node->{$tagname}} ]; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 8 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 17 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2277">2277</a> </td> <td class="c3" > 8 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2277-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 28 </td> <td class="s"> return @$list if wantarray; </td> </tr> <tr> <td class="h" > <a name="2278">2278</a> </td> <td class="c3" > 4 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 8 </td> <td class="s"> return ( grep { defined $_ } @$list )[0]; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 27 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2279">2279</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2280">2280</a> </td> <td class="c3" > 72 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2280-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 140 </td> <td class="s"> return unless exists $node->{$tagname}->{$hkey}; </td> </tr> <tr> <td class="h" > <a name="2281">2281</a> </td> <td class="c3" > 72 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 269 </td> <td class="s"> return $node->{$tagname}->{$hkey}; </td> </tr> <tr> <td class="h" > <a name="2282">2282</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2283">2283</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { # node </td> </tr> <tr> <td class="h" > <a name="2284">2284</a> </td> <td class="c3" > 99 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2284-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 375 </td> <td class="s"> return $node->{$tagname} unless ref $node->{$tagname}; </td> </tr> <tr> <td class="h" > <a name="2285">2285</a> </td> <td class="c3" > 30 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2285-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 99 </td> <td class="s"> if ( UNIVERSAL::isa( $node->{$tagname}, 'ARRAY' )) { </td> </tr> <tr> <td class="h" > <a name="2286">2286</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $list = [ </td> </tr> <tr> <td class="h" > <a name="2287">2287</a> </td> <td class="c3" > 4 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2287-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 20 </td> <td class="s"> map { ref $_ ? $_->{'#text'} : $_ } </td> </tr> <tr> <td class="h" > <a name="2288">2288</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2 </td> <td class="s"> @{$node->{$tagname}} ]; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2289">2289</a> </td> <td class="c3" > 1 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2289-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 19 </td> <td class="s"> return @$list if wantarray; </td> </tr> <tr> <td class="h" > <a name="2290">2290</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> return ( grep { defined $_ } @$list )[0]; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#2381"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2291">2291</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2292">2292</a> </td> <td class="c3" > 29 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 127 </td> <td class="s"> return $node->{$tagname}->{'#text'}; </td> </tr> <tr> <td class="h" > <a name="2293">2293</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2294">2294</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2295">2295</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2296">2296</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub get_set_array { </td> </tr> <tr> <td class="h" > <a name="2297">2297</a> </td> <td class="c3" > 153 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2297-1"> 153 </a> </td> <td >   </td> <td > 212 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="2298">2298</a> </td> <td class="c3" > 153 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 197 </td> <td class="s"> my $elem = shift; </td> </tr> <tr> <td class="h" > <a name="2299">2299</a> </td> <td class="c3" > 153 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 177 </td> <td class="s"> my $value = shift; </td> </tr> <tr> <td class="h" > <a name="2300">2300</a> </td> <td class="c3" > 153 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2300-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 323 </td> <td class="s"> if ( ref $value ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2301">2301</a> </td> <td class="c3" > 21 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 60 </td> <td class="s"> $self->{$elem} = $value; </td> </tr> <tr> <td class="h" > <a name="2302">2302</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } elsif ( defined $value ) { </td> </tr> <tr> <td class="h" > <a name="2303">2303</a> </td> <td class="c3" > 29 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2303-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 49 </td> <td class="s"> $value = [ $value, @_ ] if scalar @_; </td> </tr> <tr> <td class="h" > <a name="2304">2304</a> </td> <td class="c3" > 29 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 63 </td> <td class="s"> $self->{$elem} = $value; </td> </tr> <tr> <td class="h" > <a name="2305">2305</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } else { </td> </tr> <tr> <td class="h" > <a name="2306">2306</a> </td> <td class="c3" > 103 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 192 </td> <td class="s"> my @ret = $self->get_value($elem); </td> </tr> <tr> <td class="h" > <a name="2307">2307</a> </td> <td class="c3" > 103 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2307-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 352 </td> <td class="s"> return scalar @ret > 1 ? \@ret : $ret[0]; </td> </tr> <tr> <td class="h" > <a name="2308">2308</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2309">2309</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2310">2310</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2311">2311</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub get_or_set { </td> </tr> <tr> <td class="h" > <a name="2312">2312</a> </td> <td class="c3" > 785 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2312-1"> 785 </a> </td> <td >   </td> <td > 998 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="2313">2313</a> </td> <td class="c3" > 785 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 983 </td> <td class="s"> my $elem = shift; </td> </tr> <tr> <td class="h" > <a name="2314">2314</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return scalar @_ </td> </tr> <tr> <td class="h" > <a name="2315">2315</a> </td> <td class="c3" > 785 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2315-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 1860 </td> <td class="s"> ? $self->set_value( $elem, @_ ) </td> </tr> <tr> <td class="h" > <a name="2316">2316</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> : $self->get_value($elem); </td> </tr> <tr> <td class="h" > <a name="2317">2317</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2318">2318</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2319">2319</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub get_value { </td> </tr> <tr> <td class="h" > <a name="2320">2320</a> </td> <td class="c3" > 2059 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2320-1"> 2059 </a> </td> <td >   </td> <td > 2365 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="2321">2321</a> </td> <td class="c3" > 2059 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 2466 </td> <td class="s"> my $elem = shift; </td> </tr> <tr> <td class="h" > <a name="2322">2322</a> </td> <td class="c3" > 2059 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2322-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 3589 </td> <td class="s"> unless(exists $self->{$elem}) { </td> </tr> <tr> <td class="h" > <a name="2323">2323</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #XXX TreePP does not understand prefixes, which is usually not a </td> </tr> <tr> <td class="h" > <a name="2324">2324</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # problem because most clients break on them... "best practices" </td> </tr> <tr> <td class="h" > <a name="2325">2325</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # for feeds often explicitly state to use "the default" namespace. </td> </tr> <tr> <td class="h" > <a name="2326">2326</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # Let's try to ignore the namespace here. </td> </tr> <tr> <td class="h" > <a name="2327">2327</a> </td> <td class="c3" > 964 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 8624 </td> <td class="s"> ($elem) = grep /\:\Q$elem\E$/, keys %$self; </td> </tr> <tr> <td class="h" > <a name="2328">2328</a> </td> <td class="c3" > 964 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2328-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 3533 </td> <td class="s"> defined $elem or return; </td> </tr> <tr> <td class="h" > <a name="2329">2329</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2330">2330</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2331">2331</a> </td> <td class="c3" > 1096 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1439 </td> <td class="s"> my $value = $self->{$elem}; </td> </tr> <tr> <td class="h" > <a name="2332">2332</a> </td> <td class="c3" > 1096 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2332-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 3256 </td> <td class="s"> return $value unless ref $value; </td> </tr> <tr> <td class="h" > <a name="2333">2333</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2334">2334</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # multiple elements </td> </tr> <tr> <td class="h" > <a name="2335">2335</a> </td> <td class="c3" > 190 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2335-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 468 </td> <td class="s"> if ( UNIVERSAL::isa( $value, 'ARRAY' )) { </td> </tr> <tr> <td class="h" > <a name="2336">2336</a> </td> <td class="c3" > 42 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2336-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 89 </td> <td class="s"> if ( wantarray ) { </td> </tr> <tr> <td class="h" > <a name="2337">2337</a> </td> <td class="c3" > 39 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 68 </td> <td class="s"> return map { $self->_fetch_value($_) } @$value; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 107 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 212 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2338">2338</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } else { </td> </tr> <tr> <td class="h" > <a name="2339">2339</a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> return $self->_fetch_value($value->[0]); </td> </tr> <tr> <td class="h" > <a name="2340">2340</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2341">2341</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2342">2342</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2343">2343</a> </td> <td class="c3" > 148 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 399 </td> <td class="s"> return $self->_fetch_value($value); </td> </tr> <tr> <td class="h" > <a name="2344">2344</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2345">2345</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2346">2346</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub _fetch_value { </td> </tr> <tr> <td class="h" > <a name="2347">2347</a> </td> <td class="c3" > 395 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2347-1"> 395 </a> </td> <td >   </td> <td > 481 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="2348">2348</a> </td> <td class="c3" > 395 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 431 </td> <td class="s"> my $value = shift; </td> </tr> <tr> <td class="h" > <a name="2349">2349</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2350">2350</a> </td> <td class="c3" > 395 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2350-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 944 </td> <td class="s"> if ( UNIVERSAL::isa( $value, 'HASH' )) { </td> </tr> <tr> <td class="h" > <a name="2351">2351</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # text node of an element with attributes </td> </tr> <tr> <td class="h" > <a name="2352">2352</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return defined $value->{'#text'} </td> </tr> <tr> <td class="h" > <a name="2353">2353</a> </td> <td class="c3" > 143 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2353-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 408 </td> <td class="s"> ? $self->_fetch_value($value->{'#text'}) </td> </tr> <tr> <td class="h" > <a name="2354">2354</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> : ''; </td> </tr> <tr> <td class="h" > <a name="2355">2355</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2356">2356</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2357">2357</a> </td> <td class="c3" > 252 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2357-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 566 </td> <td class="s"> if ( UNIVERSAL::isa( $value, 'SCALAR' )) { </td> </tr> <tr> <td class="h" > <a name="2358">2358</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # CDATA section as a scalar reference </td> </tr> <tr> <td class="h" > <a name="2359">2359</a> </td> <td class="c3" > 27 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 109 </td> <td class="s"> return $$value; </td> </tr> <tr> <td class="h" > <a name="2360">2360</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2361">2361</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2362">2362</a> </td> <td class="c3" > 225 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 655 </td> <td class="s"> return $value; </td> </tr> <tr> <td class="h" > <a name="2363">2363</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2364">2364</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2365">2365</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub set_value { </td> </tr> <tr> <td class="h" > <a name="2366">2366</a> </td> <td class="c3" > 839 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2366-1"> 839 </a> </td> <td >   </td> <td > 1014 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="2367">2367</a> </td> <td class="c3" > 839 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 910 </td> <td class="s"> my $elem = shift; </td> </tr> <tr> <td class="h" > <a name="2368">2368</a> </td> <td class="c3" > 839 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 935 </td> <td class="s"> my $text = shift; </td> </tr> <tr> <td class="h" > <a name="2369">2369</a> </td> <td class="c3" > 839 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1059 </td> <td class="s"> my $attr = \@_; </td> </tr> <tr> <td class="h" > <a name="2370">2370</a> </td> <td class="c3" > 839 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2370-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 2631 </td> <td class="s"> if ( UNIVERSAL::isa( $self->{$elem}, 'HASH' )) { </td> </tr> <tr> <td class="h" > <a name="2371">2371</a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 53 </td> <td class="s"> $self->{$elem}->{'#text'} = $text; </td> </tr> <tr> <td class="h" > <a name="2372">2372</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2373">2373</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="2374">2374</a> </td> <td class="c3" > 824 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1326 </td> <td class="s"> $self->{$elem} = $text; </td> </tr> <tr> <td class="h" > <a name="2375">2375</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2376">2376</a> </td> <td class="c3" > 839 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2376-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 1982 </td> <td class="s"> $self->set_attr( $elem, @$attr ) if scalar @$attr; </td> </tr> <tr> <td class="h" > <a name="2377">2377</a> </td> <td class="c3" > 839 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1511 </td> <td class="s"> undef; </td> </tr> <tr> <td class="h" > <a name="2378">2378</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2379">2379</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2380">2380</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub get_attr { </td> </tr> <tr> <td class="h" > <a name="2381">2381</a> </td> <td class="c0" > <a href="#2382"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2381-1"> 0 </a> </td> <td >   </td> <td > 0 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="2382">2382</a> </td> <td class="c0" > <a href="#2383"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my $elem = shift; </td> </tr> <tr> <td class="h" > <a name="2383">2383</a> </td> <td class="c0" > <a href="#2384"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> my $key = shift; </td> </tr> <tr> <td class="h" > <a name="2384">2384</a> </td> <td class="c0" > <a href="#2385"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2384-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> return unless exists $self->{$elem}; </td> </tr> <tr> <td class="h" > <a name="2385">2385</a> </td> <td class="c0" > <a href="#2386"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2385-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> return unless ref $self->{$elem}; </td> </tr> <tr> <td class="h" > <a name="2386">2386</a> </td> <td class="c0" > <a href="#2387"> 0 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2386-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> return unless exists $self->{$elem}->{ '-' . $key }; </td> </tr> <tr> <td class="h" > <a name="2387">2387</a> </td> <td class="c0" > <a href="#2402"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $self->{$elem}->{ '-' . $key }; </td> </tr> <tr> <td class="h" > <a name="2388">2388</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2389">2389</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2390">2390</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub set_attr { </td> </tr> <tr> <td class="h" > <a name="2391">2391</a> </td> <td class="c3" > 160 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2391-1"> 160 </a> </td> <td >   </td> <td > 205 </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="2392">2392</a> </td> <td class="c3" > 160 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 194 </td> <td class="s"> my $elem = shift; </td> </tr> <tr> <td class="h" > <a name="2393">2393</a> </td> <td class="c3" > 160 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 642 </td> <td class="s"> my $attr = \@_; </td> </tr> <tr> <td class="h" > <a name="2394">2394</a> </td> <td class="c3" > 160 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2394-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 304 </td> <td class="s"> if ( defined $self->{$elem} ) { </td> </tr> <tr> <td class="h" > <a name="2395">2395</a> </td> <td class="c3" > 160 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 250 </td> <td class="s"> my $scalar = ref $self->{$elem}; </td> </tr> <tr> <td class="h" > <a name="2396">2396</a> </td> <td class="c3" > 160 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2396-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 333 </td> <td class="s"> $scalar = undef if ($scalar eq 'SCALAR'); </td> </tr> <tr> <td class="h" > <a name="2397">2397</a> </td> <td class="c3" > 160 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2397-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 296 </td> <td class="s"> if (! $scalar) { </td> </tr> <tr> <td class="h" > <a name="2398">2398</a> </td> <td class="c3" > 145 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 358 </td> <td class="s"> $self->{$elem} = { '#text' => $self->{$elem} }; </td> </tr> <tr> <td class="h" > <a name="2399">2399</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2400">2400</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2401">2401</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="2402">2402</a> </td> <td class="c0" > <a href="#2412"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> $self->{$elem} = {}; </td> </tr> <tr> <td class="h" > <a name="2403">2403</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2404">2404</a> </td> <td class="c3" > 160 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 336 </td> <td class="s"> while ( scalar @$attr ) { </td> </tr> <tr> <td class="h" > <a name="2405">2405</a> </td> <td class="c3" > 175 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 272 </td> <td class="s"> my $key = shift @$attr; </td> </tr> <tr> <td class="h" > <a name="2406">2406</a> </td> <td class="c3" > 175 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 241 </td> <td class="s"> my $val = shift @$attr; </td> </tr> <tr> <td class="h" > <a name="2407">2407</a> </td> <td class="c3" > 175 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2407-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 297 </td> <td class="s"> if ( defined $val ) { </td> </tr> <tr> <td class="h" > <a name="2408">2408</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # $val = $$val if (ref $val eq 'SCALAR'); </td> </tr> <tr> <td class="h" > <a name="2409">2409</a> </td> <td class="c3" > 175 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 546 </td> <td class="s"> $self->{$elem}->{ '-' . $key } = $val; </td> </tr> <tr> <td class="h" > <a name="2410">2410</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2411">2411</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="2412">2412</a> </td> <td class="c0" > <a href="#2563"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> delete $self->{$elem}->{ '-' . $key }; </td> </tr> <tr> <td class="h" > <a name="2413">2413</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2414">2414</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2415">2415</a> </td> <td class="c3" > 160 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 224 </td> <td class="s"> undef; </td> </tr> <tr> <td class="h" > <a name="2416">2416</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2417">2417</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2418">2418</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ---------------------------------------------------------------- </td> </tr> <tr> <td class="h" > <a name="2419">2419</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> package XML::FeedPP::Util; </td> </tr> <tr> <td class="h" > <a name="2420">2420</a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2420-1"> 44 </a> </td> <td >   </td> <td > 286 </td> <td class="s"> use strict; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 100 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 44 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 58728 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2421">2421</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2422">2422</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my ( @DoW, @MoY, %MoY ); </td> </tr> <tr> <td class="h" > <a name="2423">2423</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> @DoW = qw(Sun Mon Tue Wed Thu Fri Sat); </td> </tr> <tr> <td class="h" > <a name="2424">2424</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> @MoY = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec); </td> </tr> <tr> <td class="h" > <a name="2425">2425</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> @MoY{ map { uc($_) } @MoY } = ( 1 .. 12 ); </td> </tr> <tr> <td class="h" > <a name="2426">2426</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $tz_now = time(); </td> </tr> <tr> <td class="h" > <a name="2427">2427</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $tz_offset = Time::Local::timegm( localtime($tz_now) ) - </td> </tr> <tr> <td class="h" > <a name="2428">2428</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> Time::Local::timegm( gmtime($tz_now) ); </td> </tr> <tr> <td class="h" > <a name="2429">2429</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $tz_hour = int( $tz_offset / 3600 ); </td> </tr> <tr> <td class="h" > <a name="2430">2430</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $tz_min = int( $tz_offset / 60 ) % 60; </td> </tr> <tr> <td class="h" > <a name="2431">2431</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $rfc1123_regexp = qr{ </td> </tr> <tr> <td class="h" > <a name="2432">2432</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ^(?:[A-Za-z]+,\s*)? (\d+)\s+ ([A-Za-z]+)\s+ (\d+)\s+ </td> </tr> <tr> <td class="h" > <a name="2433">2433</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> (\d+):(\d+)(?::(\d+)(?:\.\d*)?)?\s* </td> </tr> <tr> <td class="h" > <a name="2434">2434</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ([\+\-]\d+:?\d{2} | [ECMP][DS]T )? </td> </tr> <tr> <td class="h" > <a name="2435">2435</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> }xi; </td> </tr> <tr> <td class="h" > <a name="2436">2436</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $w3cdtf_regexp = qr{ </td> </tr> <tr> <td class="h" > <a name="2437">2437</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ^(\d+)-(\d+)-(\d+) </td> </tr> <tr> <td class="h" > <a name="2438">2438</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> (?:T(\d+):(\d+)(?::(\d+)(?:\.\d*)?\:?)?\s* </td> </tr> <tr> <td class="h" > <a name="2439">2439</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ([\+\-]\d+:?\d{2})?|$) </td> </tr> <tr> <td class="h" > <a name="2440">2440</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> }x; </td> </tr> <tr> <td class="h" > <a name="2441">2441</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $tzmap = {qw( </td> </tr> <tr> <td class="h" > <a name="2442">2442</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> EDT -4 EST -5 CDT -5 CST -6 </td> </tr> <tr> <td class="h" > <a name="2443">2443</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> MDT -6 MST -7 PDT -7 PST -8 </td> </tr> <tr> <td class="h" > <a name="2444">2444</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> )}; </td> </tr> <tr> <td class="h" > <a name="2445">2445</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2446">2446</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub epoch_to_w3cdtf { </td> </tr> <tr> <td class="h" > <a name="2447">2447</a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2447-1"> 15 </a> </td> <td >   </td> <td > 992 </td> <td class="s"> my $epoch = shift; </td> </tr> <tr> <td class="h" > <a name="2448">2448</a> </td> <td class="c3" > 15 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2448-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 28 </td> <td class="s"> return unless defined $epoch; </td> </tr> <tr> <td class="h" > <a name="2449">2449</a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 64 </td> <td class="s"> my ( $sec, $min, $hour, $day, $mon, $year ) = gmtime($epoch+$tz_offset); </td> </tr> <tr> <td class="h" > <a name="2450">2450</a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 24 </td> <td class="s"> $year += 1900; </td> </tr> <tr> <td class="h" > <a name="2451">2451</a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 18 </td> <td class="s"> $mon++; </td> </tr> <tr> <td class="h" > <a name="2452">2452</a> </td> <td class="c3" > 15 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2452-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 27 </td> <td class="s"> my $tz = $tz_offset ? sprintf( '%+03d:%02d', $tz_hour, $tz_min ) : 'Z'; </td> </tr> <tr> <td class="h" > <a name="2453">2453</a> </td> <td class="c3" > 15 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 64 </td> <td class="s"> sprintf( '%04d-%02d-%02dT%02d:%02d:%02d%s', </td> </tr> <tr> <td class="h" > <a name="2454">2454</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $year, $mon, $day, $hour, $min, $sec, $tz ); </td> </tr> <tr> <td class="h" > <a name="2455">2455</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2456">2456</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2457">2457</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub epoch_to_rfc1123 { </td> </tr> <tr> <td class="h" > <a name="2458">2458</a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2458-1"> 12 </a> </td> <td >   </td> <td > 1439 </td> <td class="s"> my $epoch = shift; </td> </tr> <tr> <td class="h" > <a name="2459">2459</a> </td> <td class="c3" > 12 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2459-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 20 </td> <td class="s"> return unless defined $epoch; </td> </tr> <tr> <td class="h" > <a name="2460">2460</a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 53 </td> <td class="s"> my ( $sec, $min, $hour, $mday, $mon, $year, $wday ) = gmtime($epoch+$tz_offset); </td> </tr> <tr> <td class="h" > <a name="2461">2461</a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 22 </td> <td class="s"> $year += 1900; </td> </tr> <tr> <td class="h" > <a name="2462">2462</a> </td> <td class="c3" > 12 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2462-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 22 </td> <td class="s"> my $tz = $tz_offset ? sprintf( '%+03d%02d', $tz_hour, $tz_min ) : 'GMT'; </td> </tr> <tr> <td class="h" > <a name="2463">2463</a> </td> <td class="c3" > 12 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 64 </td> <td class="s"> sprintf( '%s, %02d %s %04d %02d:%02d:%02d %s', </td> </tr> <tr> <td class="h" > <a name="2464">2464</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $DoW[$wday], $mday, $MoY[$mon], $year, $hour, $min, $sec, $tz ); </td> </tr> <tr> <td class="h" > <a name="2465">2465</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2466">2466</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2467">2467</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub rfc1123_to_w3cdtf { </td> </tr> <tr> <td class="h" > <a name="2468">2468</a> </td> <td class="c3" > 101 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2468-1"> 101 </a> </td> <td >   </td> <td > 8570 </td> <td class="s"> my $str = shift; </td> </tr> <tr> <td class="h" > <a name="2469">2469</a> </td> <td class="c3" > 101 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2469-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 195 </td> <td class="s"> return unless defined $str; </td> </tr> <tr> <td class="h" > <a name="2470">2470</a> </td> <td class="c3" > 101 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 819 </td> <td class="s"> my ( $mday, $mon, $year, $hour, $min, $sec, $tz ) = ( $str =~ $rfc1123_regexp ); </td> </tr> <tr> <td class="h" > <a name="2471">2471</a> </td> <td class="c3" > 101 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2471-1"> 50 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2471-1"> 33 </a> </td> <td >   </td> <td >   </td> <td > 520 </td> <td class="s"> return unless ( $year && $mon && $mday ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#-2"> 33 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2472">2472</a> </td> <td class="c3" > 101 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2472-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 269 </td> <td class="s"> $year += 2000 if $year < 77; </td> </tr> <tr> <td class="h" > <a name="2473">2473</a> </td> <td class="c3" > 101 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2473-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 184 </td> <td class="s"> $year += 1900 if $year < 100; </td> </tr> <tr> <td class="h" > <a name="2474">2474</a> </td> <td class="c3" > 101 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2474-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 266 </td> <td class="s"> $mon = $MoY{ uc($mon) } or return; </td> </tr> <tr> <td class="h" > <a name="2475">2475</a> </td> <td class="c3" > 101 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2475-1"> 100 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2475-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 387 </td> <td class="s"> if ( defined $tz && $tz ne '' && $tz ne 'GMT' ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#-2"> 66 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2476">2476</a> </td> <td class="c3" > 64 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 121 </td> <td class="s"> my $off = &get_tz_offset($tz) / 60; </td> </tr> <tr> <td class="h" > <a name="2477">2477</a> </td> <td class="c3" > 64 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 279 </td> <td class="s"> $tz = sprintf( '%+03d:%02d', $off/60, $off%60 ); </td> </tr> <tr> <td class="h" > <a name="2478">2478</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2479">2479</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="2480">2480</a> </td> <td class="c3" > 37 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 70 </td> <td class="s"> $tz = 'Z'; </td> </tr> <tr> <td class="h" > <a name="2481">2481</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2482">2482</a> </td> <td class="c3" > 101 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 609 </td> <td class="s"> sprintf( '%04d-%02d-%02dT%02d:%02d:%02d%s', </td> </tr> <tr> <td class="h" > <a name="2483">2483</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $year, $mon, $mday, $hour, $min, $sec, $tz ); </td> </tr> <tr> <td class="h" > <a name="2484">2484</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2485">2485</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2486">2486</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub w3cdtf_to_rfc1123 { </td> </tr> <tr> <td class="h" > <a name="2487">2487</a> </td> <td class="c3" > 51 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2487-1"> 51 </a> </td> <td >   </td> <td > 69 </td> <td class="s"> my $str = shift; </td> </tr> <tr> <td class="h" > <a name="2488">2488</a> </td> <td class="c3" > 51 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2488-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 103 </td> <td class="s"> return unless defined $str; </td> </tr> <tr> <td class="h" > <a name="2489">2489</a> </td> <td class="c3" > 51 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 334 </td> <td class="s"> my ( $year, $mon, $mday, $hour, $min, $sec, $tz ) = ( $str =~ $w3cdtf_regexp ); </td> </tr> <tr> <td class="h" > <a name="2490">2490</a> </td> <td class="c3" > 51 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2490-1"> 50 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2490-1"> 33 </a> </td> <td >   </td> <td >   </td> <td > 335 </td> <td class="s"> return unless ( $year > 1900 && $mon && $mday ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#-2"> 33 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2491">2491</a> </td> <td class="c3" > 51 </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2491-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 125 </td> <td class="s"> $hour ||= 0; </td> </tr> <tr> <td class="h" > <a name="2492">2492</a> </td> <td class="c3" > 51 </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2492-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 84 </td> <td class="s"> $min ||= 0; </td> </tr> <tr> <td class="h" > <a name="2493">2493</a> </td> <td class="c3" > 51 </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2493-1"> 100 </a> </td> <td >   </td> <td >   </td> <td > 93 </td> <td class="s"> $sec ||= 0; </td> </tr> <tr> <td class="h" > <a name="2494">2494</a> </td> <td class="c3" > 51 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2494-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 74 </td> <td class="s"> my $epoch = eval { Time::Local::timegm( $sec, $min, $hour, $mday, $mon-1, $year ) } </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 51 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 169 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2495">2495</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> or return; </td> </tr> <tr> <td class="h" > <a name="2496">2496</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2497">2497</a> </td> <td class="c3" > 51 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1659 </td> <td class="s"> my $wday = ( gmtime($epoch) )[6]; </td> </tr> <tr> <td class="h" > <a name="2498">2498</a> </td> <td class="c3" > 51 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2498-1"> 100 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2498-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 232 </td> <td class="s"> if ( defined $tz && $tz ne '' && $tz ne 'Z' ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#-2"> 66 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2499">2499</a> </td> <td class="c3" > 35 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 79 </td> <td class="s"> my $off = &get_tz_offset($tz) / 60; </td> </tr> <tr> <td class="h" > <a name="2500">2500</a> </td> <td class="c3" > 35 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 148 </td> <td class="s"> $tz = sprintf( '%+03d%02d', $off/60, $off%60 ); </td> </tr> <tr> <td class="h" > <a name="2501">2501</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2502">2502</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="2503">2503</a> </td> <td class="c3" > 16 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 29 </td> <td class="s"> $tz = 'GMT'; </td> </tr> <tr> <td class="h" > <a name="2504">2504</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2505">2505</a> </td> <td class="c3" > 51 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 387 </td> <td class="s"> sprintf( </td> </tr> <tr> <td class="h" > <a name="2506">2506</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> '%s, %02d %s %04d %02d:%02d:%02d %s', </td> </tr> <tr> <td class="h" > <a name="2507">2507</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $DoW[$wday], $mday, $MoY[ $mon - 1 ], $year, $hour, $min, $sec, $tz </td> </tr> <tr> <td class="h" > <a name="2508">2508</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="2509">2509</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2510">2510</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2511">2511</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub rfc1123_to_epoch { </td> </tr> <tr> <td class="h" > <a name="2512">2512</a> </td> <td class="c3" > 52 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2512-1"> 52 </a> </td> <td >   </td> <td > 5672 </td> <td class="s"> my $str = shift; </td> </tr> <tr> <td class="h" > <a name="2513">2513</a> </td> <td class="c3" > 52 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2513-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 104 </td> <td class="s"> return unless defined $str; </td> </tr> <tr> <td class="h" > <a name="2514">2514</a> </td> <td class="c3" > 52 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 436 </td> <td class="s"> my ( $mday, $mon, $year, $hour, $min, $sec, $tz ) = ( $str =~ $rfc1123_regexp ); </td> </tr> <tr> <td class="h" > <a name="2515">2515</a> </td> <td class="c3" > 52 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2515-1"> 50 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2515-1"> 33 </a> </td> <td >   </td> <td >   </td> <td > 246 </td> <td class="s"> return unless ( $year && $mon && $mday ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#-2"> 33 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2516">2516</a> </td> <td class="c3" > 52 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2516-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 122 </td> <td class="s"> $year += 2000 if $year < 77; </td> </tr> <tr> <td class="h" > <a name="2517">2517</a> </td> <td class="c3" > 52 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2517-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 83 </td> <td class="s"> $year += 1900 if $year < 100; </td> </tr> <tr> <td class="h" > <a name="2518">2518</a> </td> <td class="c3" > 52 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2518-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 136 </td> <td class="s"> $mon = $MoY{ uc($mon) } or return; </td> </tr> <tr> <td class="h" > <a name="2519">2519</a> </td> <td class="c3" > 52 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2519-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 64 </td> <td class="s"> my $epoch = eval { Time::Local::timegm( $sec, $min, $hour, $mday, $mon-1, $year ) } </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 52 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 122 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2520">2520</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> or return; </td> </tr> <tr> <td class="h" > <a name="2521">2521</a> </td> <td class="c3" > 52 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1205 </td> <td class="s"> $epoch -= &get_tz_offset( $tz ); </td> </tr> <tr> <td class="h" > <a name="2522">2522</a> </td> <td class="c3" > 52 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 123 </td> <td class="s"> $epoch; </td> </tr> <tr> <td class="h" > <a name="2523">2523</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2524">2524</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2525">2525</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub w3cdtf_to_epoch { </td> </tr> <tr> <td class="h" > <a name="2526">2526</a> </td> <td class="c3" > 73 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2526-1"> 73 </a> </td> <td >   </td> <td > 1648 </td> <td class="s"> my $str = shift; </td> </tr> <tr> <td class="h" > <a name="2527">2527</a> </td> <td class="c3" > 73 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2527-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 124 </td> <td class="s"> return unless defined $str; </td> </tr> <tr> <td class="h" > <a name="2528">2528</a> </td> <td class="c3" > 73 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 423 </td> <td class="s"> my ( $year, $mon, $mday, $hour, $min, $sec, $tz ) = ( $str =~ $w3cdtf_regexp ); </td> </tr> <tr> <td class="h" > <a name="2529">2529</a> </td> <td class="c3" > 73 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2529-1"> 50 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2529-1"> 33 </a> </td> <td >   </td> <td >   </td> <td > 335 </td> <td class="s"> return unless ( $year > 1900 && $mon && $mday ); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#-2"> 33 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2530">2530</a> </td> <td class="c3" > 73 </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2530-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 141 </td> <td class="s"> $hour ||= 0; </td> </tr> <tr> <td class="h" > <a name="2531">2531</a> </td> <td class="c3" > 73 </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2531-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 114 </td> <td class="s"> $min ||= 0; </td> </tr> <tr> <td class="h" > <a name="2532">2532</a> </td> <td class="c3" > 73 </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2532-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 105 </td> <td class="s"> $sec ||= 0; </td> </tr> <tr> <td class="h" > <a name="2533">2533</a> </td> <td class="c3" > 73 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2533-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 84 </td> <td class="s"> my $epoch = eval { Time::Local::timegm( $sec, $min, $hour, $mday, $mon-1, $year ) } </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c3" > 73 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 195 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2534">2534</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> or return; </td> </tr> <tr> <td class="h" > <a name="2535">2535</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2536">2536</a> </td> <td class="c3" > 73 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 1645 </td> <td class="s"> $epoch -= &get_tz_offset( $tz ); </td> </tr> <tr> <td class="h" > <a name="2537">2537</a> </td> <td class="c3" > 73 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 243 </td> <td class="s"> $epoch; </td> </tr> <tr> <td class="h" > <a name="2538">2538</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2539">2539</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2540">2540</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub get_tz_offset { </td> </tr> <tr> <td class="h" > <a name="2541">2541</a> </td> <td class="c3" > 224 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2541-1"> 224 </a> </td> <td >   </td> <td > 303 </td> <td class="s"> my $tz = shift; </td> </tr> <tr> <td class="h" > <a name="2542">2542</a> </td> <td class="c3" > 224 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2542-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 382 </td> <td class="s"> return 0 unless defined $tz; </td> </tr> <tr> <td class="h" > <a name="2543">2543</a> </td> <td class="c3" > 166 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2543-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 330 </td> <td class="s"> return $tzmap->{$tz}*60*60 if exists $tzmap->{$tz}; </td> </tr> <tr> <td class="h" > <a name="2544">2544</a> </td> <td class="c3" > 158 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2544-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 585 </td> <td class="s"> return 0 unless( $tz =~ m/^([\+\-]?)(\d+):?(\d{2})$/ ); </td> </tr> <tr> <td class="h" > <a name="2545">2545</a> </td> <td class="c3" > 158 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 474 </td> <td class="s"> my( $pm, $ho, $mi ) = ( $1, $2, $3 ); </td> </tr> <tr> <td class="h" > <a name="2546">2546</a> </td> <td class="c3" > 158 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 301 </td> <td class="s"> my $off = $ho * 60 + $mi; </td> </tr> <tr> <td class="h" > <a name="2547">2547</a> </td> <td class="c3" > 158 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2547-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 303 </td> <td class="s"> $off *= ( $pm eq "-" ) ? -60 : 60; </td> </tr> <tr> <td class="h" > <a name="2548">2548</a> </td> <td class="c3" > 158 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 284 </td> <td class="s"> $off; </td> </tr> <tr> <td class="h" > <a name="2549">2549</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2550">2550</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2551">2551</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub get_w3cdtf { </td> </tr> <tr> <td class="h" > <a name="2552">2552</a> </td> <td class="c3" > 218 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2552-1"> 218 </a> </td> <td >   </td> <td > 1901 </td> <td class="s"> my $date = shift; </td> </tr> <tr> <td class="h" > <a name="2553">2553</a> </td> <td class="c3" > 218 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2553-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 386 </td> <td class="s"> return unless defined $date; </td> </tr> <tr> <td class="h" > <a name="2554">2554</a> </td> <td class="c3" > 181 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2554-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 1932 </td> <td class="s"> if ( $date =~ /^\d+$/s ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-3"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2555">2555</a> </td> <td class="c3" > 6 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 13 </td> <td class="s"> return &epoch_to_w3cdtf($date); </td> </tr> <tr> <td class="h" > <a name="2556">2556</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2557">2557</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( $date =~ $rfc1123_regexp ) { </td> </tr> <tr> <td class="h" > <a name="2558">2558</a> </td> <td class="c3" > 81 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 185 </td> <td class="s"> return &rfc1123_to_w3cdtf($date); </td> </tr> <tr> <td class="h" > <a name="2559">2559</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2560">2560</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( $date =~ $w3cdtf_regexp ) { </td> </tr> <tr> <td class="h" > <a name="2561">2561</a> </td> <td class="c3" > 94 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 178 </td> <td class="s"> return $date; </td> </tr> <tr> <td class="h" > <a name="2562">2562</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2563">2563</a> </td> <td class="c0" > <a href="#2578"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> undef; </td> </tr> <tr> <td class="h" > <a name="2564">2564</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2565">2565</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2566">2566</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub get_rfc1123 { </td> </tr> <tr> <td class="h" > <a name="2567">2567</a> </td> <td class="c3" > 96 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2567-1"> 96 </a> </td> <td >   </td> <td > 1715 </td> <td class="s"> my $date = shift; </td> </tr> <tr> <td class="h" > <a name="2568">2568</a> </td> <td class="c3" > 96 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2568-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 167 </td> <td class="s"> return unless defined $date; </td> </tr> <tr> <td class="h" > <a name="2569">2569</a> </td> <td class="c3" > 96 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2569-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 1085 </td> <td class="s"> if ( $date =~ /^\d+$/s ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-3"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2570">2570</a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 10 </td> <td class="s"> return &epoch_to_rfc1123($date); </td> </tr> <tr> <td class="h" > <a name="2571">2571</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2572">2572</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( $date =~ $rfc1123_regexp ) { </td> </tr> <tr> <td class="h" > <a name="2573">2573</a> </td> <td class="c3" > 42 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 108 </td> <td class="s"> return $date; </td> </tr> <tr> <td class="h" > <a name="2574">2574</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2575">2575</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( $date =~ $w3cdtf_regexp ) { </td> </tr> <tr> <td class="h" > <a name="2576">2576</a> </td> <td class="c3" > 51 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 137 </td> <td class="s"> return &w3cdtf_to_rfc1123($date); </td> </tr> <tr> <td class="h" > <a name="2577">2577</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2578">2578</a> </td> <td class="c0" > <a href="#2585"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> undef; </td> </tr> <tr> <td class="h" > <a name="2579">2579</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2580">2580</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2581">2581</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub get_epoch { </td> </tr> <tr> <td class="h" > <a name="2582">2582</a> </td> <td class="c3" > 129 </td> <td >   </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2582-1"> 129 </a> </td> <td >   </td> <td > 165 </td> <td class="s"> my $date = shift; </td> </tr> <tr> <td class="h" > <a name="2583">2583</a> </td> <td class="c3" > 129 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2583-1"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 287 </td> <td class="s"> return unless defined $date; </td> </tr> <tr> <td class="h" > <a name="2584">2584</a> </td> <td class="c3" > 97 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2584-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 882 </td> <td class="s"> if ( $date =~ /^\d+$/s ) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-2"> 100 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#-3"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2585">2585</a> </td> <td class="c0" > <a href="#2593"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> return $date; </td> </tr> <tr> <td class="h" > <a name="2586">2586</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2587">2587</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( $date =~ $rfc1123_regexp ) { </td> </tr> <tr> <td class="h" > <a name="2588">2588</a> </td> <td class="c3" > 33 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 77 </td> <td class="s"> return &rfc1123_to_epoch($date); </td> </tr> <tr> <td class="h" > <a name="2589">2589</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2590">2590</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ( $date =~ $w3cdtf_regexp ) { </td> </tr> <tr> <td class="h" > <a name="2591">2591</a> </td> <td class="c3" > 64 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 113 </td> <td class="s"> return &w3cdtf_to_epoch($date); </td> </tr> <tr> <td class="h" > <a name="2592">2592</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2593">2593</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s"> undef; </td> </tr> <tr> <td class="h" > <a name="2594">2594</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2595">2595</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2596">2596</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub merge_hash { </td> </tr> <tr> <td class="h" > <a name="2597">2597</a> </td> <td class="c3" > 3 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2597-1"> 50 </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2597-1"> 3 </a> </td> <td >   </td> <td > 11 </td> <td class="s"> my $base = shift or return; </td> </tr> <tr> <td class="h" > <a name="2598">2598</a> </td> <td class="c3" > 3 </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2598-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 10 </td> <td class="s"> my $merge = shift or return; </td> </tr> <tr> <td class="h" > <a name="2599">2599</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2600">2600</a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> my %exclude = map { $_ => 1 } @_; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > 0 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 0 </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2601">2601</a> </td> <td class="c3" > 3 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 15 </td> <td class="s"> foreach my $key ( keys %$merge ) { </td> </tr> <tr> <td class="h" > <a name="2602">2602</a> </td> <td class="c3" > 31 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2602-1"> 100 </a> </td> <td class="c0" > <a href="blib-lib-XML-FeedPP-pm--condition.html#2602-1"> 66 </a> </td> <td >   </td> <td >   </td> <td > 116 </td> <td class="s"> next if $exclude{$key} || exists $base->{$key}; </td> </tr> <tr> <td class="h" > <a name="2603">2603</a> </td> <td class="c3" > 25 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 60 </td> <td class="s"> $base->{$key} = $merge->{$key}; </td> </tr> <tr> <td class="h" > <a name="2604">2604</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2605">2605</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2606">2606</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2607">2607</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub param_even_odd { </td> </tr> <tr> <td class="h" > <a name="2608">2608</a> </td> <td class="c3" > 556 </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--branch.html#2608-1"> 100 </a> </td> <td >   </td> <td class="c3" > <a href="blib-lib-XML-FeedPP-pm--subroutine.html#2608-1"> 556 </a> </td> <td >   </td> <td > 1288 </td> <td class="s"> if ( (scalar @_) % 2 == 0 ) { </td> </tr> <tr> <td class="h" > <a name="2609">2609</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # even num of args - new( key1 => val1, key2 => arg2 ); </td> </tr> <tr> <td class="h" > <a name="2610">2610</a> </td> <td class="c3" > 216 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 362 </td> <td class="s"> my $array = [ @_ ]; </td> </tr> <tr> <td class="h" > <a name="2611">2611</a> </td> <td class="c3" > 216 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 509 </td> <td class="s"> return $array; </td> </tr> <tr> <td class="h" > <a name="2612">2612</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2613">2613</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="2614">2614</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # odd num of args - new( first, key1 => val1, key2 => arg2 ); </td> </tr> <tr> <td class="h" > <a name="2615">2615</a> </td> <td class="c3" > 340 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 801 </td> <td class="s"> return ( undef, @_ ); </td> </tr> <tr> <td class="h" > <a name="2616">2616</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2617">2617</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="2618">2618</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="2619">2619</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ---------------------------------------------------------------- </td> </tr> <tr> <td class="h" > <a name="2620">2620</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> 1; </td> </tr> <tr> <td class="h" > <a name="2621">2621</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # ---------------------------------------------------------------- </td> </tr> </table> </body> </html>