File Coverage

blib/lib/WebService/Google/Reader/Feed.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package WebService::Google::Reader::Feed;

use strict;
use warnings;
use parent qw(XML::Atom::Feed Class::Accessor::Fast);

use WebService::Google::Reader::Constants qw(NS_GOOGLE_READER);

__PACKAGE__->mk_accessors(qw(continuation count ids request));

sub new {
    my ($class, %params) = @_;
    $params{count} ||= 20;
    return bless \%params, $class;
}

sub init {
    my $self = shift;

    $self->SUPER::init(@_);

    # TODO: bail if the continuation identifier hasn't changed.
    my $continuation = $self->get(NS_GOOGLE_READER, 'continuation');
    $self->continuation($continuation) if defined $continuation;

    return $self;
}

# XML::Atom::Feed::entries() returns undef when there are no entries,
# instead of an empty list, but only when using XML::LibXML.
sub entries {
    my $self = shift;
    return @{[ $self->SUPER::entries(@_) ]};
}


1;

__END__