summaryrefslogtreecommitdiff
path: root/fml/lib/File
diff options
context:
space:
mode:
authorfukachan <fukachan>2001-05-27 14:27:52 +0000
committerfukachan <fukachan>2001-05-27 14:27:52 +0000
commitca2923dd45188113437adc39455e91a30fe8cc5e (patch)
treec63c6e60a97f5d9bdda4a451b8c9d0054f66e18a /fml/lib/File
parentebecb4722efdea9668ee10dd41aa696d66505e48 (diff)
downloadfml8-ca2923dd45188113437adc39455e91a30fe8cc5e.tar.gz
fml8-ca2923dd45188113437adc39455e91a30fe8cc5e.tar.bz2
fml8-ca2923dd45188113437adc39455e91a30fe8cc5e.zip
clean up documentation
Diffstat (limited to 'fml/lib/File')
-rw-r--r--fml/lib/File/Sequence.pm8
-rw-r--r--fml/lib/File/Utils.pm9
2 files changed, 6 insertions, 11 deletions
diff --git a/fml/lib/File/Sequence.pm b/fml/lib/File/Sequence.pm
index e42a3801..be75d4a8 100644
--- a/fml/lib/File/Sequence.pm
+++ b/fml/lib/File/Sequence.pm
@@ -4,8 +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.
#
-# $Id$
-# $FML: Sequence.pm,v 1.6 2001/04/03 09:31:27 fukachan Exp $
+# $FML: Sequence.pm,v 1.7 2001/04/08 13:25:39 fukachan Exp $
#
package File::Sequence;
@@ -45,7 +44,7 @@ $id becomes 0, 1, 2, 0, 1, 2...
=head1 DESCRIPTION
File::Sequence module maintains the sequence number for something,
-for example, the article number.
+for example, the article number typically.
As an extension, you can generate a cyclic number by this module.
Please specify C<modulus> parameter in new() method if you want to get
@@ -64,9 +63,6 @@ increment the sequence number.
=cut
-require Exporter;
-@ISA = qw(Exporter);
-
# Descriptions: constructor
# Arguments: $self $args
diff --git a/fml/lib/File/Utils.pm b/fml/lib/File/Utils.pm
index 7899d91d..59a07d8e 100644
--- a/fml/lib/File/Utils.pm
+++ b/fml/lib/File/Utils.pm
@@ -4,8 +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.
#
-# $Id$
-# $File$
+# $FML$
#
package File::Utils;
@@ -20,7 +19,7 @@ require Exporter;
=head1 NAME
-File::Utils - utilities to handle files
+File::Utils - utilities to handle files or directories
=head1 SYNOPSIS
@@ -83,7 +82,7 @@ sub mkdirhier
=head2 C<touch($file, $mode)>
-create a file which is size zero if the file not exists.
+create a file (which size is 0) if the file not exists.
=cut
@@ -172,7 +171,7 @@ sub search_program
=head2 C<copy($src, $dst)>
-copy C<$src> to C<$dst> in the atomic way.
+copy C<$src> to C<$dst> in atomic way.
This routine uses C<IO::File::Atomic> module.
=cut