removed

1 files changed, 0 insertions, 165 deletions

diff --git a/fml/lib/Mail/Delivery/ErrorStatus.pm b/fml/lib/Mail/Delivery/ErrorStatus.pm
deleted file mode 100644
index cca329fd..00000000
--- a/fml/lib/Mail/Delivery/ErrorStatus.pm
+++ /dev/null
@@ -1,165 +0,0 @@
-#-*- perl -*-
-#
-#  Copyright (C) 2001,2002,2003,2004,2006 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: ErrorStatus.pm,v 1.9 2004/06/29 10:05:29 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
-		get_error set_error);
-
-=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 set_error($msg)
-
-set the error message.
-
-=head2 get_error()
-
-get the error message.
-
-=cut
-
-
-# Descriptions: set the error message.
-#    Arguments: OBJ($self) STR($mesg)
-# Side Effects: update OBJ
-# Return Value: STR
-sub set_error
-{
-    my ($self, $mesg) = @_;
-    $self->error_set($mesg);
-}
-
-
-# Descriptions: get the error message.
-#    Arguments: OBJ($self)
-# Side Effects: none
-# Return Value: STR
-sub get_error
-{
-    my ($self) = @_;
-    $self->error();
-}
-
-
-=head2 error_set($message)
-
-save $message as an error message.
-
-=head2 error()
-
-return $message which is saved by C<error_set($msg)>.
-
-=cut
-
-
-# Descriptions: set the error message.
-#    Arguments: OBJ($self) STR($mesg)
-# Side Effects: update OBJ
-# Return Value: STR
-sub error_set
-{
-    my ($self, $mesg) = @_;
-    $self->{'_error_reason'} = $mesg;
-}
-
-
-# Descriptions: get the error message.
-#    Arguments: OBJ($self)
-# Side Effects: none
-# Return Value: STR
-sub error
-{
-    my ($self) = @_;
-    return $self->{'_error_reason'};
-}
-
-
-# Descriptions: get the error message.
-#    Arguments: OBJ($self)
-# Side Effects: none
-# Return Value: STR
-sub errstr
-{
-    my ($self) = @_;
-    return $self->{'_error_reason'};
-}
-
-
-# Descriptions: clear the error message.
-#    Arguments: OBJ($self)
-# Side Effects: none
-# Return Value: STR
-sub error_clear
-{
-    my ($self) = @_;
-    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 CODING STYLE
-
-See C<http://www.fml.org/software/FNF/> on fml coding style guide.
-
-=head1 AUTHOR
-
-Ken'ichi Fukamachi
-
-=head1 COPYRIGHT
-
-Copyright (C) 2001,2002,2003,2004,2006 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 first appeared in fml8 mailing list driver package.
-See C<http://www.fml.org/> for more details.
-
-=cut
-
-
-1;