diff options
| author | fukachan <fukachan> | 2003-10-15 01:03:27 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-10-15 01:03:27 +0000 |
| commit | 1b370892c9c5af0aabda61cd7ff1d6c15347b902 (patch) | |
| tree | b466798f77bf17af818809b01ecff765360cc7ec /fml/lib/FML/Error | |
| parent | c086a07a0e8e7e88e77e3a75d2174dac70bf1e12 (diff) | |
| download | fml8-1b370892c9c5af0aabda61cd7ff1d6c15347b902.tar.gz fml8-1b370892c9c5af0aabda61cd7ff1d6c15347b902.tar.bz2 fml8-1b370892c9c5af0aabda61cd7ff1d6c15347b902.zip | |
space cosmetics
Diffstat (limited to 'fml/lib/FML/Error')
| -rw-r--r-- | fml/lib/FML/Error/Analyze.pm | 12 | ||||
| -rw-r--r-- | fml/lib/FML/Error/Analyze/histgram.pm | 4 | ||||
| -rw-r--r-- | fml/lib/FML/Error/Analyze/simple_count.pm | 4 | ||||
| -rw-r--r-- | fml/lib/FML/Error/Cache.pm | 4 |
4 files changed, 12 insertions, 12 deletions
diff --git a/fml/lib/FML/Error/Analyze.pm b/fml/lib/FML/Error/Analyze.pm index 8f9d85b9..6a43dced 100644 --- a/fml/lib/FML/Error/Analyze.pm +++ b/fml/lib/FML/Error/Analyze.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: Analyze.pm,v 1.22 2003/08/23 04:35:34 fukachan Exp $ +# $FML: Analyze.pm,v 1.23 2003/08/23 07:24:44 fukachan Exp $ # package FML::Error::Analyze; @@ -53,7 +53,7 @@ return summary of points of addresses as HASH_REF. $summary = { address1 => point, - address2 => point, + address2 => point, }; =head2 removal_address() @@ -63,7 +63,7 @@ return addresses to be removed. =cut -# Descriptions: return summary +# Descriptions: return summary # Arguments: OBJ($self) # Side Effects: none # Return Value: HASH_REF @@ -89,7 +89,7 @@ sub removal_address { my ($self) = @_; my $analyzer = $self->{ _analyzer }; - + if (defined $analyzer) { return $analyzer->removal_address(); } @@ -107,7 +107,7 @@ sub print { my ($self, $addr) = @_; my $analyzer = $self->{ _analyzer }; - + if (defined $analyzer) { return $analyzer->print($addr); } @@ -162,7 +162,7 @@ sub AUTOLOAD =head1 $data STRUCTURE -C<$data> is passed to the error analyer function +C<$data> is passed to the error analyer function C<FML::Error::Analyze::${fp}> (as $anal_args in AUTOLOAD()). $data = { diff --git a/fml/lib/FML/Error/Analyze/histgram.pm b/fml/lib/FML/Error/Analyze/histgram.pm index 41304f77..1a704369 100644 --- a/fml/lib/FML/Error/Analyze/histgram.pm +++ b/fml/lib/FML/Error/Analyze/histgram.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: histgram.pm,v 1.3 2003/08/23 04:35:35 fukachan Exp $ +# $FML: histgram.pm,v 1.4 2003/08/23 07:24:45 fukachan Exp $ # package FML::Error::Analyze::histgram; @@ -220,7 +220,7 @@ sub print my $y = ''; for my $y (@$bufarray) { - $x .= defined $y ? $y : 0; + $x .= defined $y ? $y : 0; $x .= " "; } diff --git a/fml/lib/FML/Error/Analyze/simple_count.pm b/fml/lib/FML/Error/Analyze/simple_count.pm index 5721395a..55757b33 100644 --- a/fml/lib/FML/Error/Analyze/simple_count.pm +++ b/fml/lib/FML/Error/Analyze/simple_count.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_count.pm,v 1.2 2003/05/28 14:33:44 fukachan Exp $ +# $FML: simple_count.pm,v 1.3 2003/08/23 04:35:35 fukachan Exp $ # package FML::Error::Analyze::simple_count; @@ -14,7 +14,7 @@ use Carp; use FML::Log qw(Log LogWarn LogError); my $debug = 1; - + =head1 NAME diff --git a/fml/lib/FML/Error/Cache.pm b/fml/lib/FML/Error/Cache.pm index 5d78aa80..0abab348 100644 --- a/fml/lib/FML/Error/Cache.pm +++ b/fml/lib/FML/Error/Cache.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: Cache.pm,v 1.13 2003/08/23 14:38:00 fukachan Exp $ +# $FML: Cache.pm,v 1.14 2003/08/29 15:34:03 fukachan Exp $ # package FML::Error::Cache; @@ -97,7 +97,7 @@ sub close { 1;} sub touch { 1;} -=head2 add($address, $argv) +=head2 add($address, $argv) add data given as hash reference $argv. |
