The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
package WebService::GData::Node::Atom::EntryEntity;
use base 'WebService::GData::Node::Atom::AtomEntity';
use WebService::GData::Node::Atom::Content();
use WebService::GData::Node::Atom::Summary();
use WebService::GData::Node::Atom::Entry();
use WebService::GData::Node::Atom::Published();
our $VERSION = 0.01_01;

sub __init {
    my ($this,$params) = @_;
	
    $this->SUPER::__init($params);
    $this->_entity(new WebService::GData::Node::Atom::Entry('gd:etag'=>$this->{_feed}->{'gd$etag'}));	
    $this->{_content}= new WebService::GData::Node::Atom::Content($this->{_feed}->{content});
    $this->{_summary}= new WebService::GData::Node::Atom::Summary($this->{_feed}->{summary});   
    $this->{_published}= new WebService::GData::Node::Atom::Published($this->{_feed}->{published}); 
    $this->_entity->child($this->{_published})->child($this->{_summary})->child($this->{_content});
    $this->set_children;

}


"The earth is blue like an orange.";

__END__