File Coverage

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

Criterion	Covered	Total	%
statement	21	42	50.0
branch	0	8	0.0
condition			n/a
subroutine	7	11	63.6
pod	3	3	100.0
total	31	64	48.4

package WebService::GData::YouTube::Feed::Friend;

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::YT::Username ();
use WebService::GData::YouTube::YT::Status ();
use WebService::GData::YouTube::StagingServer ();

our $VERSION = 0.01_01;

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

our $SCHEME ='http://gdata.youtube.com/schemas/2007/contact.cat';

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

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

    if ( ref($feed) eq 'HASH' ) {
        $this->SUPER::__init( $feed, $req );
    }
    else {
        $this->SUPER::__init( {}, $feed );#$feed ==$req here
    }
    $this->{_username}= new WebService::GData::YouTube::YT::Username($this->{_feed}->{'yt$username'});
    $this->{_status}= new WebService::GData::YouTube::YT::Status($this->{_feed}->{'yt$status'});
    $this->_entity->child($this->{_username})->child($this->{_status});

}

sub delete {
    my $this = shift;
        my $uri =
      @{ $this->links->rel('edit') } > 0
      ? $this->links->rel('edit')->[0]->href
      : $WRITE_BASE_URI . 'default/contacts/'.$this->username;
    $this->{_request}->delete( $uri );
}

sub update {
    my $this = shift;

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

sub save {
	my $this = shift;

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

"The earth is blue like an orange.";

__END__