relocate error() et. al. definitions for each module to have each

handlers within under the hierarchy.

3 files changed, 226 insertions, 3 deletions

diff --git a/fml/lib/Mail/Bounce/ErrorStatus.pm b/fml/lib/Mail/Bounce/ErrorStatus.pm
new file mode 100644
index 00000000..220efe86
--- /dev/null
+++ b/fml/lib/Mail/Bounce/ErrorStatus.pm
@@ -0,0 +1,111 @@
+#-*- perl -*-
+#
+#  Copyright (C) 2001 Ken'ichi Fukamachi
+#   All rights reserved. This program is free software; you can
+#   redistribute it and/or modify it under the same terms as Perl itself. 
+#
+# $FML: Status.pm,v 1.3 2001/04/03 09:45:39 fukachan Exp $
+#
+
+package Mail::Bounce::ErrorStatus;
+
+use strict;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+use Carp;
+
+require Exporter;
+@ISA       = qw(Exporter);
+@EXPORT_OK = qw(errstr error error_set error_clear);
+
+=head1 NAME
+
+Mail::Bounce::ErrorStatus - error handling component
+
+=head1 SYNOPSIS
+
+Use this module in your C<Something> class module like this:
+
+   package Something;
+   use Mail::Bounce::ErrorStatus qw(errstr error error_set error_clear);
+
+   sub xxx
+   {
+      if something errors ...
+      $self->error_set( why this error occurs ... );
+   }
+
+You use C<Something> module like this.
+
+   use Something;
+   $obj = new Something;
+   $obj->xxx();
+   unless ($obj->error) { $obj->do_somting( ...); };
+
+=head1 DESCRIPTION
+
+simple utility functions to manipulate error messages.
+
+=head1 METHODS
+
+=head2 C<error_set($message)>
+
+save $message as an error message.
+
+=head2 C<error()>
+
+return $message which is saved by C<error_set($msg)>.
+
+=cut
+
+
+sub error_set
+{
+    my ($self, $mesg) = @_;
+    $self->{'_error_reason'} = $mesg;
+}
+
+
+sub error
+{
+    my ($self, $args) = @_;
+    return $self->{'_error_reason'};
+}
+
+
+sub errstr
+{
+    my ($self, $args) = @_;
+    return $self->{'_error_reason'};
+}
+
+
+sub error_clear
+{
+    my ($self, $args) = @_;
+    my $msg = $self->{'_error_reason'};
+    undef $self->{'_error_reason'} if defined $self->{'_error_reason'};
+    undef $self->{'_error_action'} if defined $self->{'_error_action'};
+    return $msg;
+}
+
+
+=head1 AUTHOR
+
+Ken'ichi Fukamachi
+
+=head1 COPYRIGHT
+
+Copyright (C) 2001 Ken'ichi Fukamachi
+
+All rights reserved. This program is free software; you can
+redistribute it and/or modify it under the same terms as Perl itself. 
+
+=head1 HISTORY
+
+Mail::Bounce::ErrorStatus appeared in fml5 mailing list driver package.
+See C<http://www.fml.org/> for more details.
+
+=cut
+
+
+1;
diff --git a/fml/lib/Mail/Delivery/ErrorStatus.pm b/fml/lib/Mail/Delivery/ErrorStatus.pm
new file mode 100644
index 00000000..2d0d86f9
--- /dev/null
+++ b/fml/lib/Mail/Delivery/ErrorStatus.pm
@@ -0,0 +1,111 @@
+#-*- perl -*-
+#
+#  Copyright (C) 2001 Ken'ichi Fukamachi
+#   All rights reserved. This program is free software; you can
+#   redistribute it and/or modify it under the same terms as Perl itself. 
+#
+# $FML: Status.pm,v 1.3 2001/04/03 09:45:39 fukachan Exp $
+#
+
+package Mail::Delivery::ErrorStatus;
+
+use strict;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+use Carp;
+
+require Exporter;
+@ISA       = qw(Exporter);
+@EXPORT_OK = qw(errstr error error_set error_clear);
+
+=head1 NAME
+
+Mail::Delivery::ErrorStatus - error handling component
+
+=head1 SYNOPSIS
+
+Use this module in your C<Something> class module like this:
+
+   package Something;
+   use Mail::Delivery::ErrorStatus qw(errstr error error_set error_clear);
+
+   sub xxx
+   {
+      if something errors ...
+      $self->error_set( why this error occurs ... );
+   }
+
+You use C<Something> module like this.
+
+   use Something;
+   $obj = new Something;
+   $obj->xxx();
+   unless ($obj->error) { $obj->do_somting( ...); };
+
+=head1 DESCRIPTION
+
+simple utility functions to manipulate error messages.
+
+=head1 METHODS
+
+=head2 C<error_set($message)>
+
+save $message as an error message.
+
+=head2 C<error()>
+
+return $message which is saved by C<error_set($msg)>.
+
+=cut
+
+
+sub error_set
+{
+    my ($self, $mesg) = @_;
+    $self->{'_error_reason'} = $mesg;
+}
+
+
+sub error
+{
+    my ($self, $args) = @_;
+    return $self->{'_error_reason'};
+}
+
+
+sub errstr
+{
+    my ($self, $args) = @_;
+    return $self->{'_error_reason'};
+}
+
+
+sub error_clear
+{
+    my ($self, $args) = @_;
+    my $msg = $self->{'_error_reason'};
+    undef $self->{'_error_reason'} if defined $self->{'_error_reason'};
+    undef $self->{'_error_action'} if defined $self->{'_error_action'};
+    return $msg;
+}
+
+
+=head1 AUTHOR
+
+Ken'ichi Fukamachi
+
+=head1 COPYRIGHT
+
+Copyright (C) 2001 Ken'ichi Fukamachi
+
+All rights reserved. This program is free software; you can
+redistribute it and/or modify it under the same terms as Perl itself. 
+
+=head1 HISTORY
+
+Mail::Delivery::ErrorStatus appeared in fml5 mailing list driver package.
+See C<http://www.fml.org/> for more details.
+
+=cut
+
+
+1;
diff --git a/fml/lib/Mail/Delivery/Utils.pm b/fml/lib/Mail/Delivery/Utils.pm
index 87b2c07d..62b3a298 100644
--- a/fml/lib/Mail/Delivery/Utils.pm
+++ b/fml/lib/Mail/Delivery/Utils.pm
@@ -4,15 +4,16 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself. 
 #
-# $FML: Utils.pm,v 1.1.1.1 2001/04/03 09:53:29 fukachan Exp $
+# $FML: Utils.pm,v 1.2 2001/04/08 00:40:53 fukachan Exp $
 #
 
 package Mail::Delivery::Utils;
+
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK 
 	    $LogFunctionPointer $SmtpLogFunctionPointer);
 use Carp;
-use ErrorMessages::Status qw(error_set error error_clear);
+use Mail::Delivery::ErrorStatus qw(error_set error error_clear);
 
 require Exporter;
 @ISA    = qw(Exporter);
@@ -328,7 +329,7 @@ redistribute it and/or modify it under the same terms as Perl itself.
 
 =head1 HISTORY
 
-Mail::Delivery::utils appeared in fml5 mailing list driver package.
+Mail::Delivery::Utils appeared in fml5 mailing list driver package.
 See C<http://www.fml.org/> for more details.
 
 =cut