File Coverage

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

Criterion	Covered	Total	%
statement	29	35	82.8
branch	5	8	62.5
condition			n/a
subroutine	8	9	88.8
pod	3	3	100.0
total	45	55	81.8

package WebService::GData::YouTube::Feed::Complaint;

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::YouTube::StagingServer ();
our $VERSION = 0.01_01;

our $BASE_URI       = BASE_URI . PROJECTION . '/videos/';
our $WRITE_BASE_URI = $BASE_URI;

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

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

    if ( ref($feed) eq 'HASH' ) {
        $this->SUPER::__init( $feed, $req );
    }
    else {
        $this->SUPER::__init( {}, $feed );#$feed ==$req here
    }
    push @{$this->category},{
    	term   => 'SPAM',
    	scheme => 'http://gdata.youtube.com/schemas/2007/complaint-reasons.cat'
    };
}

sub video_id {
	my ( $this, $id ) = @_;
	if ($id) {
		$this->{_video_id} = $id;
		return $id;
	}
	return $this->{_video_id};
}

sub reason {
    my ( $this, $reason ) = @_;
    if ($reason) {
        $this->category->[0]->term($reason);
    }
    return $this->category->[0]->term;
}

sub save {
	my $this = shift;

	if ( $this->video_id ) {
		my $content= XML_HEADER . $this->serialize();
		my $ret =$this->{_request}->insert( $WRITE_BASE_URI . $this->video_id . '/complaints/', $content );
		return $ret;
	}
}

"The earth is blue like an orange.";

__END__