| 1 |
#!/usr/bin/perl |
#!/usr/bin/perl |
| 2 |
## This file is automatically generated |
## This file is automatically generated |
| 3 |
## at 2006-12-30T14:33:19+00:00, |
## at 2006-12-31T00:24:34+00:00, |
| 4 |
## from file "../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>, |
| 6 |
## for <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all>. |
## for <http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#all>. |
| 7 |
## Don't edit by hand! |
## Don't edit by hand! |
| 10 |
require Message::DOM::TreeCore; |
require Message::DOM::TreeCore; |
| 11 |
require Message::Util::Error::DOMException; |
require Message::Util::Error::DOMException; |
| 12 |
package Message::DOM::Document; |
package Message::DOM::Document; |
| 13 |
our $VERSION = 20061230.1433; |
our $VERSION = 20061231.0024; |
| 14 |
package Message::DOM::Document::ManakaiDOMImplementationDocument; |
package Message::DOM::Document::ManakaiDOMImplementationDocument; |
| 15 |
our $VERSION = 20061230.1433; |
our $VERSION = 20061231.0024; |
| 16 |
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>); |
| 17 |
sub create_document ($;$$$) { |
sub create_document ($;$$$) { |
| 18 |
my ($self, $namespaceURI, $qualifiedName, $doctype) = @_; |
my ($self, $namespaceURI, $qualifiedName, $doctype) = @_; |
| 23 |
(CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) { |
(CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) { |
| 24 |
require Message::DOM::DOMMain; |
require Message::DOM::DOMMain; |
| 25 |
|
|
| 26 |
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:1167487489:32060:02l5m38360'; |
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'; |
| 27 |
|
|
| 28 |
; |
; |
| 29 |
|
|
| 124 |
$Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMImplementationDocument>}->{has_feature} = {}; |
$Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMImplementationDocument>}->{has_feature} = {}; |
| 125 |
$Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMImplementationDocument>} = 0; |
$Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMImplementationDocument>} = 0; |
| 126 |
package Message::DOM::IF::Document; |
package Message::DOM::IF::Document; |
| 127 |
our $VERSION = 20061230.1433; |
our $VERSION = 20061231.0024; |
| 128 |
package Message::DOM::Document::ManakaiDOMDocument; |
package Message::DOM::Document::ManakaiDOMDocument; |
| 129 |
our $VERSION = 20061230.1433; |
our $VERSION = 20061231.0024; |
| 130 |
push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode', |
push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode', |
| 131 |
'Message::DOM::IF::Document', |
'Message::DOM::IF::Document', |
| 132 |
'Message::DOM::IF::Node'; |
'Message::DOM::IF::Node'; |
| 2943 |
(CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) { |
(CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) { |
| 2944 |
require Message::DOM::DOMMain; |
require Message::DOM::DOMMain; |
| 2945 |
|
|
| 2946 |
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:1167487489:32060:02l5m38360'; |
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'; |
| 2947 |
|
|
| 2948 |
; |
; |
| 2949 |
|
|
| 3049 |
(CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) { |
(CORE::defined $namespaceURI and CORE::length $namespaceURI == 0) { |
| 3050 |
require Message::DOM::DOMMain; |
require Message::DOM::DOMMain; |
| 3051 |
|
|
| 3052 |
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:1167487489:32060:02l5m38360'; |
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'; |
| 3053 |
|
|
| 3054 |
; |
; |
| 3055 |
|
|
| 3154 |
} |
} |
| 3155 |
$Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMDocument>}->{has_feature} = {'core', |
$Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMDocument>}->{has_feature} = {'core', |
| 3156 |
{'', |
{'', |
| 3157 |
|
'1', |
| 3158 |
|
'1.0', |
| 3159 |
|
'1', |
| 3160 |
|
'2.0', |
| 3161 |
|
'1', |
| 3162 |
|
'3.0', |
| 3163 |
'1'}, |
'1'}, |
| 3164 |
'xml', |
'xml', |
| 3165 |
{'', |
{'', |
| 3166 |
|
'1', |
| 3167 |
|
'1.0', |
| 3168 |
|
'1', |
| 3169 |
|
'2.0', |
| 3170 |
|
'1', |
| 3171 |
|
'3.0', |
| 3172 |
'1'}, |
'1'}, |
| 3173 |
'xmlversion', |
'xmlversion', |
| 3174 |
{'', |
{'', |
| 3175 |
|
'1', |
| 3176 |
|
'1.0', |
| 3177 |
|
'1', |
| 3178 |
|
'1.1', |
| 3179 |
'1'}}; |
'1'}}; |
| 3180 |
$Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMDocument>} = 0; |
$Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMDocument>} = 14.1; |
| 3181 |
package Message::DOM::IF::DocumentFragment; |
package Message::DOM::IF::DocumentFragment; |
| 3182 |
our $VERSION = 20061230.1433; |
our $VERSION = 20061231.0024; |
| 3183 |
package Message::DOM::Document::ManakaiDOMDocumentFragment; |
package Message::DOM::Document::ManakaiDOMDocumentFragment; |
| 3184 |
our $VERSION = 20061230.1433; |
our $VERSION = 20061231.0024; |
| 3185 |
push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode', |
push our @ISA, 'Message::DOM::TreeCore::ManakaiDOMNode', |
| 3186 |
'Message::DOM::IF::DocumentFragment', |
'Message::DOM::IF::DocumentFragment', |
| 3187 |
'Message::DOM::IF::Node'; |
'Message::DOM::IF::Node'; |
| 4362 |
} |
} |
| 4363 |
$Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMDocumentFragment>}->{has_feature} = {'core', |
$Message::DOM::DOMFeature::ClassInfo->{q<Message::DOM::Document::ManakaiDOMDocumentFragment>}->{has_feature} = {'core', |
| 4364 |
{'', |
{'', |
| 4365 |
|
'1', |
| 4366 |
|
'1.0', |
| 4367 |
|
'1', |
| 4368 |
|
'2.0', |
| 4369 |
|
'1', |
| 4370 |
|
'3.0', |
| 4371 |
'1'}, |
'1'}, |
| 4372 |
'xml', |
'xml', |
| 4373 |
{'', |
{'', |
| 4374 |
|
'1', |
| 4375 |
|
'1.0', |
| 4376 |
|
'1', |
| 4377 |
|
'2.0', |
| 4378 |
|
'1', |
| 4379 |
|
'3.0', |
| 4380 |
'1'}, |
'1'}, |
| 4381 |
'xmlversion', |
'xmlversion', |
| 4382 |
{'', |
{'', |
| 4383 |
|
'1', |
| 4384 |
|
'1.0', |
| 4385 |
|
'1', |
| 4386 |
|
'1.1', |
| 4387 |
'1'}}; |
'1'}}; |
| 4388 |
$Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMDocumentFragment>} = 0; |
$Message::DOM::ClassPoint{q<Message::DOM::Document::ManakaiDOMDocumentFragment>} = 14.1; |
| 4389 |
for ($Message::DOM::IF::Node::){} |
for ($Message::DOM::IF::Node::){} |
| 4390 |
## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL> |
## License: <http://suika.fam.cx/~wakaba/archive/2004/8/18/license#Perl+MPL> |
| 4391 |
1; |
1; |