| 1 |
#!/usr/bin/perl |
#!/usr/bin/perl |
| 2 |
## This file is automatically generated |
## This file is automatically generated |
| 3 |
## at 2006-12-31T00:24:34+00:00, |
## at 2006-12-31T09:02:41+00:00, |
| 4 |
## from file "../lib/Message/DOM/Document.dis", |
## from file "../lib/Message/DOM/Document.dis", |
| 5 |
## module <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM.Document>, |
## module <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#ManakaiDOM.Document>. |
|
## for <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all>. |
|
| 6 |
## Don't edit by hand! |
## Don't edit by hand! |
| 7 |
use strict; |
use strict; |
| 8 |
require Message::DOM::DOMCore; |
require Message::DOM::DOMCore; |
| 9 |
require Message::DOM::TreeCore; |
require Message::DOM::TreeCore; |
| 10 |
require Message::Util::Error::DOMException; |
require Message::Util::Error::DOMException; |
| 11 |
package Message::DOM::Document; |
package Message::DOM::Document; |
| 12 |
our $VERSION = 20061231.0024; |
our $VERSION = 20061231.0902; |
| 13 |
package Message::DOM::Document::ManakaiDOMImplementationDocument; |
package Message::DOM::Document::ManakaiDOMImplementationDocument; |
| 14 |
our $VERSION = 20061231.0024; |
our $VERSION = 20061231.0902; |
| 15 |
push @Message::DOM::DOMCore::ManakaiDOMImplementation::ISA, q<Message::DOM::Document::ManakaiDOMImplementationDocument> unless Message::DOM::DOMCore::ManakaiDOMImplementation->isa (q<Message::DOM::Document::ManakaiDOMImplementationDocument>); |
push @Message::DOM::DOMCore::ManakaiDOMImplementation::ISA, q<Message::DOM::Document::ManakaiDOMImplementationDocument> unless Message::DOM::DOMCore::ManakaiDOMImplementation->isa (q<Message::DOM::Document::ManakaiDOMImplementationDocument>); |
| 16 |
sub create_document ($;$$$) { |
sub create_document ($;$$$) { |
| 17 |
my ($self, $namespaceURI, $qualifiedName, $doctype) = @_; |
my ($self, $namespaceURI, $qualifiedName, $doctype) = @_; |
| 22 |
(CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) { |
(CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) { |
| 23 |
require Message::DOM::DOMMain; |
require Message::DOM::DOMMain; |
| 24 |
|
|
| 25 |
report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:1167522123:25685:fj3zF510'; |
report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#DOMNamespaceURIInputProcessor'; |
| 26 |
|
|
| 27 |
; |
; |
| 28 |
|
|
| 123 |
$Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMImplementationDocument>}->{has_feature} = {}; |
$Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMImplementationDocument>}->{has_feature} = {}; |
| 124 |
$Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMImplementationDocument>} = 0; |
$Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMImplementationDocument>} = 0; |
| 125 |
package Message::DOM::IF::Document; |
package Message::DOM::IF::Document; |
| 126 |
our $VERSION = 20061231.0024; |
our $VERSION = 20061231.0902; |
| 127 |
package Message::DOM::Document::ManakaiDOMDocument; |
package Message::DOM::Document::ManakaiDOMDocument; |
| 128 |
our $VERSION = 20061231.0024; |
our $VERSION = 20061231.0902; |
| 129 |
push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode', |
push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode', |
| 130 |
'Message::DOM::IF::Document', |
'Message::DOM::IF::Document', |
| 131 |
'Message::DOM::IF::Node'; |
'Message::DOM::IF::Node'; |
| 2942 |
(CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) { |
(CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) { |
| 2943 |
require Message::DOM::DOMMain; |
require Message::DOM::DOMMain; |
| 2944 |
|
|
| 2945 |
report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:1167522123:25685:fj3zF510'; |
report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#DOMNamespaceURIInputProcessor'; |
| 2946 |
|
|
| 2947 |
; |
; |
| 2948 |
|
|
| 3048 |
(CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) { |
(CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) { |
| 3049 |
require Message::DOM::DOMMain; |
require Message::DOM::DOMMain; |
| 3050 |
|
|
| 3051 |
report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'tag:suika.fam.cx,2005-09:1167522123:25685:fj3zF510'; |
report Message::DOM::DOMCore::ManakaiDOMError -object => $self, '-type' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#empty-namespace-uri', 'http://suika.fam.cx/~wakaba/archive/2004/8/4/manakai-dom-exception#resourceURI' => 'http://suika.fam.cx/~wakaba/archive/2004/dom/main#DOMNamespaceURIInputProcessor'; |
| 3052 |
|
|
| 3053 |
; |
; |
| 3054 |
|
|
| 3178 |
'1'}}; |
'1'}}; |
| 3179 |
$Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMDocument>} = 14.1; |
$Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMDocument>} = 14.1; |
| 3180 |
package Message::DOM::IF::DocumentFragment; |
package Message::DOM::IF::DocumentFragment; |
| 3181 |
our $VERSION = 20061231.0024; |
our $VERSION = 20061231.0902; |
| 3182 |
package Message::DOM::Document::ManakaiDOMDocumentFragment; |
package Message::DOM::Document::ManakaiDOMDocumentFragment; |
| 3183 |
our $VERSION = 20061231.0024; |
our $VERSION = 20061231.0902; |
| 3184 |
push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode', |
push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode', |
| 3185 |
'Message::DOM::IF::DocumentFragment', |
'Message::DOM::IF::DocumentFragment', |
| 3186 |
'Message::DOM::IF::Node'; |
'Message::DOM::IF::Node'; |