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

handlers within under the hierarchy.

5 files changed, 118 insertions, 7 deletions

diff --git a/fml/lib/IO/Adapter/Array.pm b/fml/lib/IO/Adapter/Array.pm
index 83aff3ab..7ec7c4d9 100644
--- a/fml/lib/IO/Adapter/Array.pm
+++ b/fml/lib/IO/Adapter/Array.pm
@@ -5,7 +5,7 @@
 #   redistribute it and/or modify it under the same terms as Perl itself. 
 #
 # $Id$
-# $FML$
+# $FML: Array.pm,v 1.17 2001/04/03 09:45:45 fukachan Exp $
 #
 
 package IO::Adapter::Array;
@@ -13,7 +13,7 @@ package IO::Adapter::Array;
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
-use ErrorMessages::Status qw(error_set error error_clear);
+use IO::Adapter::ErrorStatus qw(error_set error error_clear);
 
 =head1 NAME
 
diff --git a/fml/lib/IO/Adapter/DBI.pm b/fml/lib/IO/Adapter/DBI.pm
index 80575a63..4cb488ff 100644
--- a/fml/lib/IO/Adapter/DBI.pm
+++ b/fml/lib/IO/Adapter/DBI.pm
@@ -11,7 +11,7 @@ package IO::Adapter::DBI;
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
-use ErrorMessages::Status qw(error_set error error_clear);
+use IO::Adapter::ErrorStatus qw(error_set error error_clear);
 
 =head1 NAME
 
diff --git a/fml/lib/IO/Adapter/ErrorStatus.pm b/fml/lib/IO/Adapter/ErrorStatus.pm
new file mode 100644
index 00000000..fadc9aa8
--- /dev/null
+++ b/fml/lib/IO/Adapter/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 IO::Adapter::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
+
+IO::Adapter::ErrorStatus - error handling component
+
+=head1 SYNOPSIS
+
+Use this module in your C<Something> class module like this:
+
+   package Something;
+   use IO::Adapter::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
+
+IO::Adapter::ErrorStatus appeared in fml5 mailing list driver package.
+See C<http://www.fml.org/> for more details.
+
+=cut
+
+
+1;
diff --git a/fml/lib/IO/Adapter/File.pm b/fml/lib/IO/Adapter/File.pm
index 2207ac12..585209d8 100644
--- a/fml/lib/IO/Adapter/File.pm
+++ b/fml/lib/IO/Adapter/File.pm
@@ -5,7 +5,7 @@
 #   redistribute it and/or modify it under the same terms as Perl itself. 
 #
 # $Id$
-# $FML$
+# $FML: File.pm,v 1.20 2001/04/03 09:45:45 fukachan Exp $
 #
 
 package IO::Adapter::File;
@@ -13,7 +13,7 @@ package IO::Adapter::File;
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
-use ErrorMessages::Status qw(error_set error error_clear);
+use IO::Adapter::ErrorStatus qw(error_set error error_clear);
 
 =head1 NAME
 
diff --git a/fml/lib/IO/MapAdapter.pm b/fml/lib/IO/MapAdapter.pm
index 4bb96c99..a4bd118f 100644
--- a/fml/lib/IO/MapAdapter.pm
+++ b/fml/lib/IO/MapAdapter.pm
@@ -5,14 +5,14 @@
 #   redistribute it and/or modify it under the same terms as Perl itself. 
 #
 # $Id$
-# $FML$
+# $FML: MapAdapter.pm,v 1.26 2001/04/03 09:45:45 fukachan Exp $
 #
 
 package IO::MapAdapter;
 use vars qw(@ISA @ORIG_ISA $FirstTime);
 use strict;
 use Carp;
-use ErrorMessages::Status qw(error_set error error_clear);
+use IO::Adapter::ErrorStatus qw(error_set error error_clear);
 
 BEGIN {}
 END   {}