1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
# $Id$
package XML::Feed::Format::Atom;
use strict;
use base qw( XML::Feed );
use XML::Atom::Feed;
use XML::Atom::Util qw( iso2dt );
use List::Util qw( first );
use DateTime::Format::W3CDTF;
use HTML::Entities;
use XML::Atom::Entry;
XML::Atom::Entry->mk_elem_accessors(qw( lat long ), ['http://www.w3.org/2003/01/geo/wgs84_pos#']);
use XML::Atom::Content;
use XML::Feed::Entry::Format::Atom;
sub identify {
my $class = shift;
my $xml = shift;
my $tag = $class->_get_first_tag($xml);
return ($tag eq 'feed');
}
sub init_empty {
my ($feed, %args) = @_;
$args{'Version'} ||= '1.0';
$feed->{atom} = XML::Atom::Feed->new(%args);
$feed;
}
sub init_string {
my $feed = shift;
my($str) = @_;
if ($str) {
$feed->{atom} = XML::Atom::Feed->new(Stream => $str)
or return $feed->error(XML::Atom::Feed->errstr);
}
$feed;
}
sub format { 'Atom' }
sub title { shift->{atom}->title(@_) }
sub link {
my $feed = shift;
if (@_) {
$feed->{atom}->add_link({ rel => 'alternate', href => $_[0],
type => 'text/html', });
} else {
my $l = first { !defined $_->rel || $_->rel eq 'alternate' } $feed->{atom}->link;
$l ? $l->href : undef;
}
}
sub self_link {
my $feed = shift;
if (@_) {
my $uri = shift;
$feed->{atom}->add_link({type => "application/atom+xml", rel => "self", href => $uri});
return $uri;
}
else
{
my $l =
first
{ !defined $_->rel || $_->rel eq 'self' }
$feed->{atom}->link;
;
return $l ? $l->href : undef;
}
}
sub description { shift->{atom}->tagline(@_) }
sub copyright { shift->{atom}->copyright(@_) }
sub language { shift->{atom}->language(@_) }
sub generator { shift->{atom}->generator(@_) }
sub id { shift->{atom}->id(@_) }
sub updated { shift->{atom}->updated(@_) }
sub add_link { shift->{atom}->add_link(@_) }
sub base { shift->{atom}->base(@_) }
sub author {
my $feed = shift;
if (@_ && $_[0]) {
my $person = XML::Atom::Person->new(Version => 1.0);
$person->name($_[0]);
$feed->{atom}->author($person);
} else {
$feed->{atom}->author ? $feed->{atom}->author->name : undef;
}
}
sub modified {
my $feed = shift;
if (@_) {
$feed->{atom}->modified(DateTime::Format::W3CDTF->format_datetime($_[0]));
} else {
return iso2dt($feed->{atom}->modified) if $feed->{atom}->modified;
return iso2dt($feed->{atom}->updated) if $feed->{atom}->updated;
return undef;
}
}
sub entries {
my @entries;
for my $entry ($_[0]->{atom}->entries) {
push @entries, XML::Feed::Entry::Format::Atom->wrap($entry);
}
@entries;
}
sub add_entry {
my $feed = shift;
my $entry = shift || return;
$entry = $feed->_convert_entry($entry);
$feed->{atom}->add_entry($entry->unwrap);
}
sub as_xml { $_[0]->{atom}->as_xml }
1;
|
