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;
63 $feed->{atom}->add_link({type => "application/atom+xml", rel => "self", href => $uri});
70 { !defined $_->rel || $_->rel eq 'self' }
74 return $l ? $l->href : undef;
78 sub description { shift->{atom}->tagline(@_) }
79 sub copyright { shift->{atom}->copyright(@_) }
80 sub language { shift->{atom}->language(@_) }
81 sub generator { shift->{atom}->generator(@_) }
82 sub id { shift->{atom}->id(@_) }
83 sub updated { shift->{atom}->updated(@_) }
84 sub add_link { shift->{atom}->add_link(@_) }
85 sub base { shift->{atom}->base(@_) }
90 my $person = XML::Atom::Person->new(Version => 1.0);
92 $feed->{atom}->author($person);
94 $feed->{atom}->author ? $feed->{atom}->author->name : undef;
104 $feed->{atom}->modified(DateTime::Format::W3CDTF->format_datetime($_[0]));
106 return iso2dt($feed->{atom}->modified) if $feed->{atom}->modified;
107 return iso2dt($feed->{atom}->updated) if $feed->{atom}->updated;
114 for my $entry ($_[0]->{atom}->entries) {
115 push @entries, XML::Feed::Entry::Format::Atom->wrap($entry);
123 my $entry = shift || return;
124 $entry = $feed->_convert_entry($entry);
125 $feed->{atom}->add_entry($entry->unwrap);
128 sub as_xml { $_[0]->{atom}->as_xml }