clean up documents

move FML::String to Dialect::ISO2022JP (Dialect::Japanese::String)

3 files changed, 23 insertions, 99 deletions

diff --git a/fml/lib/FML/Date.pm b/fml/lib/FML/Date.pm
index 1e871aba..eeea51da 100644
--- a/fml/lib/FML/Date.pm
+++ b/fml/lib/FML/Date.pm
@@ -35,9 +35,10 @@ The style you use follows:
     precise_current_time        20010107210619
 
 
-=head1 METHOD
+=head1 METHODS
 
 You can also method like $date->$style() style.
+specify the C<style> name described above as a method.
 
 =item    log_file_style()
 
@@ -51,10 +52,11 @@ You can also method like $date->$style() style.
 
 =item    stardate()
 
-return STAR TREK stardate.
+return STAR TREK stardate :-)
 
 =cut
 
+
 require Exporter;
 use vars qw($TimeZone);
 @ISA = qw(Exporter);
@@ -200,4 +202,23 @@ sub stardate
 }
 
 
+=head1 AUTHOR
+
+Ken'ichi Fukamachi
+
+=head1 COPYRIGHT
+
+Copyright (C) 2001 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. 
+
+=head1 HISTORY
+
+FML::Date appeared in fml5 mailing list driver package.
+See C<http://www.fml.org/> for more details.
+
+=cut
+
+
 1;
diff --git a/fml/lib/FML/String.pm b/fml/lib/FML/String.pm
deleted file mode 100644
index 36dca505..00000000
--- a/fml/lib/FML/String.pm
+++ /dev/null
@@ -1,91 +0,0 @@
-#-*- perl -*-
-#
-#  Copyright (C) 2000 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. 
-#
-# $Id$
-# $FML$
-#
-
-package FML::String;
-use strict;
-use Carp;
-use vars qw(@ISA @EXPORT @EXPORT_OK);
-
-=head1 NAME
-
-FML::String -- utilities to manipulate strings
-
-=head1 SYNOPSIS
-
-    use FML::String qw(STR2JIS);
-    $euc_str = STR2JIS($str);
-
-=head1 METHOD
-
-=head2 C<STR2JIS(string)>
-
-convert CHARSET of the given string to JIS.
-
-=head2 C<STR2EUC(string)>
-
-convert CHARSET of the given string to EUC.
-
-=head2 C<STR2SJIS(string)>
-
-convert CHARSET of the given string to SJIS.
-
-=cut
-
-
-require Exporter;
-@ISA       = qw(Exporter); 
-@EXPORT_OK = qw(STR2JIS STR2EUC STR2SJIS);
-
-use Jcode;
-
-
-sub STR2EUC
-{
-    my ($str) = @_;
-    &Jcode::convert(\$str, 'euc');
-    $str;
-}
-
-
-sub STR2JIS
-{
-    my ($str) = @_;
-    &Jcode::convert(\$str, 'jis');
-    $str;
-}
-
-
-sub STR2SJIS
-{
-    my ($str) = @_;
-    &Jcode::convert(\$str, 'sjis');
-    $str;
-}
-
-
-=head1 AUTHOR
-
-Ken'ichi Fukamachi
-
-=head1 COPYRIGHT
-
-Copyright (C) 2001 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. 
-
-=head1 HISTORY
-
-FML::String appeared in fml5 mailing list driver package.
-See C<http://www.fml.org/> for more details.
-
-=cut
-
-1;
diff --git a/fml/lib/FML/index.ja.html b/fml/lib/FML/index.ja.html
index ba4f0915..e2bd0737 100644
--- a/fml/lib/FML/index.ja.html
+++ b/fml/lib/FML/index.ja.html
@@ -98,12 +98,6 @@ FML::* classes
  <A HREF=Process/index.ja.html>FML::Process::* class</A>
 <TR>
 <TD>
- FML::String <TD>
-<A HREF="String.pm">[source]</A>
-<TD>
-<A HREF="@@doc/String.txt">[doc]</A>
-<TR>
-<TD>
  <A HREF=Ticket/index.ja.html>FML::Ticket::* class</A>
 </TABLE>
 </BODY>