| Subject: | Missing log levels in loop |
foreach my $l (qw/debug info warn error fatal/) {
my $name = $l;
$name = 'warning' if ( $name eq 'warn' );
$name = 'critical' if ( $name eq 'fatal' );
Log::Dispatch has more log levels than this. This is missing "notice
alert emergency". The synonyms are also missing: "err crit emerg", but
you have warn/fatal.
As it is now, the notices are going unbuffered, and the rest come in
AFTERWARDS, which makes things really off-sync.