File Coverage

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

Criterion	Covered	Total	%
statement	18	49	36.7
branch	0	18	0.0
condition			n/a
subroutine	6	12	50.0
pod	5	5	100.0
total	29	84	34.5

package WebService::GData::YouTube::Feed::Comment;

use WebService::GData;
use base 'WebService::GData::Feed::Entry';
use WebService::GData::Constants qw(:all);
use WebService::GData::YouTube::Constants qw(:all);
use WebService::GData::Node::Atom::Link();
use WebService::GData::YouTube::StagingServer ();
our $VERSION = 0.01_04;

our $BASE_URI = BASE_URI . PROJECTION . '/videos/';
our $WRITE_BASE_URI = $BASE_URI;
our $RESPONSE_REL  = API_DOMAIN_URI . q[schemas/2007#in-reply-to];

if(WebService::GData::YouTube::StagingServer->is_on){
  $WRITE_BASE_URI        = STAGING_BASE_URI . PROJECTION . '/videos/';
}


our $RESPONSE_TYPE = q[application/atom+xml];

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

    if ( ref($feed) eq 'HASH' ) {
        $this->SUPER::__init( $feed, $req );
    }
    else {
        $this->SUPER::__init( {}, $feed );#$feed ==$req here
    }
}

sub content {
	my ( $this, $comment ) = @_;
	$this->{_content}->text($comment) if $comment;
	$this->{_content}->text;
}

sub comment_id {
	my ($this) = @_;
	if ( $this->id ) {
		return ( split ':', $this->id )[-1];
	}
}

sub video_id {
	my ( $this, $id ) = @_;
	if ($id) {
		$this->{_video_id} = $id;
		return $id;
	}
	if ( ! ref $this->id) {
		$this->{_video_id} = ( split ':', $this->id )[-3];
	}
	return $this->{_video_id};
}

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

	if ($comment_id) {
		$this->{_is_in_reply_to} = $comment_id;
		return $comment_id;
	}
	my $is_in_reply_to = $this->links->rel('#in-reply-to')->[0];
	if ($is_in_reply_to) {
		$this->{_is_in_reply_to} = ( split '/', $is_in_reply_to->href )[-1];
	}
	$this->{_is_in_reply_to};
}

sub save {
	my $this = shift;

	if ( $this->video_id ) {
		if ( $this->in_reply_to ) {
			$this->swap($this->{_link}, new WebService::GData::Node::Atom::Link(

				rel  => $RESPONSE_REL,
				type => $RESPONSE_TYPE,
				href => $BASE_URI.$this->video_id.'/comments/'.$this->in_reply_to
			  ));
		}
		my $content= XML_HEADER . $this->serialize();
		my $ret =$this->{_request}->insert( $WRITE_BASE_URI . $this->video_id . '/comments/', $content );
	}
}

"The earth is blue like an orange.";

__END__