File Coverage

blib/lib/WebService/GData/Node/Atom/EntryEntity.pm
Criterion Covered Total %
statement 23 23 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 29 29 100.0


line stmt bran cond sub pod time code
1             package WebService::GData::Node::Atom::EntryEntity;
2 10     10   65 use base 'WebService::GData::Node::Atom::AtomEntity';
  10         18  
  10         6057  
3 10     10   6340 use WebService::GData::Node::Atom::Content();
  10         29  
  10         190  
4 10     10   5788 use WebService::GData::Node::Atom::Summary();
  10         26  
  10         191  
5 10     10   6294 use WebService::GData::Node::Atom::Entry();
  10         25  
  10         172  
6 10     10   5811 use WebService::GData::Node::Atom::Published();
  10         31  
  10         2280  
7             our $VERSION = 0.01_01;
8              
9             sub __init {
10 6     6   17 my ($this,$params) = @_;
11            
12 6         72 $this->SUPER::__init($params);
13 6         102 $this->_entity(new WebService::GData::Node::Atom::Entry('gd:etag'=>$this->{_feed}->{'gd$etag'}));
14 6         85 $this->{_content}= new WebService::GData::Node::Atom::Content($this->{_feed}->{content});
15 6         99 $this->{_summary}= new WebService::GData::Node::Atom::Summary($this->{_feed}->{summary});
16 6         96 $this->{_published}= new WebService::GData::Node::Atom::Published($this->{_feed}->{published});
17 6         39 $this->_entity->child($this->{_published})->child($this->{_summary})->child($this->{_content});
18 6         73 $this->set_children;
19              
20             }
21              
22              
23             "The earth is blue like an orange.";
24              
25             __END__