Message/DOM/EventException.pm

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

sub ___error_def () {+{
  UNSPECIFIED_EVENT_TYPE_ERR => {
    -code => 0,
    -description => q(Event type is not specified),
  },
  DISPATCH_REQUEST_ERR => {
    -code => 1,
    -description => q(The event is already dispatched),
  },
}} # ___error_def

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

sub UNSPECIFIED_EVENT_TYPE_ERR () { 0 }
sub DISPATCH_REQUEST_ERR () { 1 }

=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/09/24 10:16:14 $
1	wakaba	1.1	package Message::DOM::EventException;
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::EventException';
5			require Message::Util::Error;
6
7			sub ___error_def () {+{
8			UNSPECIFIED_EVENT_TYPE_ERR => {
9			-code => 0,
10			-description => q(Event type is not specified),
11			},
12			DISPATCH_REQUEST_ERR => {
13			-code => 1,
14			-description => q(The event is already dispatched),
15			},
16			}} # ___error_def
17
18			package Message::IF::EventException;
19			push our @ISA, 'Message::Util::Error';
20
21			sub UNSPECIFIED_EVENT_TYPE_ERR () { 0 }
22			sub DISPATCH_REQUEST_ERR () { 1 }
23
24			=head1 LICENSE
25
26			Copyright 2007 Wakaba <w@suika.fam.cx>
27
28			This program is free software; you can redistribute it and/or
29			modify it under the same terms as Perl itself.
30
31			=cut
32
33			1;
34			## $Date: 2007/09/24 10:16:14 $