You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@xerces.apache.org by ja...@apache.org on 2001/10/07 18:48:04 UTC
cvs commit: xml-xerces/perl Xerces.pm
jasons 01/10/07 09:48:04
Modified: perl Xerces.pm
Log:
removed RCS keyword
Revision Changes Path
1.2 +44 -379 xml-xerces/perl/Xerces.pm
Index: Xerces.pm
===================================================================
RCS file: /home/cvs/xml-xerces/perl/Xerces.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- Xerces.pm 2001/10/06 06:24:03 1.1
+++ Xerces.pm 2001/10/07 16:48:04 1.2
@@ -106,9 +106,9 @@
package XML::Xerces::XMLURL;
use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
+ "==" => sub { $_[0]->operator_equal_to($_[1])},
+ "!=" => sub { $_[0]->operator_not_equal_to($_[1])},
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
@@ -188,11 +188,6 @@
############# Class : XML::Xerces::XMLUri ##############
package XML::Xerces::XMLUri;
-use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
@@ -240,9 +235,7 @@
package XML::Xerces::QName;
use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
+ "==" => sub { $_[0]->operator_equal_to($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
@@ -287,11 +280,6 @@
############# Class : XML::Xerces::HexBin ##############
package XML::Xerces::HexBin;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
*getDataLength = *XML::Xercesc::HexBin_getDataLength;
@@ -312,11 +300,6 @@
############# Class : XML::Xerces::Base64 ##############
package XML::Xerces::Base64;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
*getDataLength = *XML::Xercesc::Base64_getDataLength;
@@ -337,11 +320,6 @@
############# Class : XML::Xerces::XMLExcepts ##############
package XML::Xerces::XMLExcepts;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
*NoError = *XML::Xercesc::XMLExcepts_NoError;
@@ -640,9 +618,7 @@
package XML::Xerces::XMLException;
use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
@@ -671,11 +647,6 @@
############# Class : XML::Xerces::XMLValidator ##############
package XML::Xerces::XMLValidator;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
@@ -720,9 +691,7 @@
package XML::Xerces::SAXException;
use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
@@ -765,11 +734,6 @@
############# Class : XML::Xerces::SAXNotSupportedException ##############
package XML::Xerces::SAXNotSupportedException;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::SAXException );
%OWNER = ();
sub new {
@@ -800,11 +764,6 @@
############# Class : XML::Xerces::SAXNotRecognizedException ##############
package XML::Xerces::SAXNotRecognizedException;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::SAXException );
%OWNER = ();
sub new {
@@ -836,9 +795,7 @@
package XML::Xerces::SAXParseException;
use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::SAXException );
%OWNER = ();
@@ -885,11 +842,6 @@
############# Class : XML::Xerces::ErrorHandler ##############
package XML::Xerces::ErrorHandler;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
@@ -914,11 +866,6 @@
############# Class : XML::Xerces::DTDHandler ##############
package XML::Xerces::DTDHandler;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
@@ -942,11 +889,6 @@
############# Class : XML::Xerces::DocumentHandler ##############
package XML::Xerces::DocumentHandler;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
@@ -976,11 +918,6 @@
############# Class : XML::Xerces::EntityResolver ##############
package XML::Xerces::EntityResolver;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
@@ -1009,11 +946,6 @@
############# Class : XML::Xerces::AttributeList ##############
package XML::Xerces::AttributeList;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
@@ -1038,11 +970,6 @@
############# Class : XML::Xerces::HandlerBase ##############
package XML::Xerces::HandlerBase;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::EntityResolver XML::Xerces::DTDHandler XML::Xerces::DocumentHandler XML::Xerces::ErrorHandler );
%OWNER = ();
*characters = *XML::Xercesc::HandlerBase_characters;
@@ -1085,11 +1012,6 @@
############# Class : XML::Xerces::Locator ##############
package XML::Xerces::Locator;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
@@ -1114,11 +1036,6 @@
############# Class : XML::Xerces::Attributes ##############
package XML::Xerces::Attributes;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
@@ -1146,11 +1063,6 @@
############# Class : XML::Xerces::ContentHandler ##############
package XML::Xerces::ContentHandler;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
@@ -1182,11 +1094,6 @@
############# Class : XML::Xerces::LexicalHandler ##############
package XML::Xerces::LexicalHandler;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
@@ -1214,11 +1121,6 @@
############# Class : XML::Xerces::DefaultHandler ##############
package XML::Xerces::DefaultHandler;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::EntityResolver XML::Xerces::DTDHandler XML::Xerces::ContentHandler XML::Xerces::ErrorHandler XML::Xerces::LexicalHandler );
%OWNER = ();
*characters = *XML::Xercesc::DefaultHandler_characters;
@@ -1271,11 +1173,6 @@
############# Class : XML::Xerces::XMLReaderFactory ##############
package XML::Xerces::XMLReaderFactory;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
*createXMLReader = *XML::Xercesc::XMLReaderFactory_createXMLReader;
@@ -1295,11 +1192,6 @@
############# Class : XML::Xerces::PerlErrorCallbackHandler ##############
package XML::Xerces::PerlErrorCallbackHandler;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::ErrorHandler );
%OWNER = ();
sub new {
@@ -1331,11 +1223,6 @@
############# Class : XML::Xerces::PerlDocumentCallbackHandler ##############
package XML::Xerces::PerlDocumentCallbackHandler;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::DocumentHandler );
%OWNER = ();
sub new {
@@ -1367,11 +1254,6 @@
############# Class : XML::Xerces::PerlContentCallbackHandler ##############
package XML::Xerces::PerlContentCallbackHandler;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::ContentHandler );
%OWNER = ();
sub new {
@@ -1403,11 +1285,6 @@
############# Class : XML::Xerces::PerlExceptionHandler ##############
package XML::Xerces::PerlExceptionHandler;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
*getInstance = *XML::Xercesc::PerlExceptionHandler_getInstance;
@@ -1432,11 +1309,6 @@
############# Class : XML::Xerces::PerlEntityResolverHandler ##############
package XML::Xerces::PerlEntityResolverHandler;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::EntityResolver );
%OWNER = ();
%ITERATORS = ();
@@ -1470,11 +1342,6 @@
############# Class : XML::Xerces::IDOM_Node ##############
package XML::Xerces::IDOM_Node;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
@@ -1647,11 +1514,6 @@
############# Class : XML::Xerces::IDOM_Attr ##############
package XML::Xerces::IDOM_Attr;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::IDOM_Node );
%OWNER = ();
%ITERATORS = ();
@@ -1684,11 +1546,6 @@
############# Class : XML::Xerces::IDOM_CharacterData ##############
package XML::Xerces::IDOM_CharacterData;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::IDOM_Node );
%OWNER = ();
%ITERATORS = ();
@@ -1717,11 +1574,6 @@
############# Class : XML::Xerces::IDOM_Text ##############
package XML::Xerces::IDOM_Text;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::IDOM_CharacterData );
%OWNER = ();
%ITERATORS = ();
@@ -1751,11 +1603,6 @@
############# Class : XML::Xerces::IDOM_CDATASection ##############
package XML::Xerces::IDOM_CDATASection;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::IDOM_Text );
%OWNER = ();
%ITERATORS = ();
@@ -1776,11 +1623,6 @@
############# Class : XML::Xerces::IDOM_Comment ##############
package XML::Xerces::IDOM_Comment;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::IDOM_CharacterData );
%OWNER = ();
%ITERATORS = ();
@@ -1801,11 +1643,6 @@
############# Class : XML::Xerces::IDOM_Document ##############
package XML::Xerces::IDOM_Document;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::IDOM_Node );
%OWNER = ();
%ITERATORS = ();
@@ -2016,11 +1853,6 @@
############# Class : XML::Xerces::IDOM_DocumentFragment ##############
package XML::Xerces::IDOM_DocumentFragment;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::IDOM_Node );
%OWNER = ();
%ITERATORS = ();
@@ -2041,11 +1873,6 @@
############# Class : XML::Xerces::IDOM_DocumentType ##############
package XML::Xerces::IDOM_DocumentType;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::IDOM_Node );
%OWNER = ();
%ITERATORS = ();
@@ -2090,11 +1917,6 @@
############# Class : XML::Xerces::IDOM_DOMException ##############
package XML::Xerces::IDOM_DOMException;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
%BLESSEDMEMBERS = (
@@ -2172,11 +1994,6 @@
############# Class : XML::Xerces::IDOM_DOMImplementation ##############
package XML::Xerces::IDOM_DOMImplementation;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
@@ -2215,11 +2032,6 @@
############# Class : XML::Xerces::IDOM_Element ##############
package XML::Xerces::IDOM_Element;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::IDOM_Node );
%OWNER = ();
%ITERATORS = ();
@@ -2316,11 +2128,6 @@
############# Class : XML::Xerces::IDOM_Entity ##############
package XML::Xerces::IDOM_Entity;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::IDOM_Node );
%OWNER = ();
%ITERATORS = ();
@@ -2344,11 +2151,6 @@
############# Class : XML::Xerces::IDOM_EntityReference ##############
package XML::Xerces::IDOM_EntityReference;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::IDOM_Node );
%OWNER = ();
%ITERATORS = ();
@@ -2369,11 +2171,6 @@
############# Class : XML::Xerces::IDOM_NamedNodeMap ##############
package XML::Xerces::IDOM_NamedNodeMap;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
@@ -2461,11 +2258,6 @@
############# Class : XML::Xerces::IDOM_NodeFilter ##############
package XML::Xerces::IDOM_NodeFilter;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
*FILTER_ACCEPT = *XML::Xercesc::IDOM_NodeFilter_FILTER_ACCEPT;
@@ -2501,11 +2293,6 @@
############# Class : XML::Xerces::IDOM_NodeIterator ##############
package XML::Xerces::IDOM_NodeIterator;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
*getWhatToShow = *XML::Xercesc::IDOM_NodeIterator_getWhatToShow;
@@ -2555,11 +2342,6 @@
############# Class : XML::Xerces::IDOM_NodeList ##############
package XML::Xerces::IDOM_NodeList;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
@@ -2591,11 +2373,6 @@
############# Class : XML::Xerces::IDOM_Notation ##############
package XML::Xerces::IDOM_Notation;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::IDOM_Node );
%OWNER = ();
%ITERATORS = ();
@@ -2618,11 +2395,6 @@
############# Class : XML::Xerces::IDOM_ProcessingInstruction ##############
package XML::Xerces::IDOM_ProcessingInstruction;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::IDOM_Node );
%OWNER = ();
%ITERATORS = ();
@@ -2646,11 +2418,6 @@
############# Class : XML::Xerces::IDOM_Range ##############
package XML::Xerces::IDOM_Range;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
@@ -2747,11 +2514,6 @@
############# Class : XML::Xerces::IDOM_RangeException ##############
package XML::Xerces::IDOM_RangeException;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::IDOM_DOMException );
%OWNER = ();
%BLESSEDMEMBERS = (
@@ -2814,11 +2576,6 @@
############# Class : XML::Xerces::IDOM_TreeWalker ##############
package XML::Xerces::IDOM_TreeWalker;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
*getWhatToShow = *XML::Xercesc::IDOM_TreeWalker_getWhatToShow;
@@ -2915,9 +2672,9 @@
package XML::Xerces::DOMString;
use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
+ "==" => sub { $_[0]->operator_equal_to($_[1])},
+ "!=" => sub { $_[0]->operator_not_equal_to($_[1])},
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
@@ -2992,9 +2749,9 @@
package XML::Xerces::DOM_Node;
use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
+ "==" => sub { $_[0]->operator_equal_to($_[1])},
+ "!=" => sub { $_[0]->operator_not_equal_to($_[1])},
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
@@ -3249,9 +3006,7 @@
package XML::Xerces::DOM_Attr;
use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::DOM_Node );
%OWNER = ();
@@ -3322,9 +3077,7 @@
package XML::Xerces::DOM_CharacterData;
use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::DOM_Node );
%OWNER = ();
@@ -3391,9 +3144,7 @@
package XML::Xerces::DOM_Text;
use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::DOM_CharacterData );
%OWNER = ();
@@ -3446,9 +3197,7 @@
package XML::Xerces::DOM_CDATASection;
use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::DOM_Text );
%OWNER = ();
@@ -3491,9 +3240,7 @@
package XML::Xerces::DOM_Comment;
use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::DOM_CharacterData );
%OWNER = ();
@@ -3535,11 +3282,6 @@
############# Class : XML::Xerces::DOM_DOMException ##############
package XML::Xerces::DOM_DOMException;
-use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
%BLESSEDMEMBERS = (
@@ -3619,9 +3361,7 @@
package XML::Xerces::DOM_DOMImplementation;
use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
@@ -3684,9 +3424,7 @@
package XML::Xerces::DOM_Document;
use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::DOM_Node );
%OWNER = ();
@@ -3889,9 +3627,7 @@
package XML::Xerces::DOM_DocumentFragment;
use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::DOM_Node );
%OWNER = ();
@@ -3934,9 +3670,7 @@
package XML::Xerces::DOM_DocumentType;
use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::DOM_Node );
%OWNER = ();
@@ -4037,9 +3771,7 @@
package XML::Xerces::DOM_Element;
use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::DOM_Node );
%OWNER = ();
@@ -4189,9 +3921,7 @@
package XML::Xerces::DOM_Entity;
use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::DOM_Node );
%OWNER = ();
@@ -4315,9 +4045,7 @@
package XML::Xerces::DOM_EntityReference;
use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::DOM_Node );
%OWNER = ();
@@ -4360,9 +4088,9 @@
package XML::Xerces::DOM_NamedNodeMap;
use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
+ "==" => sub { $_[0]->operator_equal_to($_[1])},
+ "!=" => sub { $_[0]->operator_not_equal_to($_[1])},
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
@@ -4480,11 +4208,6 @@
############# Class : XML::Xerces::DOM_NodeFilter ##############
package XML::Xerces::DOM_NodeFilter;
-use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
@@ -4523,9 +4246,9 @@
package XML::Xerces::DOM_NodeIterator;
use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
+ "==" => sub { $_[0]->operator_equal_to($_[1])},
+ "!=" => sub { $_[0]->operator_not_equal_to($_[1])},
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
@@ -4603,9 +4326,9 @@
package XML::Xerces::DOM_NodeList;
use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
+ "==" => sub { $_[0]->operator_equal_to($_[1])},
+ "!=" => sub { $_[0]->operator_not_equal_to($_[1])},
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
@@ -4662,9 +4385,7 @@
package XML::Xerces::DOM_Notation;
use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::DOM_Node );
%OWNER = ();
@@ -4725,9 +4446,7 @@
package XML::Xerces::DOM_ProcessingInstruction;
use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::DOM_Node );
%OWNER = ();
@@ -4789,9 +4508,9 @@
package XML::Xerces::DOM_Range;
use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
+ "!=" => sub { $_[0]->operator_not_equal_to($_[1])},
+ "==" => sub { $_[0]->operator_equal_to($_[1])},
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
@@ -4925,11 +4644,6 @@
############# Class : XML::Xerces::DOM_RangeException ##############
package XML::Xerces::DOM_RangeException;
-use overload
- "!=" => \&operator_not_equal_to,
- "==" => \&operator_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::DOM_DOMException );
%OWNER = ();
%BLESSEDMEMBERS = (
@@ -4993,9 +4707,9 @@
package XML::Xerces::DOM_TreeWalker;
use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
+ "==" => sub { $_[0]->operator_equal_to($_[1])},
+ "!=" => sub { $_[0]->operator_not_equal_to($_[1])},
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
@@ -5124,9 +4838,7 @@
package XML::Xerces::DOM_XMLDecl;
use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::DOM_Node );
%OWNER = ();
@@ -5202,11 +4914,6 @@
############# Class : XML::Xerces::InputSource ##############
package XML::Xerces::InputSource;
-use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
@@ -5241,11 +4948,6 @@
############# Class : XML::Xerces::MemBufInputSource ##############
package XML::Xerces::MemBufInputSource;
-use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::InputSource );
%OWNER = ();
%ITERATORS = ();
@@ -5291,11 +4993,6 @@
############# Class : XML::Xerces::StdInInputSource ##############
package XML::Xerces::StdInInputSource;
-use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::InputSource );
%OWNER = ();
%ITERATORS = ();
@@ -5336,11 +5033,6 @@
############# Class : XML::Xerces::LocalFileInputSource ##############
package XML::Xerces::LocalFileInputSource;
-use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::InputSource );
%OWNER = ();
%ITERATORS = ();
@@ -5387,11 +5079,6 @@
############# Class : XML::Xerces::URLInputSource ##############
package XML::Xerces::URLInputSource;
-use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces XML::Xerces::InputSource );
%OWNER = ();
%ITERATORS = ();
@@ -5451,9 +5138,7 @@
package XML::Xerces::XMLPScanToken;
use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
+ "=" => sub { $_[0]->operator_assignment($_[1])},
"fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
@@ -5495,11 +5180,6 @@
############# Class : XML::Xerces::SAX2XMLReader ##############
package XML::Xerces::SAX2XMLReader;
-use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
@@ -5618,11 +5298,6 @@
############# Class : XML::Xerces::SAXParser ##############
package XML::Xerces::SAXParser;
-use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
@@ -5768,11 +5443,6 @@
############# Class : XML::Xerces::DOMParser ##############
package XML::Xerces::DOMParser;
-use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
@@ -5918,11 +5588,6 @@
############# Class : XML::Xerces::IDOMParser ##############
package XML::Xerces::IDOMParser;
-use overload
- "==" => \&operator_equal_to,
- "!=" => \&operator_not_equal_to,
- "=" => \&operator_assignment,
- "fallback" => 1;
@ISA = qw( XML::Xerces );
%OWNER = ();
%ITERATORS = ();
---------------------------------------------------------------------
To unsubscribe, e-mail: xerces-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: xerces-cvs-help@xml.apache.org