Commits

Anonymous committed d011d18

- test for LIBXML_VERSION and LIBXML_RUNTIME_VERSION equality
- MANIFEST update
- cleanup XML::LibXML::Namespace implementation

Comments (0)

Files changed (5)

    - set_document_locator support in XML::LibXML::SAX::Parser
    - SYNOPSIS sections of the docs now mention which module to use
      and which other manpage to look into for inherited methods
-   - XML::LibXML::Namespace API fixed so as to achieve
+   - XML::LibXML::Namespace API fixed in order to achieve
      an agreement between the docs and the implementation
 
 1.63
 sub getPrefix { return "xmlns"; }
 sub getNamespaceURI { return "http://www.w3.org/2000/xmlns/" };
 
-sub declaredPrefix { shift->localname; }
-sub declaredURI    { shift->value;     }
-
-
-
 sub getNamespaces { return (); }
 
 sub nodeName {
-    my $self = shift;
-    my $nsP  = $self->name;
-    return ( defined($nsP) && length($nsP) ) ? "xmlns:$nsP" : "xmlns";
+  my $self = shift;
+  my $nsP  = $self->localname;
+  return ( defined($nsP) && length($nsP) ) ? "xmlns:$nsP" : "xmlns";
 }
-sub getName { shift->nodeName; }
-sub getValue { shift->value; }
-
+sub name    { goto &nodeName }
+sub getName { goto &nodeName }
 
 sub isEqualNode {
     my ( $self, $ref ) = @_;
         RETVAL
 
 SV*
-href(self)
+declaredURI(self)
         SV * self
     ALIAS:
         value = 1
         nodeValue = 2
         getData = 3
-        getNamespaceURI = 4
+        getValue = 4
+        value = 5
+	href = 6
     PREINIT:
         xmlNsPtr ns = (xmlNsPtr)SvIV(SvRV(self));
         xmlChar * href;
         RETVAL
 
 SV*
-localname(self)
+declaredPrefix(self)
         SV * self
     ALIAS:
-        name = 1
+	localname = 1
         getLocalName = 2
-        getName = 3
-        getPrefix = 4
     PREINIT:
         xmlNsPtr ns = (xmlNsPtr)SvIV(SvRV(self));
         xmlChar * prefix;
 LibXML.pod
 lib/XML/LibXML/Reader.pm
 t/40reader.t
+t/41xinclude.t
 test/textReader/countries.xml
 use Test;
-BEGIN { plan tests => 2}
+BEGIN { plan tests => 3}
 END { ok(0) unless $loaded }
 use XML::LibXML;
 $loaded = 1;
 my $p = XML::LibXML->new();
 ok($p);
 
+ok(XML::LibXML::LIBXML_VERSION, XML::LibXML::LIBXML_RUNTIME_VERSION);
+
 # warn "# $tstr2\n";