replace() method and the checker

1 files changed, 24 insertions, 2 deletions

diff --git a/fml/lib/IO/MapAdapter.pm b/fml/lib/IO/MapAdapter.pm
index 7541a247..d4a690dd 100644
--- a/fml/lib/IO/MapAdapter.pm
+++ b/fml/lib/IO/MapAdapter.pm
@@ -230,6 +230,10 @@ add $address to the specified map.
 
 delete lines which matches $regexp from this map.
 
+=head2 C<regexp( $regexp, $value )>
+
+replace lines which matches $regexp with $value.
+
 =cut
 
 
@@ -257,10 +261,10 @@ sub add
 # Return Value: none
 sub delete
 {
-    my ($self, $address) = @_;
+    my ($self, $regexp) = @_;
 
     if ($self->can('delete')) {
-	$self->SUPER::delete($address);
+	$self->SUPER::delete($regexp);
     }
     else {
 	$self->_error_reason("Error: delete() method is not supported.");
@@ -269,6 +273,24 @@ sub delete
 }
 
 
+# Descriptions: 
+#    Arguments: $self $regexp $value
+# Side Effects: 
+# Return Value: none
+sub replace
+{
+    my ($self, $regexp, $value) = @_;
+
+    if ($self->can('replace')) {
+	$self->SUPER::replace($regexp, $value);
+    }
+    else {
+	$self->_error_reason("Error: replace() method is not supported.");
+	undef;
+    }
+}
+
+
 # Descriptions: destructor
 #               request is forwarded to close() method.
 #    Arguments: $self $args