remove not used method:

- get_value_as_str()
- get_value_as_array_ref()

3 files changed, 3 insertions, 163 deletions

diff --git a/fml/lib/IO/Adapter/Array.pm b/fml/lib/IO/Adapter/Array.pm
index d0ce803f..de3329d4 100644
--- a/fml/lib/IO/Adapter/Array.pm
+++ b/fml/lib/IO/Adapter/Array.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Array.pm,v 1.29 2003/02/11 09:48:17 fukachan Exp $
+# $FML: Array.pm,v 1.30 2003/02/11 11:37:47 fukachan Exp $
 #
 
 package IO::Adapter::Array;
@@ -141,44 +141,6 @@ sub get_next_key
 }
 
 
-=head2 get_value_as_str($key)
-
-return values corresponding with the specified key as string.
-
-   key => "value1 value2 value3"
-
-=head2 get_value_as_array_ref($key)
-
-return values corresponding with the specified key as array_ref.
-
-   key => [ value1 value2 value3 ]
-
-=cut
-
-# Descriptions: return value corresponding with the specified key as STR.
-#    Arguments: OBJ($self) STR($key)
-# Side Effects: none
-# Return Value: STR
-sub get_value_as_str
-{
-    my ($self, $key) = @_;
-
-    # XXX-TODO NOT IMPLEMENTED
-}
-
-
-# Descriptions: return value corresponding with the specified key as ARRAY_REF.
-#    Arguments: OBJ($self) STR($key)
-# Side Effects: none
-# Return Value: ARRAY_REF
-sub get_value_as_array_ref
-{
-    my ($self, $key) = @_;
-
-    # XXX-TODO NOT IMPLEMENTED
-}
-
-
 =head2 C<getpos()>
 
 return the current position in the array.
diff --git a/fml/lib/IO/Adapter/DBI.pm b/fml/lib/IO/Adapter/DBI.pm
index f1e6fa85..11a8a09a 100644
--- a/fml/lib/IO/Adapter/DBI.pm
+++ b/fml/lib/IO/Adapter/DBI.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2000,2001,2002,2003 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: DBI.pm,v 1.24 2003/02/01 10:55:04 fukachan Exp $
+# $FML: DBI.pm,v 1.25 2003/02/11 11:37:48 fukachan Exp $
 #
 
 package IO::Adapter::DBI;
@@ -258,45 +258,6 @@ sub _fetch_all
 }
 
 
-=head2 get_value_as_str($key)
-
-return values corresponding with the specified key as string.
-
-   key => "value1 value2 value3"
-
-=head2 get_value_as_array_ref($key)
-
-return values corresponding with the specified key as array_ref.
-
-   key => [ value1 value2 value3 ]
-
-=cut
-
-
-# Descriptions: return value corresponding with the specified key as STR.
-#    Arguments: OBJ($self) STR($key)
-# Side Effects: none
-# Return Value: STR
-sub get_value_as_str
-{
-    my ($self, $key) = @_;
-
-    # XXX-TODO NOT IMPLEMENTED
-}
-
-
-# Descriptions: return value corresponding with the specified key as ARRAY_REF.
-#    Arguments: OBJ($self) STR($key)
-# Side Effects: none
-# Return Value: ARRAY_REF
-sub get_value_as_array_ref
-{
-    my ($self, $key) = @_;
-
-    # XXX-TODO NOT IMPLEMENTED
-}
-
-
 =head2 add($addr)
 
 =head2 delete($addr)
diff --git a/fml/lib/IO/Adapter/File.pm b/fml/lib/IO/Adapter/File.pm
index 2d4338ea..2cede934 100644
--- a/fml/lib/IO/Adapter/File.pm
+++ b/fml/lib/IO/Adapter/File.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: File.pm,v 1.44 2003/01/11 15:22:26 fukachan Exp $
+# $FML: File.pm,v 1.45 2003/02/01 08:48:07 fukachan Exp $
 #
 
 package IO::Adapter::File;
@@ -266,89 +266,6 @@ sub _get_next_xxx
 }
 
 
-=head2 get_value_as_str($key)
-
-return value(s) for the next key as STR.
-
-=head2 get_value_as_array_ref($key)
-
-return value(s) for the next key as ARRAY_REF.
-
-=cut
-
-
-# Descriptions: return value(s) for the next key
-#    Arguments: OBJ($self) STR($key)
-# Side Effects: none
-# Return Value: STR
-sub get_value_as_str
-{
-    my ($self, $key) = @_;
-    $self->_get_value($key, 'value_as_array_str');
-}
-
-
-# Descriptions: return value(s) for the next key
-#    Arguments: OBJ($self) STR($key)
-# Side Effects: none
-# Return Value: ARRAY_REF
-sub get_value_as_array_ref
-{
-    my ($self, $key) = @_;
-    $self->_get_value($key, 'value_as_array_ref');
-}
-
-
-# Descriptions: return value(s) for the next key.
-#               XXX "key" should be uniq since "key" is used as a primary key.
-#    Arguments: OBJ($self) STR($key) STR($style)
-# Side Effects: none
-# Return Value: STR or ARRAY_REF
-sub _get_value
-{
-    my ($self, $key, $style) = @_;
-    my $xkey   = '';
-    my $buf    = '';
-    my $curpos = $self->getpos();
-
-    my $fh = $self->{_fh};
-    if (defined $fh) {
-	my $xbuf;
-
-	$self->setpos(0);
-
-      LOOP:
-	while ($xbuf = <$fh>) {
-	    ($xkey, $buf) = split(/\s+/, $xbuf, 2);
-	    if ($key eq $xkey) { last LOOP;}
-	}
-
-	$fh->close();
-
-	if ($style eq 'value_as_str') {
-	    return $buf
-	}
-
-	if ($style eq 'value_as_array_ref') {
-	    $buf =~ s/^\s*//;
-	    $buf =~ s/\s*$//;
-	    my @a = split(/\s+/, $buf);
-
-	    $self->setpos( $curpos );
-	    return \@a;
-	}
-
-    }
-    else {
-	carp("cannot defined \$fh");
-    }
-
-
-    $self->setpos( $curpos );
-    return $buf;
-}
-
-
 =head2 C<getpos()>
 
 get the position in the opened file.