diff options
| author | fukachan <fukachan> | 2002-06-01 03:29:09 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-06-01 03:29:09 +0000 |
| commit | 2ff7fd7271150724acdc895c57a66fadbe1d963c (patch) | |
| tree | 89a473f09f1e7236588f817681db0d95d49e5d8d /fml/lib/IO/Adapter/ErrorStatus.pm | |
| parent | 79d8ab97822af34edc1985e33fb14f209c63676c (diff) | |
| download | fml8-2ff7fd7271150724acdc895c57a66fadbe1d963c.tar.gz fml8-2ff7fd7271150724acdc895c57a66fadbe1d963c.tar.bz2 fml8-2ff7fd7271150724acdc895c57a66fadbe1d963c.zip | |
FNF
remove not-used argument declaration
Diffstat (limited to 'fml/lib/IO/Adapter/ErrorStatus.pm')
| -rw-r--r-- | fml/lib/IO/Adapter/ErrorStatus.pm | 28 |
1 files changed, 22 insertions, 6 deletions
diff --git a/fml/lib/IO/Adapter/ErrorStatus.pm b/fml/lib/IO/Adapter/ErrorStatus.pm index f4deee24..87451a1d 100644 --- a/fml/lib/IO/Adapter/ErrorStatus.pm +++ b/fml/lib/IO/Adapter/ErrorStatus.pm @@ -1,10 +1,10 @@ #-*- perl -*- # -# Copyright (C) 2001 Ken'ichi Fukamachi +# Copyright (C) 2001,2002 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.1 2001/04/08 13:25:40 fukachan Exp $ +# $FML$ # package IO::Adapter::ErrorStatus; @@ -58,6 +58,10 @@ 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) = @_; @@ -65,23 +69,35 @@ sub error_set } +# Descriptions: get the error message +# Arguments: OBJ($self) +# Side Effects: none +# Return Value: STR sub error { - my ($self, $args) = @_; + my ($self) = @_; return $self->{'_error_reason'}; } +# Descriptions: get the error message +# Arguments: OBJ($self) +# Side Effects: none +# Return Value: STR sub errstr { - my ($self, $args) = @_; + 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, $args) = @_; + 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'}; @@ -95,7 +111,7 @@ Ken'ichi Fukamachi =head1 COPYRIGHT -Copyright (C) 2001 Ken'ichi Fukamachi +Copyright (C) 2001,2002 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. |