1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
# $Id$
package XML::Atom;
use strict;
our $VERSION = '0.25';
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 : '');
};
$XML::Atom::ForceUnicode = 0;
$XML::Atom::DefaultVersion = 0.3;
}
use base qw( XML::Atom::ErrorHandler Exporter );
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-2005
Benjamin Trott, cpan@stupidfool.org. All rights reserved.
=head1 CO-MAINTAINER
Tatsuhiko Miyagawa E<lt>miyagawa@bulknews.netE<gt>
=cut
|
