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__ |