File Coverage

blib/lib/WebService/GData/Feed.pm

Criterion	Covered	Total	%
statement	49	54	90.7
branch	3	8	37.5
condition	1	5	20.0
subroutine	12	12	100.0
pod	4	4	100.0
total	69	83	83.1

package WebService::GData::Feed;
use WebService::GData 'private';
use base 'WebService::GData::Node::Atom::FeedEntity';

use WebService::GData::Node::OpenSearch::ItemsPerPage();
use WebService::GData::Node::OpenSearch::StartIndex();
use WebService::GData::Node::OpenSearch::TotalResults();

our $VERSION = 0.01_08;

sub __init {
	my ($this,$params,$request) = @_;

	$this->SUPER::__init($params);

    $this->{_items_per_page}=new WebService::GData::Node::OpenSearch::ItemsPerPage($this->{_feed}->{'openSearch$itemsPerPage'});
    $this->_entity->child($this->{_items_per_page});
    $this->{_start_index}=new WebService::GData::Node::OpenSearch::StartIndex($this->{_feed}->{'openSearch$startIndex'});
    $this->_entity->child($this->{_start_index});

    $this->{_total_results}=new WebService::GData::Node::OpenSearch::TotalResults($this->{_feed}->{'openSearch$totalResults'});
    $this->_entity->child($this->{_total_results});

    $this->{_request}= $request;

}

sub total_items {
    my $this = shift;
    return $this->total_results;
}

sub previous_link {
    my ($this) = @_;
    return $this->get_link('previous');
}

sub next_link {
    my ($this) = @_;
    return $this->get_link('next');
}

#ok, i need to cleanup this mess...
#entry works as a factory and loads the proper entry class
sub entry {
    my ( $this, $wanted_class ) = @_;

    my $entries = $this->{_feed}->{entry} || [];
    $entries = [$entries] if ( ref($entries) ne 'ARRAY' );

    #default to the base Entry class
    my $class = q[WebService::GData::Feed::Entry];

    if ($wanted_class) {
        $class = $wanted_class;
    }
    else {

        #from which service this request comes from...
        my $service = ref($this);

        #what kind of feed is this??
        my $feedType = $this->_get_feed_type;

        if ( $service =~ m/GData::(.*)::/ && $feedType ) {
            my ( $match, $ser ) = $service =~ m/GData::(.*)::/;
            $class = 'WebService::GData::' . $match . '::Feed::' . $feedType;
        }
    }
    {
        no strict 'refs';

        #all entries inherit from WebService::GData::Feed::Entry
        eval("use $class")
          if ( !@{ $class . '::ISA' } );
    }
    my @ret = ();
    foreach my $entry (@$entries) {
        push @ret, $class->new( $entry, $this->{_request} );
    }
    return \@ret;
}

private _get_feed_type => sub {
    my $this = shift;

    my $feedTypeString = '';

    if ( $this->{_category} || $this->{_feed}->{entry}->{category} ) {

        $feedTypeString = $this->{_category}->[0]->{term}
          || $this->{_feed}->{entry}->{category}->[0]->{term};
    }

    #the feed type is after the anchor http://gdata.youtube.com/schemas/2007#video
    my $feedType = ( split( '#', $feedTypeString ) )[1];
    $feedType = "\u$feedType";    #Uppercase to load the proper class
    return $feedType;
};

"The earth is blue like an orange.";

__END__