diff options
| author | fukachan <fukachan> | 2001-03-11 10:39:11 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-03-11 10:39:11 +0000 |
| commit | dd09336a2cf42110ae118053327931404226b2ed (patch) | |
| tree | 26a3010114af5e78b2cfd4bee3ade6153e23020e /fml/lib/IO/MapAdapter.pm | |
| parent | 6bfd3ba7c24f13f796c9d5a8950f97395624d724 (diff) | |
| download | fml8-dd09336a2cf42110ae118053327931404226b2ed.tar.gz fml8-dd09336a2cf42110ae118053327931404226b2ed.tar.bz2 fml8-dd09336a2cf42110ae118053327931404226b2ed.zip | |
implement add() method
Diffstat (limited to 'fml/lib/IO/MapAdapter.pm')
| -rw-r--r-- | fml/lib/IO/MapAdapter.pm | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/fml/lib/IO/MapAdapter.pm b/fml/lib/IO/MapAdapter.pm index fc593a63..6fa4e19d 100644 --- a/fml/lib/IO/MapAdapter.pm +++ b/fml/lib/IO/MapAdapter.pm @@ -219,6 +219,28 @@ sub get_active { my ($self) = @_; $self->get_next_value;} sub get_recipient { my ($self) = @_; $self->get_next_value;} +=head2 C<add( $address )> + + +# Descriptions: +# Arguments: $self $args +# Side Effects: +# Return Value: none +sub add +{ + my ($self, $addr) = @_; + + if ($self->SUPER::can('add')) { + $self->SUPER::add($addr); + } + else { + $self->_error_reason("Error: add() method is not supported."); + undef; + } +} + +=cut + # Descriptions: destructor # request is forwarded to close() method. # Arguments: $self $args |