File Coverage

blib/lib/WebService/GData/YouTube.pm

Criterion	Covered	Total	%
statement	54	178	30.3
branch	2	44	4.5
condition	0	6	0.0
subroutine	17	43	39.5
pod	26	26	100.0
total	99	297	33.3

package WebService::GData::YouTube;
use WebService::GData;
use base 'WebService::GData';

use WebService::GData::Base;
use WebService::GData::YouTube::Constants;
use WebService::GData::YouTube::Query;
use WebService::GData::YouTube::StagingServer ();

#TODO: load these packages on demand
use WebService::GData::YouTube::Feed;
use WebService::GData::YouTube::Feed::PlaylistLink;
use WebService::GData::YouTube::Feed::Video;
use WebService::GData::YouTube::Feed::Comment;
use WebService::GData::YouTube::Feed::Complaint;
use WebService::GData::YouTube::Feed::Friend;
use WebService::GData::YouTube::Feed::VideoMessage;
#end

our $PROJECTION        = WebService::GData::YouTube::Constants::PROJECTION;
our $BASE_URI          = WebService::GData::YouTube::Constants::BASE_URI;

if(WebService::GData::YouTube::StagingServer->is_on){
  $BASE_URI          = WebService::GData::YouTube::Constants::STAGING_BASE_URI;
}

our $VERSION    = 0.0206;

sub __init {
	my ( $this, $auth ) = @_;
	$this->{_baseuri} = $BASE_URI . $PROJECTION . '/';

	$this->{_request} = new WebService::GData::Base();
	$this->{_request}->auth($auth) if ($auth);
$this->{__cache__}={};
	#overwrite default query engine to support youtube extra feature
	my $query = new WebService::GData::YouTube::Query();
	$query->key( $auth->key ) if ($auth);
	$this->query($query);
}

sub connection {
    my ( $this ) = @_;
    return $this->{_request};
}

sub query {
	my ( $this, $query ) = @_;
	return $this->{_request}->query($query);
}

sub base_uri {
	my $this = shift;
	return $this->{_baseuri};
}

sub base_query {
	my $this = shift;
	return $this->query->to_query_string;
}

#playlist related

sub get_user_playlist_by_id {
	my ( $this, $playlistid,$preserve_start_index) = @_;

    return if(exists $this->{__cache__}->{$playlistid} && !$this->{__cache__}->{$playlistid});

	my $uri;
	if($this->{__cache__}->{$playlistid}){
		$uri = $this->{__cache__}->{$playlistid};
	}
	else {
		$this->query->start_index(1) if !$preserve_start_index;
	}

    my @request=$uri ? ($uri,1) : $this->{_baseuri} . 'playlists/' . $playlistid;
	my $res =
	  $this->{_request}->get(@request);

	my $feed =
	  new WebService::GData::YouTube::Feed( $res, $this->{_request} );

    $this->{__cache__}->{$playlistid}= $feed->next_link;

	return wantarray ? ($feed->entry,$feed):$feed->entry;
}

sub get_user_playlists {
	my ( $this, $channel,$preserve_start_index ) = @_;

	#by default, the one connected is returned
	my $uri = $this->{_baseuri} . 'users/default/playlists';
	$uri = $this->{_baseuri} . 'users/' . $channel . '/playlists' if ($channel);

   return if(exists $this->{__cache__}->{$uri} && !$this->{__cache__}->{$uri});

    my $next_url;
    if($this->{__cache__}->{$uri}){
        $next_url = $this->{__cache__}->{$uri};
    }
    else {
        $this->query->start_index(1) if !$preserve_start_index;
    }

    my @request=$next_url ? ($next_url,1) : $uri;


	my $res = $this->{_request}->get(@request);

	my $feed =
	  new WebService::GData::YouTube::Feed( $res, $this->{_request} );

    $this->{__cache__}->{$uri}= $feed->next_link;

    return wantarray ? ($feed->entry,$feed):$feed->entry;
}

sub get_user_profile {
    my ( $this, $channel ) = @_;

    #by default, the one connected is returned
    my $uri = $this->{_baseuri} . 'users/default/';
    $uri = $this->{_baseuri} . 'users/' . $channel if ($channel);

    my $res = $this->{_request}->get($uri);

    my $playlists =
      new WebService::GData::YouTube::Feed( $res, $this->{_request} );

    return $playlists->entry->[0];
}

sub get_user_contacts {
    my ( $this, $channel ) = @_;

    #by default, the one connected is returned
    my $uri = $this->{_baseuri} . 'users/default/contacts';
    $uri = $this->{_baseuri} . 'users/' . $channel.'/contacts' if ($channel);

    my $res = $this->{_request}->get($uri);

    my $contacts =
      new WebService::GData::YouTube::Feed( $res, $this->{_request} );

    return $contacts->entry;
}

sub get_user_inbox {
    my ( $this ) = @_;

    #by default, the one connected is returned
    my $uri = $this->{_baseuri} . 'users/default/inbox';

    my $res = $this->{_request}->get($uri);

    return
      new WebService::GData::YouTube::Feed( $res, $this->{_request} )->entry;

}

#video related

sub like_video {
    my ($this,$id) = @_;
     my $vid = $this->video;
        $vid->video_id($id);
    	$vid->rate('like');
}

sub dislike_video {
    my ($this,$id) = @_;
     my $vid = $this->video;
        $vid->video_id($id);
        $vid->rate('dislike');
}

sub add_video_response {
    my ($this,$video_id,$response_id) = @_;

    my $video = $this->video;
       $video->video_id($video_id);
    my $response = $this->video;
       $response->id($response_id);
       $video->add_video_response($response);
}

sub delete_video_response {
    my ($this,$video_id,$response_id) = @_;

    my $video = $this->video;
       $video->video_id($video_id);
       $video->delete_video_response($response_id);

}

sub add_favorite_video {
    my ($this,$video_id) = @_;
    my $video = $this->video;
       $video->add_favorite_video($video_id);
}

sub video {
	my $this = shift;
	return new WebService::GData::YouTube::Feed::Video( $this->{_request} );
}

sub playlists {
    my $this = shift;
    return new WebService::GData::YouTube::Feed::PlaylistLink( $this->{_request} );
}

sub comment {
	my $this = shift;
	return new WebService::GData::YouTube::Feed::Comment( $this->{_request} );
}

sub complaint {
    my $this = shift;
    return new WebService::GData::YouTube::Feed::Complaint( $this->{_request} );
}

sub contact {
    my $this = shift;
    return new WebService::GData::YouTube::Feed::Friend( $this->{_request} );
}

sub message {
    my $this = shift;
    return new WebService::GData::YouTube::Feed::VideoMessage( $this->{_request} );
}

sub search_video {
	my ( $this, $query ) = @_;
	$this->query($query) if ($query);
	my $res = $this->{_request}->get( $this->{_baseuri} . 'videos/' );
	my $playlists =
	  new WebService::GData::YouTube::Feed( $res, $this->{_request} );
	return $playlists->entry;
}

sub get_video_by_id {
	my ( $this, $id ) = @_;

	my $uri = $this->{_baseuri} . 'videos/' . $id;

	my $res = $this->{_request}->get($uri);

	my $playlists =
	  new WebService::GData::YouTube::Feed( $res, $this->{_request} );

	return $playlists->entry->[0];
}

sub get_user_video_by_id {
	my ( $this, $id, $channel ) = @_;

	my $uri = $this->{_baseuri} . 'users/default/uploads/' . $id;
	$uri = $this->{_baseuri} . 'users/' . $channel . '/uploads/' . $id
	  if ($channel);

	my $res = $this->{_request}->get($uri);

	my $playlists =
	  new WebService::GData::YouTube::Feed( $res, $this->{_request} );

	return $playlists->entry->[0];
}

sub get_user_videos {
	my ( $this, $channel ) = @_;

	my $uri = $this->{_baseuri} . 'users/default/uploads';
	$uri = $this->{_baseuri} . 'users/' . $channel . '/uploads' if ($channel);

	my $res = $this->{_request}->get($uri);

	my $playlists =
	  new WebService::GData::YouTube::Feed( $res, $this->{_request} );

	return $playlists->entry;
}

sub get_user_favorite_videos {
	my ( $this, $channel ) = @_;

	my $uri = $this->{_baseuri} . 'users/default/favorites/';
	$uri = $this->{_baseuri} . 'users/' . $channel . '/favorites/'
	  if ($channel);

	my $res = $this->{_request}->get($uri);

	my $feed =
	  new WebService::GData::YouTube::Feed( $res, $this->{_request} );

	return $feed->entry;
}

sub get_recommended_videos {
    my ( $this) = @_;

    my $uri = $this->{_baseuri} . 'users/default/recommendations';

    my $res = $this->{_request}->get($uri);

    my $feed =
      new WebService::GData::YouTube::Feed( $res, $this->{_request} );

    return $feed->entry;
}

#sub move_video {
#	my ( $this, %params ) = @_;

#	my $playlistLink =
#	  new WebService::GData::YouTube::Feed::PlaylistLink( {},
#		$this->{_request} );

	#delete old one
#	$playlistLink->playlistId( $params{'from'} );
#	$playlistLink->deleteVideo( videoId => $params{'videoid'} );

	#put in new one
#	$playlistLink->playlistId( $params{'to'} );
#	$playlistLink->addVideo( videoId => $params{'videoid'} );
#}

#standard feeds
no strict 'refs';
foreach my $stdfeed (
	qw(top_rated
	   top_favorites
	   most_viewed
	   most_shared
	   most_popular
	   most_recent
	   most_discussed
	   most_responded
	   recently_featured
	   on_the_web)
  )
{

	*{ __PACKAGE__ . '::get_' . $stdfeed . '_videos' } = sub {
		my ( $this, $region, $category, $time ) = @_;

		my $uri = $this->{_baseuri} . 'standardfeeds/';
		$uri .= $region . '/' if $region;
		$uri .= $stdfeed;
		$uri .= '_' . $category if $category;
		$this->query->time($time) if $time;
		my $res = $this->{_request}->get($uri);

		my $playlists =
		  new WebService::GData::YouTube::Feed( $res, $this->{_request} );
		return $playlists->entry;
	  }
}

foreach my $feed (qw(comments responses related)) {

	*{ __PACKAGE__ . '::get_' . $feed . '_for_video_id' } = sub {
		my ( $this, $id ) = @_;

		my $uri = $this->{_baseuri} . 'videos/' . $id . '/' . $feed;
		my $res = $this->{_request}->get($uri);

		my $playlists =
		  new WebService::GData::YouTube::Feed( $res, $this->{_request} );
		return $playlists->entry;
	  }
}

"The earth is blue like an orange.";

__END__