Extensions of xml::atom for the atom publishing protocol
use XML::Atom::Entry;
use XML::Atom::Feed;
use XML::Atom::Atompub;
my $entry = XML::Atom::Entry->new;
# <app:edited>2007-01-01T00:00:00Z</app:edited>
$entry->edited('2007-01-01T00:00:00Z');
# <app:control><app:draft>yes</app:draft></app:control>
my $control = XML::Atom::Control->new;
$control->draft('yes');
$entry->control($control);
# <content type="image/png" src="http://example.com/foo.png"/>
my $content = XML::Atom::Content->new;
$content->type('image/png');
$content->src('http://example.com/foo.png');
$entry->content($content);
# <link rel="alternate" href="http://example.com/foo.html"/>
$entry->alternate_link('http://example.com/foo.html');
my $feed = XML::Atom::Feed->new;
# <link rel="self" href="http://example.com"/>
$feed->self_link('http://example.com');
Some elements are introduced by the Atom Publishing Protocol, which are imported into XML::Atom by this module. Returns an XML::Atom::Control object representing the control of the Entry, or \*(C`undef\*(C' if there is no control.
If $control is supplied, it should be an XML::Atom::Control object representing the control. For example:
my $control = XML::Atom::Control->new; $control->draft('yes'); $entry->control($control); Returns an atom:edited element.
If $edited is given, sets the atom:edited element. Returns a value of src attribute in atom:content element.
If $src is given, the src attribute is added. Returns a value of href attribute in atom:link element with a link relation of alternate.
If $href is given, an atom:link element with a link relation of alternate is added. Returns a value of href attribute in atom:link element with a link relation of self.
If $href is given, an atom:link element with a link relation of self is added. Returns a value of href attribute in atom:link element with a link relation of edit.
If $href is given, an atom:link element with a link relation of edit is added. Returns a value of href attribute in atom:link element with a link relation of edit-media.
If $href is given, an atom:link element with a link relation of edit-media is added. Returns a value of href attribute in atom:link element with a link relation of related.
If $href is given, an atom:link element with a link relation of related is added. Returns a value of href attribute in atom:link element with a link relation of enclosure.
If $href is given, an atom:link element with a link relation of enclosure is added. Returns a value of href attribute in atom:link element with a link relation of via.
If $href is given, an atom:link element with a link relation of via is added. Returns a value of href attribute in atom:link element with a link relation of first.
If $href is given, an atom:link element with a link relation of first is added. Returns a value of href attribute in atom:link element with a link relation of previous.
If $href is given, an atom:link element with a link relation of previous is added. Returns a value of href attribute in atom:link element with a link relation of next.
If $href is given, an atom:link element with a link relation of next is added. Returns a value of href attribute in atom:link element with a link relation of last.
If $href is given, an atom:link element with a link relation of last is added.
XML::Atom XML::Atom::Service
Takeru \s-1INOUE\s0, <takeru.inoue _ gmail.com>
Copyright (c) 2007, Takeru \s-1INOUE\s0 \*(C`<takeru.inoue _ gmail.com>\*(C'. All rights reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic.
\s-1BECAUSE\s0 \s-1THIS\s0 \s-1SOFTWARE\s0 \s-1IS\s0 \s-1LICENSED\s0 \s-1FREE\s0 \s-1OF\s0 \s-1CHARGE\s0, \s-1THERE\s0 \s-1IS\s0 \s-1NO\s0 \s-1WARRANTY\s0 \s-1FOR\s0 \s-1THE\s0 \s-1SOFTWARE\s0, \s-1TO\s0 \s-1THE\s0 \s-1EXTENT\s0 \s-1PERMITTED\s0 \s-1BY\s0 \s-1APPLICABLE\s0 \s-1LAW\s0. \s-1EXCEPT\s0 \s-1WHEN\s0 \s-1OTHERWISE\s0 \s-1STATED\s0 \s-1IN\s0 \s-1WRITING\s0 \s-1THE\s0 \s-1COPYRIGHT\s0 \s-1HOLDERS\s0 \s-1AND/OR\s0 \s-1OTHER\s0 \s-1PARTIES\s0 \s-1PROVIDE\s0 \s-1THE\s0 \s-1SOFTWARE\s0 \*(L"\s-1AS\s0 \s-1IS\s0\*(R" \s-1WITHOUT\s0 \s-1WARRANTY\s0 \s-1OF\s0 \s-1ANY\s0 \s-1KIND\s0, \s-1EITHER\s0 \s-1EXPRESSED\s0 \s-1OR\s0 \s-1IMPLIED\s0, \s-1INCLUDING\s0, \s-1BUT\s0 \s-1NOT\s0 \s-1LIMITED\s0 \s-1TO\s0, \s-1THE\s0 \s-1IMPLIED\s0 \s-1WARRANTIES\s0 \s-1OF\s0 \s-1MERCHANTABILITY\s0 \s-1AND\s0 \s-1FITNESS\s0 \s-1FOR\s0 A \s-1PARTICULAR\s0 \s-1PURPOSE\s0. \s-1THE\s0 \s-1ENTIRE\s0 \s-1RISK\s0 \s-1AS\s0 \s-1TO\s0 \s-1THE\s0 \s-1QUALITY\s0 \s-1AND\s0 \s-1PERFORMANCE\s0 \s-1OF\s0 \s-1THE\s0 \s-1SOFTWARE\s0 \s-1IS\s0 \s-1WITH\s0 \s-1YOU\s0. \s-1SHOULD\s0 \s-1THE\s0 \s-1SOFTWARE\s0 \s-1PROVE\s0 \s-1DEFECTIVE\s0, \s-1YOU\s0 \s-1ASSUME\s0 \s-1THE\s0 \s-1COST\s0 \s-1OF\s0 \s-1ALL\s0 \s-1NECESSARY\s0 \s-1SERVICING\s0, \s-1REPAIR\s0, \s-1OR\s0 \s-1CORRECTION\s0.
\s-1IN\s0 \s-1NO\s0 \s-1EVENT\s0 \s-1UNLESS\s0 \s-1REQUIRED\s0 \s-1BY\s0 \s-1APPLICABLE\s0 \s-1LAW\s0 \s-1OR\s0 \s-1AGREED\s0 \s-1TO\s0 \s-1IN\s0 \s-1WRITING\s0 \s-1WILL\s0 \s-1ANY\s0 \s-1COPYRIGHT\s0 \s-1HOLDER\s0, \s-1OR\s0 \s-1ANY\s0 \s-1OTHER\s0 \s-1PARTY\s0 \s-1WHO\s0 \s-1MAY\s0 \s-1MODIFY\s0 \s-1AND/OR\s0 \s-1REDISTRIBUTE\s0 \s-1THE\s0 \s-1SOFTWARE\s0 \s-1AS\s0 \s-1PERMITTED\s0 \s-1BY\s0 \s-1THE\s0 \s-1ABOVE\s0 \s-1LICENCE\s0, \s-1BE\s0 \s-1LIABLE\s0 \s-1TO\s0 \s-1YOU\s0 \s-1FOR\s0 \s-1DAMAGES\s0, \s-1INCLUDING\s0 \s-1ANY\s0 \s-1GENERAL\s0, \s-1SPECIAL\s0, \s-1INCIDENTAL\s0, \s-1OR\s0 \s-1CONSEQUENTIAL\s0 \s-1DAMAGES\s0 \s-1ARISING\s0 \s-1OUT\s0 \s-1OF\s0 \s-1THE\s0 \s-1USE\s0 \s-1OR\s0 \s-1INABILITY\s0 \s-1TO\s0 \s-1USE\s0 \s-1THE\s0 \s-1SOFTWARE\s0 (\s-1INCLUDING\s0 \s-1BUT\s0 \s-1NOT\s0 \s-1LIMITED\s0 \s-1TO\s0 \s-1LOSS\s0 \s-1OF\s0 \s-1DATA\s0 \s-1OR\s0 \s-1DATA\s0 \s-1BEING\s0 \s-1RENDERED\s0 \s-1INACCURATE\s0 \s-1OR\s0 \s-1LOSSES\s0 \s-1SUSTAINED\s0 \s-1BY\s0 \s-1YOU\s0 \s-1OR\s0 \s-1THIRD\s0 \s-1PARTIES\s0 \s-1OR\s0 A \s-1FAILURE\s0 \s-1OF\s0 \s-1THE\s0 \s-1SOFTWARE\s0 \s-1TO\s0 \s-1OPERATE\s0 \s-1WITH\s0 \s-1ANY\s0 \s-1OTHER\s0 \s-1SOFTWARE\s0), \s-1EVEN\s0 \s-1IF\s0 \s-1SUCH\s0 \s-1HOLDER\s0 \s-1OR\s0 \s-1OTHER\s0 \s-1PARTY\s0 \s-1HAS\s0 \s-1BEEN\s0 \s-1ADVISED\s0 \s-1OF\s0 \s-1THE\s0 \s-1POSSIBILITY\s0 \s-1OF\s0 \s-1SUCH\s0 \s-1DAMAGES\s0.