From 07047c00ea6ed8bd839099d635cc9c57fbc5e84b Mon Sep 17 00:00:00 2001 From: Paul Buetow Date: Thu, 21 Apr 2022 23:04:13 +0100 Subject: threaded logger nyi --- lib/PerlDaemon/ThreadedLogger.pm | 45 ---------------------------------------- 1 file changed, 45 deletions(-) delete mode 100644 lib/PerlDaemon/ThreadedLogger.pm (limited to 'lib') diff --git a/lib/PerlDaemon/ThreadedLogger.pm b/lib/PerlDaemon/ThreadedLogger.pm deleted file mode 100644 index f773640..0000000 --- a/lib/PerlDaemon/ThreadedLogger.pm +++ /dev/null @@ -1,45 +0,0 @@ -package PerlDaemon::ThreadedLogger; - -use strict; -use warnings; - -$| = 1; - -sub new ($$) { - my ($class, $conf) = @_; - my $self = $SELF = bless { conf => $conf }, $class; - - return $self; -} - -sub _pushmsg ($$) { - my ($self, $msg) = @_; - my $conf = $self->{conf}; - my $msgqueue = $conf->{msgqueue}; - - push @$msgqueue, $msg; -} - -sub logmsg ($$) { - my ($self, $msg) = @_; - - my $logline = localtime()." (PID $$): $msg\n"; - $self->_pushmsg($logline); - - return undef; -} - -sub err ($$) { - my ($self, $msg) = @_; - $self->logmsg($msg); - die "$msg\n"; -} - -sub warn ($$) { - my ($self, $msg) = @_; - $self->logmsg("WARNING: $msg"); - - return undef; -} - -1; -- cgit v1.2.3