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'; |