Message/DOM/DOMException.pm

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

sub ___error_def () {+{
  NO_MODIFICATION_ALLOWED_ERR => {
    -code => 7,
    -subtype => {
      READ_ONLY_NODE_LIST_ERR => {
        -description => q(Can't modify read-only node list),
      },
    },
  },
}} # ___error_def

package Message::IF::DOMException;

## 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/15 16:12:28 $
1	wakaba	1.1	package Message::DOM::DOMException;
2			use strict;
3			our $VERSION=do{my @r=(q$Revision: 1.3 $=~/\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			NO_MODIFICATION_ALLOWED_ERR => {
9			-code => 7,
10			-subtype => {
11			READ_ONLY_NODE_LIST_ERR => {
12			-description => q(Can't modify read-only node list),
13			},
14			},
15			},
16			}} # ___error_def
17
18			package Message::IF::DOMException;
19
20			## DOM1
21			sub INDEX_SIZE_ERR () { 1 }
22			sub DOMSTRING_SIZE_ERR () { 2 }
23			sub HIERARCHY_REQUEST_ERR () { 3 }
24			sub WRONG_DOCUMENT_ERR () { 4 }
25			sub INVALID_CHARACTER_ERR () { 5 }
26			sub NO_DATA_ALLOWED_ERR () { 6 }
27			sub NO_MODIFICATION_ALLOWED_ERR () { 7 }
28			sub NOT_FOUND_ERR () { 8 }
29			sub NOT_SUPPORTED_ERR () { 9 }
30			sub INUSE_ATTRIBUTE_ERR () { 10 }
31			## DOM2
32			sub INVALID_STATE_ERR () { 11 }
33			sub SYNTAX_ERR () { 12 }
34			sub INVALID_MODIFICATION_ERR () { 13 }
35			sub NAMESPACE_ERR () { 14 }
36			sub INVALID_ACCESS_ERR () { 15 }
37			## DOM3
38			sub VALIDATION_ERR () { 16 }
39			sub TYPE_MISMATCH_ERR () { 17 }
40
41			=head1 LICENSE
42
43			Copyright 2007 Wakaba <w@suika.fam.cx>
44
45			This program is free software; you can redistribute it and/or
46			modify it under the same terms as Perl itself.
47
48			=cut
49
50			1;
51			## $Date: 2007/06/15 16:12:28 $