Message/DOM/DOMException.pm

package Message::DOM::DOMException;
use strict;
our $VERSION=do{my @r=(q$Revision: 1.9 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
push our @ISA, 'Message::Util::Error', 'Message::IF::DOMException';
require Message::Util::Error;

sub ___error_def () {+{
  HIERARCHY_REQUEST_ERR => {
    -code => 3,
    -subtype => {
      ANCESTOR_NODE_ERR => {
        -description => q(Specified node is an ancestor of the node or the node itself),
      },
      CHILD_NODE_TYPE_ERR => {
        -description => q(This type of node cannot be inserted to this point),
      },
      INUSE_DEFINITION_ERR => {
        -description => q(The node is already in use),
      },
    },
  },
  WRONG_DOCUMENT_ERR => {
    -code => 4,
    -subtype => {
      EXTERNAL_OBJECT_ERR => {
        -description => q(Can't insert into different document),
      },
      INUSE_DOCTYPE_ERR => {
        -description => q(Document type is already in use),
      },
    },
  },
  INVALID_CHARACTER_ERR => {
    -code => 5,
    -subtype => {
      MALFORMED_NAME_ERR => {
        -description => q(Not a legal XML |Name|),
      },
    },
  },
  NO_MODIFICATION_ALLOWED_ERR => {
    -code => 7,
    -subtype => {
      READ_ONLY_NODE_ERR => {
        -description => q(Can't modify read-only node),
      },
      READ_ONLY_NODE_LIST_ERR => {
        -description => q(Can't modify read-only node list),
      },
    },
  },
  NOT_FOUND_ERR => {
    -code => 8,
    -subtype => {
      NOT_CHILD_ERR => {
        -description => q(Not a child of this node),
      },
    },
  },
  NOT_SUPPORTED_ERR => {
    -code => 9,
    -subtype => {
      ADOPT_NODE_TYPE_NOT_SUPPORTED_ERR => {
        -description => q(Can't adopt specified type of node),
      },
      CLONE_NODE_TYPE_NOT_SUPPORTED_ERR => {
        -description => q(Can't clone specified type of node),
      },
      NON_HTML_OPERATION_ERR => {
        -description => q(Can't apply to HTML document),
      },
      UNKNOWN_XML_VERSION_ERR => {
        -description => q(Specified version of XML is not supported),
      },
    },
  },
  INUSE_ATTRIBUTE_ERR => {
    -code => 10,
    -description => q(Attribute is already in use),
  },
  NAMESPACE_ERR => {
    -code => 14,
    -subtype => {
      MALFORMED_QNAME_ERR => {
        -description => q(Malformed XML qualified name),
      },
      NONXMLNSPREFIX_XMLNSNS_ERR => {
        -description => q(Namespace prefix "xmlns" must be used for namespace URI <http://www.w3.org/2000/xmlns/>),
      },
      PREFIXED_NULLNS_ERR => {
        -description => q(A namespace prefix is specified while namespace URI is null),
      },
      QNAME_NULLNS_ERR => {
        -description => q(Qualified name is not specified),
      },
      XMLNS_NONXMLNSNS_ERR => {
        -description => q(Qualified name "xmlns" can only be used with namespace URI <http://www.w3.org/2000/xmlns/>),
      },
      XMLNSPREFIX_NONXMLNSNS_ERR => {
        -description => q(Namespace prefix "xmlns" cannot be used for namespace URI other than <http://www.w3.org/2000/xmlns/>),
      },
      XMLPREFIX_NONXMLNS_ERR => {
        -description => q(Namespace prefix "xml" cannot be used for namespace URI other than <http://www.w3.org/XML/1998/namespace>),
      },
    },
  },
}} # ___error_def

package Message::IF::DOMException;
push our @ISA, 'Message::Util::Error';

## DOM1
sub INDEX_SIZE_ERR () { 1 }
sub DOMSTRING_SIZE_ERR () { 2 }
sub HIERARCHY_REQUEST_ERR () { 3 }
sub WRONG_DOCUMENT_ERR () { 4 }
sub INVALID_CHARACTER_ERR () { 5 }
sub NO_DATA_ALLOWED_ERR () { 6 }
sub NO_MODIFICATION_ALLOWED_ERR () { 7 }
sub NOT_FOUND_ERR () { 8 }
sub NOT_SUPPORTED_ERR () { 9 }
sub INUSE_ATTRIBUTE_ERR () { 10 }
## DOM2
sub INVALID_STATE_ERR () { 11 }
sub SYNTAX_ERR () { 12 }
sub INVALID_MODIFICATION_ERR () { 13 }
sub NAMESPACE_ERR () { 14 }
sub INVALID_ACCESS_ERR () { 15 }
## DOM3
sub VALIDATION_ERR () { 16 }
sub TYPE_MISMATCH_ERR () { 17 }

=head1 LICENSE

Copyright 2007 Wakaba <w@suika.fam.cx>

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cut

1;
## $Date: 2007/07/08 05:42:37 $
1	package Message::DOM::DOMException;
2	use strict;
3	our $VERSION=do{my @r=(q$Revision: 1.9 $=~/\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	HIERARCHY_REQUEST_ERR => {
9	-code => 3,
10	-subtype => {
11	ANCESTOR_NODE_ERR => {
12	-description => q(Specified node is an ancestor of the node or the node itself),
13	},
14	CHILD_NODE_TYPE_ERR => {
15	-description => q(This type of node cannot be inserted to this point),
16	},
17	INUSE_DEFINITION_ERR => {
18	-description => q(The node is already in use),
19	},
20	},
21	},
22	WRONG_DOCUMENT_ERR => {
23	-code => 4,
24	-subtype => {
25	EXTERNAL_OBJECT_ERR => {
26	-description => q(Can't insert into different document),
27	},
28	INUSE_DOCTYPE_ERR => {
29	-description => q(Document type is already in use),
30	},
31	},
32	},
33	INVALID_CHARACTER_ERR => {
34	-code => 5,
35	-subtype => {
36	MALFORMED_NAME_ERR => {
37	-description => q(Not a legal XML \|Name\|),
38	},
39	},
40	},
41	NO_MODIFICATION_ALLOWED_ERR => {
42	-code => 7,
43	-subtype => {
44	READ_ONLY_NODE_ERR => {
45	-description => q(Can't modify read-only node),
46	},
47	READ_ONLY_NODE_LIST_ERR => {
48	-description => q(Can't modify read-only node list),
49	},
50	},
51	},
52	NOT_FOUND_ERR => {
53	-code => 8,
54	-subtype => {
55	NOT_CHILD_ERR => {
56	-description => q(Not a child of this node),
57	},
58	},
59	},
60	NOT_SUPPORTED_ERR => {
61	-code => 9,
62	-subtype => {
63	ADOPT_NODE_TYPE_NOT_SUPPORTED_ERR => {
64	-description => q(Can't adopt specified type of node),
65	},
66	CLONE_NODE_TYPE_NOT_SUPPORTED_ERR => {
67	-description => q(Can't clone specified type of node),
68	},
69	NON_HTML_OPERATION_ERR => {
70	-description => q(Can't apply to HTML document),
71	},
72	UNKNOWN_XML_VERSION_ERR => {
73	-description => q(Specified version of XML is not supported),
74	},
75	},
76	},
77	INUSE_ATTRIBUTE_ERR => {
78	-code => 10,
79	-description => q(Attribute is already in use),
80	},
81	NAMESPACE_ERR => {
82	-code => 14,
83	-subtype => {
84	MALFORMED_QNAME_ERR => {
85	-description => q(Malformed XML qualified name),
86	},
87	NONXMLNSPREFIX_XMLNSNS_ERR => {
88	-description => q(Namespace prefix "xmlns" must be used for namespace URI <http://www.w3.org/2000/xmlns/>),
89	},
90	PREFIXED_NULLNS_ERR => {
91	-description => q(A namespace prefix is specified while namespace URI is null),
92	},
93	QNAME_NULLNS_ERR => {
94	-description => q(Qualified name is not specified),
95	},
96	XMLNS_NONXMLNSNS_ERR => {
97	-description => q(Qualified name "xmlns" can only be used with namespace URI <http://www.w3.org/2000/xmlns/>),
98	},
99	XMLNSPREFIX_NONXMLNSNS_ERR => {
100	-description => q(Namespace prefix "xmlns" cannot be used for namespace URI other than <http://www.w3.org/2000/xmlns/>),
101	},
102	XMLPREFIX_NONXMLNS_ERR => {
103	-description => q(Namespace prefix "xml" cannot be used for namespace URI other than <http://www.w3.org/XML/1998/namespace>),
104	},
105	},
106	},
107	}} # ___error_def
108
109	package Message::IF::DOMException;
110	push our @ISA, 'Message::Util::Error';
111
112	## DOM1
113	sub INDEX_SIZE_ERR () { 1 }
114	sub DOMSTRING_SIZE_ERR () { 2 }
115	sub HIERARCHY_REQUEST_ERR () { 3 }
116	sub WRONG_DOCUMENT_ERR () { 4 }
117	sub INVALID_CHARACTER_ERR () { 5 }
118	sub NO_DATA_ALLOWED_ERR () { 6 }
119	sub NO_MODIFICATION_ALLOWED_ERR () { 7 }
120	sub NOT_FOUND_ERR () { 8 }
121	sub NOT_SUPPORTED_ERR () { 9 }
122	sub INUSE_ATTRIBUTE_ERR () { 10 }
123	## DOM2
124	sub INVALID_STATE_ERR () { 11 }
125	sub SYNTAX_ERR () { 12 }
126	sub INVALID_MODIFICATION_ERR () { 13 }
127	sub NAMESPACE_ERR () { 14 }
128	sub INVALID_ACCESS_ERR () { 15 }
129	## DOM3
130	sub VALIDATION_ERR () { 16 }
131	sub TYPE_MISMATCH_ERR () { 17 }
132
133	=head1 LICENSE
134
135	Copyright 2007 Wakaba <w@suika.fam.cx>
136
137	This program is free software; you can redistribute it and/or
138	modify it under the same terms as Perl itself.
139
140	=cut
141
142	1;
143	## $Date: 2007/07/08 05:42:37 $