shlomif / perl-xml-rss Goto Github PK

package XML::RSS;
$XML::RSS::VERSION = '1.62';
...
$VERSION = '1.59';

<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom" xmlns:torznab="http://torznab.com/schemas/2015/feed">
  <channel>
    <title>Channel Title</title>
    <description>Channel Description</description>
    <link>http://example.com/</link>
    <language>en-US</language>
    <category>search</category>
    <item>
      <title>Candle.Cove.S01E01.720p</title>
      <category>100041</category>
      <category>5040</category>
      <description>Candle Cove, Season One, Episode One. The gang flail and scream while Janice cries.</description>
      <enclosure url="https://example.com/path/to/7585482b-2c10-4346-9075-fd3b586eaf16" length="72351744" type="application/x-bittorrent" />
      <guid>https://example.com/path/to/7585482b-2c10-4346-9075-fd3b586eaf16</guid>
      <link>https://example.com/path/to/7585482b-2c10-4346-9075-fd3b586eaf16</link>
      <pubDate>Sat, 19 Dec 2022 23:59:59 +1000</pubDate>
      <size>72351744</size>
      <torznab:attr name="peers" value="333" />
      <torznab:attr name="seeders" value="999" />
      <type>public</type>
    </item>
  </channel>
</rss>

use v5.10;
use XML::RSS;
use Data::Dumper;
my $rss = XML::RSS->new();
$rss->parsefile( 'torznab-example.xml',
    { allow_multiple => ['attr'] } );
say Dumper( $rss->{items}->[0] );

      <torznab:attr name="peers" value="333" />
      <torznab:attr name="seeders" value="999" />

use v5.10;
use XML::RSS;
use Data::Dumper;
my $rss = XML::RSS->new();
$rss->parsefile(
    '/Users/john/Library/Scripts/torznab-example.xml',
    { allow_multiple => ['attr'], allow_empty => ['attr'] } 
); ### `allow_empty` argument
say Dumper( $rss->{items}->[0] );

  'http://torznab.com/schemas/2015/feed' => {
    'attr' => [
      {
        'name' => 'peers',
        'value' => '333'
      },
      {
        'value' => '999',
        'name' => 'seeders'
      }
    ]
  },

Don't know how to handle module data of type ! at /usr/local/share/perl5/XML/RSS/Private/Output/Base.pm line 760, <DATA> line 1.