fix comments.

1 files changed, 9 insertions, 9 deletions

diff --git a/fml/lib/FML/Log/Print/Simple.pm b/fml/lib/FML/Log/Print/Simple.pm
index c9d3a8cb..62818e15 100644
--- a/fml/lib/FML/Log/Print/Simple.pm
+++ b/fml/lib/FML/Log/Print/Simple.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: Simple.pm,v 1.1 2003/11/29 10:24:26 fukachan Exp $
+# $FML: Simple.pm,v 1.2 2003/11/30 10:13:21 fukachan Exp $
 #
 
 package FML::Log::Print::Simple;
@@ -14,7 +14,7 @@ use Carp;
 
 =head1 NAME
 
-FML::Log::Print::Simple - simplest engine
+FML::Log::Print::Simple - simplest print out engine
 
 =head1 SYNOPSIS
 
@@ -29,7 +29,7 @@ FML::Log::Print::Simple - simplest engine
 
 # Descriptions: constructor.
 #    Arguments: OBJ($self)
-# Side Effects: none
+# Side Effects: prepare queue object.
 # Return Value: OBJ
 sub new
 {
@@ -44,9 +44,9 @@ sub new
 }
 
 
-# Descriptions: add message to message queue
+# Descriptions: add message to message queue.
 #    Arguments: OBJ($self) OBJ($msg)
-# Side Effects: none
+# Side Effects: update queue.
 # Return Value: none
 sub add
 {
@@ -56,14 +56,14 @@ sub add
 }
 
 
-# Descriptions: output
+# Descriptions: print out to STDOUT.
 #    Arguments: OBJ($self)
 # Side Effects: none
 # Return Value: none
 sub print
 {
     my ($self)   = @_;
-    my $queue = $self->{ _queue };
+    my $queue    = $self->{ _queue };
     my $msg_list = $queue->list();
     my ($buf);
 
@@ -81,11 +81,11 @@ See C<http://www.fml.org/software/FNF/> on fml coding style guide.
 
 =head1 AUTHOR
 
-__YOUR_NAME__
+Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2003 __YOUR_NAME__
+Copyright (C) 2003 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.