10 @XML::Atom::EXPORT = qw( LIBXML );
11 if (eval { require XML::LibXML }) {
12 *{XML::Atom::LIBXML} = sub() {1};
15 *{XML::Atom::LIBXML} = sub() {0};
18 *XML::XPath::Function::namespace_uri = sub {
20 my($node, @params) = @_;
21 my $ns = $node->getNamespace($node->getPrefix);
23 $ns = ($node->getNamespaces)[0];
25 XML::XPath::Literal->new($ns ? $ns->getExpanded : '');
28 $XML::Atom::ForceUnicode = 0;
29 $XML::Atom::DefaultVersion = 0.3;
32 use base qw( XML::Atom::ErrorHandler Exporter );
34 package XML::Atom::Namespace;
39 my($prefix, $uri) = @_;
40 bless { prefix => $prefix, uri => $uri }, $class;
45 use vars qw( $AUTOLOAD );
47 (my $var = $AUTOLOAD) =~ s!.+::!!;
57 XML::Atom - Atom feed and API implementation
65 Atom is a syndication, API, and archiving format for weblogs and other
66 data. I<XML::Atom> implements the feed format as well as a client for the
71 I<XML::Atom> is free software; you may redistribute it and/or modify it
72 under the same terms as Perl itself.
76 Benjamin Trott, Tatsuhiko Miyagawa