1 |
package Message::DOM::DOMException; |
2 |
use strict; |
3 |
our $VERSION=do{my @r=(q$Revision: 1.15 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; |
4 |
push our @ISA, 'Message::Util::Error', 'Message::IF::DOMException'; |
5 |
require Message::Util::Error; |
6 |
|
7 |
sub ___error_def () {+{ |
8 |
INDEX_SIZE_ERR => { |
9 |
-code => 1, |
10 |
-subtype => { |
11 |
INDEX_OUT_OF_BOUND_ERR => { |
12 |
-description => q(Specified index is outside of the bounds), |
13 |
}, |
14 |
}, |
15 |
}, |
16 |
# DOMSTRING_SIZE_ERR == 2 |
17 |
HIERARCHY_REQUEST_ERR => { |
18 |
-code => 3, |
19 |
-subtype => { |
20 |
ANCESTOR_NODE_ERR => { |
21 |
-description => q(Specified node is an ancestor of the node or the node itself), |
22 |
}, |
23 |
CHILD_NODE_TYPE_ERR => { |
24 |
-description => q(This type of node cannot be inserted to this point), |
25 |
}, |
26 |
INUSE_DEFINITION_ERR => { |
27 |
-description => q(The node is already in use), |
28 |
}, |
29 |
}, |
30 |
}, |
31 |
WRONG_DOCUMENT_ERR => { |
32 |
-code => 4, |
33 |
-subtype => { |
34 |
EXTERNAL_OBJECT_ERR => { |
35 |
-description => q(Can't insert into different document), |
36 |
}, |
37 |
INUSE_DOCTYPE_ERR => { |
38 |
-description => q(Document type is already in use), |
39 |
}, |
40 |
}, |
41 |
}, |
42 |
INVALID_CHARACTER_ERR => { |
43 |
-code => 5, |
44 |
-subtype => { |
45 |
MALFORMED_EVENT_TYPE_ERR => { |
46 |
-description => q(Event type is not an XML Namespaces 1.1 |NCName|), |
47 |
}, |
48 |
MALFORMED_NAME_ERR => { |
49 |
-description => q(Not a legal XML |Name|), |
50 |
}, |
51 |
}, |
52 |
}, |
53 |
# NO_DATA_ALLOWED_ERR == 6 |
54 |
NO_MODIFICATION_ALLOWED_ERR => { |
55 |
-code => 7, |
56 |
-subtype => { |
57 |
READ_ONLY_NODE_ERR => { |
58 |
-description => q(Can't modify read-only node), |
59 |
}, |
60 |
READ_ONLY_NODE_LIST_ERR => { |
61 |
-description => q(Can't modify read-only node list), |
62 |
}, |
63 |
}, |
64 |
}, |
65 |
NOT_FOUND_ERR => { |
66 |
-code => 8, |
67 |
-subtype => { |
68 |
NOT_CHILD_ERR => { |
69 |
-description => q(Not a child of this node), |
70 |
}, |
71 |
UNRECOGNIZED_CONFIGURATION_PARAMETER_ERR => { |
72 |
-description => q(Unrecognized configuration parameter is specified), |
73 |
}, |
74 |
}, |
75 |
}, |
76 |
NOT_SUPPORTED_ERR => { |
77 |
-code => 9, |
78 |
-subtype => { |
79 |
ADOPT_NODE_TYPE_NOT_SUPPORTED_ERR => { |
80 |
-description => q(Can't adopt specified type of node), |
81 |
}, |
82 |
CLONE_NODE_TYPE_NOT_SUPPORTED_ERR => { |
83 |
-description => q(Can't clone specified type of node), |
84 |
}, |
85 |
CONFIGURATION_PARAMETER_VALUE_ERR => { |
86 |
-description => q(Can't set the value to the configuration parameter), |
87 |
}, |
88 |
EVENT_INTERFACE_NOT_SUPPORTED_ERR => { |
89 |
-description => q(Can't instantiate specified event interface), |
90 |
}, |
91 |
EXTERNAL_EVENT_ERR => { |
92 |
-description => q(The event has not been created using create_event |
93 |
method of this DOM implementation), |
94 |
}, |
95 |
NON_HTML_OPERATION_ERR => { |
96 |
-description => q(Can't apply to HTML document), |
97 |
}, |
98 |
NULLPO_ERR => { |
99 |
-description => q(NULLPO), |
100 |
}, |
101 |
UNKNOWN_XML_VERSION_ERR => { |
102 |
-description => q(Specified version of XML is not supported), |
103 |
}, |
104 |
}, |
105 |
}, |
106 |
INUSE_ATTRIBUTE_ERR => { |
107 |
-code => 10, |
108 |
-description => q(Attribute is already in use), |
109 |
}, |
110 |
# INVALID_STATE_ERR == 11 |
111 |
SYNTAX_ERR => { |
112 |
-code => 12, |
113 |
-subtype => { |
114 |
INVALID_SELECTORS_ERR => { |
115 |
-description => q(Invalid group of selectors), |
116 |
}, |
117 |
}, |
118 |
}, |
119 |
# INVALID_MODIFICATION_ERR == 13 |
120 |
NAMESPACE_ERR => { |
121 |
-code => 14, |
122 |
-subtype => { |
123 |
MALFORMED_QNAME_ERR => { |
124 |
-description => q(Malformed XML qualified name), |
125 |
}, |
126 |
NONXMLNSPREFIX_XMLNSNS_ERR => { |
127 |
-description => q(Namespace prefix "xmlns" must be used for namespace URI <http://www.w3.org/2000/xmlns/>), |
128 |
}, |
129 |
PREFIXED_NULLNS_ERR => { |
130 |
-description => q(A namespace prefix is specified while namespace URI is null), |
131 |
}, |
132 |
QNAME_NULLNS_ERR => { |
133 |
-description => q(Qualified name is not specified), |
134 |
}, |
135 |
UNDECLARED_PREFIX_ERR => { |
136 |
-description => q(Undeclared prefix |
137 |
"%p (name => {namespace_prefix});"), |
138 |
}, |
139 |
XMLNS_NONXMLNSNS_ERR => { |
140 |
-description => q(Qualified name "xmlns" can only be used with namespace URI <http://www.w3.org/2000/xmlns/>), |
141 |
}, |
142 |
XMLNSPREFIX_NONXMLNSNS_ERR => { |
143 |
-description => q(Namespace prefix "xmlns" cannot be used for namespace URI other than <http://www.w3.org/2000/xmlns/>), |
144 |
}, |
145 |
XMLPREFIX_NONXMLNS_ERR => { |
146 |
-description => q(Namespace prefix "xml" cannot be used for namespace URI other than <http://www.w3.org/XML/1998/namespace>), |
147 |
}, |
148 |
}, |
149 |
}, |
150 |
# INVALID_ACCESS_ERR == 15 |
151 |
# VALIDATION_ERR == 16 |
152 |
TYPE_MISMATCH_ERR => { |
153 |
-code => 17, |
154 |
-subtype => { |
155 |
CONFIGURATION_PARAMETER_TYPE_ERR => { |
156 |
-description => q(The value type for this configuration parameter is incompatible with the specified value), |
157 |
}, |
158 |
}, |
159 |
}, |
160 |
}} # ___error_def |
161 |
|
162 |
package Message::IF::DOMException; |
163 |
push our @ISA, 'Message::Util::Error'; |
164 |
|
165 |
## DOM1 |
166 |
sub INDEX_SIZE_ERR () { 1 } |
167 |
sub DOMSTRING_SIZE_ERR () { 2 } |
168 |
sub HIERARCHY_REQUEST_ERR () { 3 } |
169 |
sub WRONG_DOCUMENT_ERR () { 4 } |
170 |
sub INVALID_CHARACTER_ERR () { 5 } |
171 |
sub NO_DATA_ALLOWED_ERR () { 6 } |
172 |
sub NO_MODIFICATION_ALLOWED_ERR () { 7 } |
173 |
sub NOT_FOUND_ERR () { 8 } |
174 |
sub NOT_SUPPORTED_ERR () { 9 } |
175 |
sub INUSE_ATTRIBUTE_ERR () { 10 } |
176 |
## DOM2 |
177 |
sub INVALID_STATE_ERR () { 11 } |
178 |
sub SYNTAX_ERR () { 12 } |
179 |
sub INVALID_MODIFICATION_ERR () { 13 } |
180 |
sub NAMESPACE_ERR () { 14 } |
181 |
sub INVALID_ACCESS_ERR () { 15 } |
182 |
## DOM3 |
183 |
sub VALIDATION_ERR () { 16 } |
184 |
sub TYPE_MISMATCH_ERR () { 17 } |
185 |
|
186 |
=head1 LICENSE |
187 |
|
188 |
Copyright 2007 Wakaba <w@suika.fam.cx> |
189 |
|
190 |
This program is free software; you can redistribute it and/or |
191 |
modify it under the same terms as Perl itself. |
192 |
|
193 |
=cut |
194 |
|
195 |
1; |
196 |
## $Date: 2007/09/24 10:16:14 $ |