File Coverage

blib/lib/XML/RSS/Parser/Feed.pm

Criterion	Covered	Total	%
statement	28	37	75.6
branch	3	4	75.0
condition	1	2	50.0
subroutine	9	15	60.0
pod	8	11	72.7
total	49	69	71.0

package XML::RSS::Parser::Feed;

use strict;
use base qw(XML::Elemental::Document);

use XML::Elemental::Util qw(process_name);
use XML::RSS::Parser::Util;

sub new {
    my $class = shift;
    my $self  = $class->SUPER::new(@_);
    $self->{rss_namespace_uri} = '';
    $self;
}

# Very loose determination of the RSS namespace (if any). Goes to the
# first child of the root element (most likely the channel) and extracts
# its namespace URI. We don't use the root element because in RSS 1.0
# the root element is not in the RSS (default) namespace.
sub find_rss_namespace {
    my $doc  = shift;
    my $root = $doc->contents->[0];
    foreach my $node (@{$root->contents}) {
        if (ref($node) eq 'XML::RSS::Parser::Element') {
            my ($n, $ns) = process_name($node->name);
            $doc->{rss_namespace_uri} = $ns || '';
            return $doc->{rss_namespace_uri};
        }
    }
    return '';
}

sub rss_namespace_uri {
    $_[0]->{rss_namespace_uri} = $_[1] if defined $_[1];
    $_[0]->{rss_namespace_uri};
}

# sub name { 'rss' }
sub query      { $_[0]->contents->[0]->query($_[1]) }
sub channel    { my @c = $_[0]->query('/channel'); $c[0]; }
sub image      { $_[0]->query('image'); }
sub items      { $_[0]->query('item'); }
sub item_count { my @i = $_[0]->items; scalar @i; }
sub as_xml { XML::RSS::Parser::Util::as_xml($_[0]->contents->[0],1,$_[1]) }

###--- hack to keep Class::XPath happy.
sub qname            { '' }
sub attribute_qnames { }

1;

__END__