Atom service document object
XML::Atom::Service has changed the default namespace since v0.15.0. The new namespaces are 'http://www.w3.org/2005/Atom' and 'http://www.w3.org/2007/app'.
See \s-1NAMESPACES\s0 in details.
use XML::Atom::Service;
my $category = XML::Atom::Category->new;
$category->term('joke');
$category->scheme('http://example.org/extra-cats/');
my $categories = XML::Atom::Categories->new;
$categories->add_category($category);
my $collection = XML::Atom::Collection->new;
$collection->href('http://example.org/reilly/main');
$collection->title('My Blog Entries');
$collection->add_accept('application/atom+xml;type=entry');
$collection->add_categories($categories);
my $workspace = XML::Atom::Workspace->new;
$workspace->title('Main Site');
$workspace->add_collection($collection);
my $service = XML::Atom::Service->new;
$service->add_workspace($workspace);
my $xml = $service->as_xml;
# Get lists of the workspace, collection, and categories elements
my @workspace = $service->workspaces;
my @collection = $workspace[0]->collections;
my @categories = $collection[0]->categories;
The Atom Publishing Protocol (Atompub) is a protocol for publishing and editing Web resources described at http://www.ietf.org/internet-drafts/draft-ietf-atompub-protocol-17.txt <http://www.ietf.org/internet-drafts/draft-ietf-atompub-protocol-17.txt>.
XML::Atom::Service is an Service Document implementation. In the Atom Publishing Protocol, a client needs to first discover the capabilities and locations of Collections. The Service Document is designed to support this discovery process. The document describes the location and capabilities of Collections.
The Atom Publishing Protocol introduces some new \s-1XML\s0 elements, such as app:edited and app:draft, which are imported into XML::Atom. See XML::Atom::Atompub in detail.
This module was tested in InteropTokyo2007 <http://intertwingly.net/wiki/pie/July2007InteropTokyo>, and interoperated with other implementations.
Creates a new Service Document object, and if $stream is supplied, fills it with the data specified by $stream.
Automatically handles autodiscovery if $stream is a \s-1URI\s0 (see below).
Returns the new XML::Atom::Service object. On failure, returns \*(C`undef\*(C'.
$stream can be any one of the following:
Reference to a scalar This is treated as the \s-1XML\s0 body of the Service Document.
Scalar This is treated as the name of a file containing the Service Document \s-1XML\s0.
Filehandle This is treated as an open filehandle from which the Service Document \s-1XML\s0 can be read.
\s-1URI\s0 object This is treated as a \s-1URI\s0, and the Service Document \s-1XML\s0 will be retrieved from the \s-1URI\s0. If called in scalar context, returns an XML::Atom::Workspace object corresponding to the first \*(L"app:workspace\*(R" element found in the Service Document.
If called in list context, returns a list of XML::Atom::Workspace objects corresponding to all of the app:workspace elements found in the Service Document. Adds the workspace $workspace, which must be an XML::Atom::Workspace object, to the Service Document as a new app:workspace element. For example:
my $workspace = XML::Atom::Workspace->new; $workspace->title('Foo Bar'); $service->add_workspace($workspace);
By default, XML::Atom::Service will create entities using the new Atom namespaces, 'http://www.w3.org/2005/Atom' and 'http://www.w3.org/2007/app'. In order to use old ones, you can set them by setting global variables like:
use XML::Atom; use XML::Atom::Service; $XML::Atom::DefaultVersion = '0.3'; # 'http://purl.org/atom/ns#' $XML::Atom::Service::DefaultNamespace = 'http://purl.org/atom/app#';
XML::Atom Atompub Catalyst::Controller::Atompub
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.