diff options
| author | fukachan <fukachan> | 2003-05-28 14:33:42 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-05-28 14:33:42 +0000 |
| commit | abb03e0988c3a3df59546994ba1b5cd14aa67283 (patch) | |
| tree | 9750a8f3141be24bd9bdb0412291232f59a03730 /fml/lib/FML/Error.pm | |
| parent | d542dd095de51d899027d425d0b596b914086b97 (diff) | |
| download | fml8-abb03e0988c3a3df59546994ba1b5cd14aa67283.tar.gz fml8-abb03e0988c3a3df59546994ba1b5cd14aa67283.tar.bz2 fml8-abb03e0988c3a3df59546994ba1b5cd14aa67283.zip | |
move main part of print() to FML::Error::Analyzer::* modules.
So, print() format depends on FML::Error::Analyzer::* class.
Diffstat (limited to 'fml/lib/FML/Error.pm')
| -rw-r--r-- | fml/lib/FML/Error.pm | 19 |
1 files changed, 3 insertions, 16 deletions
diff --git a/fml/lib/FML/Error.pm b/fml/lib/FML/Error.pm index 01a79f4f..8f4c2334 100644 --- a/fml/lib/FML/Error.pm +++ b/fml/lib/FML/Error.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: Error.pm,v 1.21 2003/05/20 13:49:04 fukachan Exp $ +# $FML: Error.pm,v 1.22 2003/05/28 13:14:04 fukachan Exp $ # package FML::Error; @@ -457,21 +457,8 @@ sub print if (defined $analyzer) { my $info = $analyzer->summary(); - my ($k, $v); - - while (($k, $v) = each %$info) { - if (defined($v) && ref($v) eq 'ARRAY') { - my $x = ''; - for my $y (@$v) { - $x .= $y if defined $y; - $x .= " "; - } - - printf $wh "%25s => (%s)\n", $k, $x; - } - else { - printf $wh "%25s => %s\n", $k, $v; - } + for my $k (keys %$info) { + $analyzer->print($k); } } } |