Base::

1 files changed, 93 insertions, 0 deletions

diff --git a/fml/lib/Base/Errors.pm b/fml/lib/Base/Errors.pm
new file mode 100644
index 00000000..f3d8fcda
--- /dev/null
+++ b/fml/lib/Base/Errors.pm
@@ -0,0 +1,93 @@
+#-*- 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. 
+#
+# $Id$
+# $FML$
+#
+
+package Base::Errors;
+use strict;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+use Carp;
+
+require Exporter;
+@ISA       = qw(Exporter);
+@EXPORT_OK = qw(error_reason error error_reset);
+
+=head1 NAME
+
+Base::Errors.pm - error handling utilities
+
+=head1 SYNOPSIS
+
+	package Something;
+	use Base::Errors qw(error_reason error error_reset);
+
+	sub xxx
+	{
+		if something errors ...
+		$self->error_reason( error reason );
+	}
+
+When you use Something module,
+
+	use Something;
+	$obj = new Something;
+	unless ($obj->error) { $obj->do_somting( ...); };
+
+
+=head1 DESCRIPTION
+
+=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
+
+Base::Errors.pm appeared in fml5.
+
+=cut
+
+
+sub _error_why
+{
+    my ($self, $mesg) = @_;
+    $self->{'_error_reason'} = $mesg;
+}
+
+
+sub error_reason
+{
+    my ($self, $mesg) = @_;
+    $self->_error_why($mesg);
+}
+
+
+sub error
+{
+    my ($self, $args) = @_;
+    return $self->{'_error_reason'};
+}
+
+
+sub error_reset
+{
+    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;
+}
+
+
+1;