Renaissance
sub log { my ( $self, @msgs ) = @_; unshift( @msgs, $self->level ) unless $msgs[0] ~~ \@LEVELS; my $level_name = shift(@msgs); my ($level_pos) = grep { $LEVELS[$_] eq $level_name } 0 .. $#LEVELS; my ($level_max) = grep { $LEVELS[$_] eq $self->level } 0 .. $#LEVELS; syslog( $level_name, map { encode_utf8($_) } @msgs ); }