File Coverage

blib/lib/WebService/GData/YouTube/Feed/PlaylistLink.pm

Criterion	Covered	Total	%
statement	21	62	33.8
branch	0	12	0.0
condition	0	9	0.0
subroutine	7	15	46.6
pod	7	7	100.0
total	35	105	33.3

package WebService::GData::YouTube::Feed::PlaylistLink;

use WebService::GData 'private';
use base 'WebService::GData::Feed::Entry';
use WebService::GData::Constants qw(:all);
use WebService::GData::YouTube::Constants qw(:all);
use WebService::GData::YouTube::StagingServer ();
use WebService::GData::Node::Atom::Category();
use WebService::GData::Collection();

our $VERSION = 0.01_03;

our $PROJECTION = WebService::GData::YouTube::Constants::PROJECTION;
our $BASE       = WebService::GData::YouTube::Constants::BASE_URI;
if(WebService::GData::YouTube::StagingServer->is_on){
  $BASE         = STAGING_BASE_URI;
}
our $PLAYLISTS_URI = $BASE . $PROJECTION . '/users/default/playlists/';
#####READ##############

sub __init {
	my ( $this, $feed, $req ) = @_;

	return $this->SUPER::__init( $feed, $req ) if ref $feed eq 'HASH';

	$this->SUPER::__init( {}, $feed );

}

sub count_hint {
	my $this = shift;
	$this->{_feed}->{'yt$countHint'}->{'$t'};
}

sub playlist_id {
	my $this = shift;
	if ( @_ == 1 ) {
		$this->{_feed}->{'yt$playlistId'}->{'$t'} = $_[0];
	}
	$this->{_feed}->{'yt$playlistId'}->{'$t'};
}

sub is_private {
	my $this = shift;

	if ( exists $this->{_feed}->{'yt$private'} || ( @_ == 1 && !$this->{_private} ) ) {
		$this->{_private} = new WebService::GData::YouTube::YT::Private();
		$this->_entity->child( $this->{_private} );
		delete $this->{_feed}->{'yt$private'};
	}

	return ( exists $this->{_private} ) ? 1 : 0;


}

private urldecode => sub {
	my ($string) = shift;
	$string =~ tr/+/ /;
	$string =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	return $string;
};

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

	if ($keywords) {

		#reset tags
		my $old = $this->{_category};

        $this->{_category} = new WebService::GData::Collection();

		$this->_entity->swap( $old,$this->{_category});

		my @tags = split( /,/, $keywords );

		foreach (@tags) {
			push @{ $this->category },
			  new WebService::GData::Node::Atom::Category(
				term   => $_,
				scheme => 'http://gdata.youtube.com/schemas/2007/tags.cat'
			  );
		}
	}

	my @terms;
	push @terms, urldecode( $_->term )
	  foreach ( @{ $this->category->scheme('tags.cat') } );
	return join ',', @terms;
}

#####WRITE###########

sub delete {
	my $this = shift;
	$this->{_request}->delete( $PLAYLISTS_URI . $this->playlist_id );
}

sub save {
	my $this = shift;

	my $content = XML_HEADER . $this->serialize;
	my $ret;
	if ( $this->playlist_id ) {
		$ret =
		  $this->{_request}->update( $this->get_link('edit')
			  || $PLAYLISTS_URI . $this->playlist_id, $content );
	}
	else {
		$ret = $this->{_request}->insert( $PLAYLISTS_URI, $content );
	}
	return $ret;
}

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

	$this->id($video_id);

	my $content = XML_HEADER. $this->serialize;

	return $this->{_request}->insert('http://gdata.youtube.com/feeds/api/playlists/'.$this->playlist_id,$content);
}


#sub delete_video {
#	my ($this,%params) = @_;
#	if($params{videoId}) {
#		$params{playListVideoId}=$this->_find_playlist_video_id($params{videoId});
#	}
#	$this ->{_request}->delete('http://gdata.youtube.com/feeds/api/playlists/'.$this->playlistId.'/'.$params{playListVideoId},0);
#}
#	sub set_video_position {
#		my ($this,%params) = @_;
#		if($params{videoId}) {
#			$params{playListVideoId}=$this->_find_playlist_video_id($params{videoId});
#		}
#		$this->{_request}->update('http://gdata.youtube.com/feeds/api/playlists/'.$this->playlistId.'/'.$params{playListVideoId},"$params{position}");
#	}
#	sub _find_playlist_video_id {
#		my ($this,$videoid) = @_;

#		my $id="";
#		if(!$this->{videosInPlaylist}){
#			$this->get_videos;
#		}
#		foreach my $vid (@{$this->{videosInPlaylist}}){
#			if($vid->videoId eq $videoid){
#				$id= (split(':',$vid->id))[-1];
#			}
#		}
#		return $id;
#	}

"The earth is blue like an orange.";

__END__