76 lines
1.5 KiB
Perl
Executable File
76 lines
1.5 KiB
Perl
Executable File
# $Id: Atom.pm,v 1.1 2005/04/15 17:37:32 bradfitz Exp $
|
|
|
|
package XML::Atom;
|
|
use strict;
|
|
|
|
BEGIN {
|
|
@XML::Atom::EXPORT = qw( LIBXML );
|
|
if (eval { require XML::LibXML }) {
|
|
*{XML::Atom::LIBXML} = sub() {1};
|
|
} else {
|
|
require XML::XPath;
|
|
*{XML::Atom::LIBXML} = sub() {0};
|
|
}
|
|
local $^W = 0;
|
|
*XML::XPath::Function::namespace_uri = sub {
|
|
my $self = shift;
|
|
my($node, @params) = @_;
|
|
my $ns = $node->getNamespace($node->getPrefix);
|
|
if (!$ns) {
|
|
$ns = ($node->getNamespaces)[0];
|
|
}
|
|
XML::XPath::Literal->new($ns ? $ns->getExpanded : '');
|
|
};
|
|
}
|
|
|
|
use base qw( XML::Atom::ErrorHandler Exporter );
|
|
|
|
our $VERSION = '0.11';
|
|
|
|
package XML::Atom::Namespace;
|
|
use strict;
|
|
|
|
sub new {
|
|
my $class = shift;
|
|
my($prefix, $uri) = @_;
|
|
bless { prefix => $prefix, uri => $uri }, $class;
|
|
}
|
|
|
|
sub DESTROY { }
|
|
|
|
use vars qw( $AUTOLOAD );
|
|
sub AUTOLOAD {
|
|
(my $var = $AUTOLOAD) =~ s!.+::!!;
|
|
no strict 'refs';
|
|
($_[0], $var);
|
|
}
|
|
|
|
1;
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
XML::Atom - Atom feed and API implementation
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
use XML::Atom;
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Atom is a syndication, API, and archiving format for weblogs and other
|
|
data. I<XML::Atom> implements the feed format as well as a client for the
|
|
API.
|
|
|
|
=head1 LICENSE
|
|
|
|
I<XML::Atom> is free software; you may redistribute it and/or modify it
|
|
under the same terms as Perl itself.
|
|
|
|
=head1 AUTHOR & COPYRIGHT
|
|
|
|
Except where otherwise noted, I<XML::Atom> is Copyright 2003 Benjamin
|
|
Trott, cpan@stupidfool.org. All rights reserved.
|
|
|
|
=cut
|