clean up doc

2 files changed, 39 insertions, 27 deletions

diff --git a/fml/lib/IO/Adapter/NIS.pm b/fml/lib/IO/Adapter/NIS.pm
index b2daa7f3..1b7ded31 100644
--- a/fml/lib/IO/Adapter/NIS.pm
+++ b/fml/lib/IO/Adapter/NIS.pm
@@ -17,6 +17,7 @@ use IO::Adapter::Array;
 
 @ISA = qw(IO::Adapter::Array);
 
+
 sub configure
 {
     my ($self, $me) = @_;
@@ -30,22 +31,40 @@ sub configure
 }
 
 
-
 =head1 NAME
 
-IO::Adapter::NIS.pm - what is this
+IO::Adapter::NIS.pm - NIS map definition under IO::MapAdapter
 
 =head1 SYNOPSIS
 
+    $map = 'nis.group:fml';
+
+    use IO::MapAdapter;
+    $obj = new IO::MapAdapter $map;
+    $obj->open || croak("cannot open $map");
+    while ($x = $obj->getline) { ... }
+    $obj->close;
+
+/etc/group has C<fml> entry like this:
+
+  fml:*:1000:fukachan
+
+
 =head1 DESCRIPTION
 
-=head1 CLASSES
+fake IO for 
+NIS (Network Information System, its old name is Yellow Page).
+See L<IO::Adapter::Array> for more details.
+
+C<CAUTION: this map is read only>.
 
 =head1 METHODS
 
-=item C<new()>
+See L<IO::Adapter::Array>
 
-... what is this ...
+=head1 SEE ALSO
+
+L<IO::Adapter::Array>
 
 =head1 AUTHOR
 
@@ -65,4 +84,5 @@ See C<http://www.fml.org/> for more details.
 
 =cut
 
+
 1;
diff --git a/fml/lib/IO/Adapter/RDBMS.pm b/fml/lib/IO/Adapter/RDBMS.pm
index 5ad510ae..a21b487e 100644
--- a/fml/lib/IO/Adapter/RDBMS.pm
+++ b/fml/lib/IO/Adapter/RDBMS.pm
@@ -13,39 +13,30 @@ use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
 
-require Exporter;
-@ISA = qw(Exporter);
-
-
-sub new
-{
-    my ($self) = @_;
-    my ($type) = ref($self) || $self;
-    my $me     = {};
-    return bless $me, $type;
-}
-
-
-#####
-##### This is just a dummy yet now.
-#####
-
 
 =head1 NAME
 
-IO::Adapter::RDBMS.pm - what is this
+IO::Adapter::RDBMS.pm - IO with SQL databases
 
 =head1 SYNOPSIS
 
+... not yet ...
+
 =head1 DESCRIPTION
 
-=head1 CLASSES
+... not yet ...
 
-=head1 METHODS
+=cut
 
-=item C<new()>
 
-... what is this ...
+sub new
+{
+    my ($self) = @_;
+    my ($type) = ref($self) || $self;
+    my $me     = {};
+    return bless $me, $type;
+}
+
 
 =head1 AUTHOR
 
@@ -65,4 +56,5 @@ See C<http://www.fml.org/> for more details.
 
 =cut
 
+
 1;