Load XML-Feed-0.01 into trunk.

[catagits/XML-Feed.git] / lib / XML / Feed / Atom.pm

diff --git a/lib/XML/Feed/Atom.pm b/lib/XML/Feed/Atom.pm
new file mode 100644 (file)
index 0000000..1ba03d1
--- /dev/null
+++ b/lib/XML/Feed/Atom.pm
@@ -0,0 +1,66 @@
+# $Id: Atom.pm,v 1.1.1.1 2004/05/29 17:29:56 btrott Exp $
+
+package XML::Feed::Atom;
+use strict;
+
+use base qw( XML::Feed );
+use XML::Atom::Feed;
+use XML::Atom::Util qw( iso2dt );
+use List::Util qw( first );
+
+sub init_string {
+    my $feed = shift;
+    my($str) = @_;
+    $feed->{atom} = XML::Atom::Feed->new(Stream => \$str)
+        or return $feed->error(XML::Atom::Feed->errstr);
+    $feed;
+}
+
+sub format { 'Atom' }
+
+sub title { $_[0]->{atom}->title }
+sub link {
+    my $l = first { $_->rel eq 'alternate' } $_[0]->{atom}->link;
+    $l ? $l->href : undef;
+}
+sub description { $_[0]->{atom}->tagline }
+sub copyright { $_[0]->{atom}->copyright }
+sub language { $_[0]->{atom}->language }
+sub generator { $_[0]->{atom}->generator }
+sub author { $_[0]->{atom}->author ? $_[0]->{atom}->author->name : undef }
+sub modified { iso2dt($_[0]->{atom}->modified) }
+
+sub entries { 
+    my @entries;
+    for my $entry ($_[0]->{atom}->entries) {
+        push @entries, XML::Feed::Atom::Entry->wrap($entry);
+    }
+    @entries;
+}
+
+package XML::Feed::Atom::Entry;
+use strict;
+
+use base qw( XML::Feed::Entry );
+use XML::Atom::Util qw( iso2dt );
+use List::Util qw( first );
+
+sub title { $_[0]->{entry}->title }
+sub link {
+    my $l = first { $_->rel eq 'alternate' } $_[0]->{entry}->link;
+    $l ? $l->href : undef;
+}
+sub summary { $_[0]->{entry}->summary }
+sub content { $_[0]->{entry}->content ? $_[0]->{entry}->content->body : undef }
+
+sub category {
+    my $ns = XML::Atom::Namespace->new(dc => 'http://purl.org/dc/elements/1.1/');
+    $_[0]->{entry}->get($ns, 'subject');
+}
+
+sub author { $_[0]->{entry}->author ? $_[0]->{entry}->author->name : undef }
+sub id { $_[0]->{entry}->id }
+sub issued { iso2dt($_[0]->{entry}->issued) }
+sub modified { iso2dt($_[0]->{entry}->modified) }
+
+1;