Message/DOM/DOMException.pm

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

sub ___error_def () {+{
  WRONG_DOCUMENT_ERR => {
    -code => 4,
    -description => q(Can't insert into different document),
  },
  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_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),
  },
}} # ___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/06/20 13:41:16 $
1	wakaba	1.1	package Message::DOM::DOMException;
2			use strict;
3	wakaba	1.6	our $VERSION=do{my @r=(q$Revision: 1.5 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
4	wakaba	1.1	push our @ISA, 'Message::Util::Error', 'Message::IF::DOMException';
5			require Message::Util::Error;
6
7			sub ___error_def () {+{
8	wakaba	1.4	WRONG_DOCUMENT_ERR => {
9			-code => 4,
10			-description => q(Can't insert into different document),
11			},
12	wakaba	1.1	NO_MODIFICATION_ALLOWED_ERR => {
13			-code => 7,
14			-subtype => {
15	wakaba	1.3	READ_ONLY_NODE_ERR => {
16			-description => q(Can't modify read-only node),
17			},
18	wakaba	1.1	READ_ONLY_NODE_LIST_ERR => {
19			-description => q(Can't modify read-only node list),
20			},
21			},
22			},
23	wakaba	1.4	NOT_SUPPORTED_ERR => {
24			-code => 9,
25			-subtype => {
26	wakaba	1.6	ADOPT_NODE_TYPE_NOT_SUPPORTED_ERR => {
27			-description => q(Can't adopt specified type of node),
28			},
29	wakaba	1.5	CLONE_NODE_TYPE_NOT_SUPPORTED_ERR => {
30			-description => q(Can't clone specified type of node),
31			},
32	wakaba	1.4	NON_HTML_OPERATION_ERR => {
33			-description => q(Can't apply to HTML document),
34			},
35			UNKNOWN_XML_VERSION_ERR => {
36			-description => q(Specified version of XML is not supported),
37			},
38			},
39			},
40			INUSE_ATTRIBUTE_ERR => {
41			-code => 10,
42			-description => q(Attribute is already in use),
43			},
44	wakaba	1.1	}} # ___error_def
45
46			package Message::IF::DOMException;
47	wakaba	1.2	push our @ISA, 'Message::Util::Error';
48	wakaba	1.1
49			## DOM1
50			sub INDEX_SIZE_ERR () { 1 }
51			sub DOMSTRING_SIZE_ERR () { 2 }
52			sub HIERARCHY_REQUEST_ERR () { 3 }
53			sub WRONG_DOCUMENT_ERR () { 4 }
54			sub INVALID_CHARACTER_ERR () { 5 }
55			sub NO_DATA_ALLOWED_ERR () { 6 }
56			sub NO_MODIFICATION_ALLOWED_ERR () { 7 }
57			sub NOT_FOUND_ERR () { 8 }
58			sub NOT_SUPPORTED_ERR () { 9 }
59			sub INUSE_ATTRIBUTE_ERR () { 10 }
60			## DOM2
61			sub INVALID_STATE_ERR () { 11 }
62			sub SYNTAX_ERR () { 12 }
63			sub INVALID_MODIFICATION_ERR () { 13 }
64			sub NAMESPACE_ERR () { 14 }
65			sub INVALID_ACCESS_ERR () { 15 }
66			## DOM3
67			sub VALIDATION_ERR () { 16 }
68			sub TYPE_MISMATCH_ERR () { 17 }
69
70			=head1 LICENSE
71
72			Copyright 2007 Wakaba <w@suika.fam.cx>
73
74			This program is free software; you can redistribute it and/or
75			modify it under the same terms as Perl itself.
76
77			=cut
78
79			1;
80	wakaba	1.6	## $Date: 2007/06/20 13:41:16 $