3 package XML::Feed::Format::Atom;
6 use base qw( XML::Feed );
8 use XML::Atom::Util qw( iso2dt );
9 use List::Util qw( first );
10 use DateTime::Format::W3CDTF;
14 XML::Atom::Entry->mk_elem_accessors(qw( lat long ), ['http://www.w3.org/2003/01/geo/wgs84_pos#']);
16 use XML::Atom::Content;
17 use XML::Feed::Entry::Format::Atom;
22 my $tag = $class->_get_first_tag($xml);
23 return ($tag eq 'feed');
28 my ($feed, %args) = @_;
29 $args{'Version'} ||= '1.0';
31 $feed->{atom} = XML::Atom::Feed->new(%args);
39 $feed->{atom} = XML::Atom::Feed->new(Stream => $str)
40 or return $feed->error(XML::Atom::Feed->errstr);
47 sub title { shift->{atom}->title(@_) }
51 $feed->{atom}->add_link({ rel => 'alternate', href => $_[0],
52 type => 'text/html', });
54 my $l = first { !defined $_->rel || $_->rel eq 'alternate' } $feed->{atom}->link;
55 $l ? $l->href : undef;
64 $feed->{atom}->add_link({type => "application/atom+xml", rel => $rel, href => $uri});
73 { !defined $_->rel || $_->rel eq 'self' }
78 { !defined $_->rel || $_->rel eq $rel }
83 return $l ? $l->href : undef;
87 sub self_link { shift->_rel_link( 'self', @_ ) }
88 sub first_link { shift->_rel_link( 'first', @_ ) }
89 sub last_link { shift->_rel_link( 'last', @_ ) }
90 sub next_link { shift->_rel_link( 'next', @_ ) }
91 sub previous_link { shift->_rel_link( 'previous', @_ ) };
92 sub current_link { shift->_rel_link( 'current', @_ ) }
93 sub prev_archive_link { shift->_rel_link( 'prev-archive', @_ ) }
94 sub next_archive_link { shift->_rel_link( 'next-archive', @_ ) }
96 sub description { shift->{atom}->tagline(@_) }
97 sub copyright { shift->{atom}->copyright(@_) }
98 sub language { shift->{atom}->language(@_) }
99 sub generator { shift->{atom}->generator(@_) }
100 sub id { shift->{atom}->id(@_) }
101 sub updated { shift->{atom}->updated(@_) }
102 sub add_link { shift->{atom}->add_link(@_) }
103 sub base { shift->{atom}->base(@_) }
108 my $person = XML::Atom::Person->new(Version => 1.0);
109 $person->name($_[0]);
110 $feed->{atom}->author($person);
112 $feed->{atom}->author ? $feed->{atom}->author->name : undef;
122 $feed->{atom}->modified(DateTime::Format::W3CDTF->format_datetime($_[0]));
124 return iso2dt($feed->{atom}->modified) if $feed->{atom}->modified;
125 return iso2dt($feed->{atom}->updated) if $feed->{atom}->updated;
132 for my $entry ($_[0]->{atom}->entries) {
133 push @entries, XML::Feed::Entry::Format::Atom->wrap($entry);
141 my $entry = shift || return;
142 $entry = $feed->_convert_entry($entry);
143 $feed->{atom}->add_entry($entry->unwrap);
146 sub as_xml { $_[0]->{atom}->as_xml }