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	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 $