XML::DOM::XML_Base 0.02

XML::DOM::XML_Base Perl module can apply xml:base to attribute values.

SYNOPSIS

use XML::DOM::XML_Base;
my $parser = XML::DOM::Parser->new();

my $xml = qq(





);

# build the DOM
my $dom = $parser->parse( $xml );

# get some elements
my $endo = $dom->getElementsByTagName( endo )->item( 0 );
my $meso = $dom->getElementsByTagName( meso )->item( 0 );
my $ecto = $dom->getElementsByTagName( ecto )->item( 0 );

print $endo->getBase()."n"; # a/b/c/
print $meso->getBase()."n"; # a/b/
print $ecto->getBase()."n"; # a/

print $endo->getAttributeWithBase( x )."n"; # a/b/c/3
print $meso->getAttributeWithBase( x )."n"; # a/b/2
print $ecto->getAttributeWithBase( x )."n"; # a/1