File Coverage

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

Criterion	Covered	Total	%
statement	12	33	36.3
branch	0	12	0.0
condition			n/a
subroutine	4	10	40.0
pod	6	6	100.0
total	22	61	36.0

package WebService::GData::YouTube::Feed::VideoMessage;

use WebService::GData;
use base 'WebService::GData::YouTube::Feed::Video';
use WebService::GData::Constants qw(:all);
use WebService::GData::YouTube::Constants qw(:all);

our $VERSION = 0.01_01;

our $BASE_URI = BASE_URI . PROJECTION . '/users/default/inbox';
if ( WebService::GData::YouTube::StagingServer->is_on ) {
	$BASE_URI = STAGING_BASE_URI . PROJECTION . '/users/default/inbox';
}

sub subject {
	my ( $this, $title ) = @_;
	$this->{_title}->text($title) if $title;
	return $this->{_title}->text;
}

#alias
sub from {
	shift()->author->[0];
}

#alias
sub sent {
	shift()->published;
}

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

	my $ret;
	if ( $this->id ) {
		my $content = XML_HEADER . $this->serialize;
		foreach my $contact (@contacts) {
			( my $uri = $BASE_URI ) =~ s/default/$contact/;
			$ret = $this->{_request}->insert( $uri, $content );
		}
	}
	return $ret;
}

sub save {
	shift()->send(@_);
}

sub delete {
	my ( $this, $message_id ) = @_;
	my $uri;
	if ($message_id) {
		$uri =
		  ( $message_id =~ m/^http/ )
		  ? $message_id
		  : $BASE_URI . '/' . $message_id;
	}
	elsif ( @{ $this->links->rel('edit') } > 0 ) {
		$uri = $this->links->rel('edit')->[0]->href;
	}
	$this->{_request}->delete($uri) if $uri;
}

"The earth is blue like an orange.";

__END__