File Coverage

blib/lib/WebService/GData/Feed/Entry.pm

Criterion	Covered	Total	%
statement	17	20	85.0
branch	0	2	0.0
condition			n/a
subroutine	6	7	85.7
pod	2	4	50.0
total	25	33	75.7

package WebService::GData::Feed::Entry;
use base 'WebService::GData::Node::Atom::EntryEntity';
use WebService::GData::Serialize;

our $VERSION = 0.01_04;

sub __init {
    my ($this,$params,$request) = @_;
    $this->SUPER::__init($params);
    $this->{_request}=$request;
    $this->{_serializer}= 'xml';

}

sub serialize_as {
    my ($this,$serializer)=@_;
    $this->{_serializer}= $serializer if($serializer);
    $this->{_serializer};
}

sub serialize {
    my ($this,@args) = @_;
    my $serialize = $this->{_serializer};
    return WebService::GData::Serialize->$serialize($this->_entity,$this->_entity,@args);
}

sub content_type {
    my $this = shift;
    $this->{_content}->type;
}

sub content_source {
    my $this = shift;
    $this->{_content}->src;
}


"The earth is blue like an orange.";

__END__