diff options
Diffstat (limited to 'lib/PerlDaemon/ThreadedLogger.pm')
| -rw-r--r-- | lib/PerlDaemon/ThreadedLogger.pm | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/lib/PerlDaemon/ThreadedLogger.pm b/lib/PerlDaemon/ThreadedLogger.pm index a5a7776..f773640 100644 --- a/lib/PerlDaemon/ThreadedLogger.pm +++ b/lib/PerlDaemon/ThreadedLogger.pm @@ -6,40 +6,40 @@ use warnings; $| = 1; sub new ($$) { - my ($class, $conf) = @_; - my $self = $SELF = bless { conf => $conf }, $class; + my ($class, $conf) = @_; + my $self = $SELF = bless { conf => $conf }, $class; - return $self; + return $self; } sub _pushmsg ($$) { - my ($self, $msg) = @_; - my $conf = $self->{conf}; - my $msgqueue = $conf->{msgqueue}; + my ($self, $msg) = @_; + my $conf = $self->{conf}; + my $msgqueue = $conf->{msgqueue}; - push @$msgqueue, $msg; + push @$msgqueue, $msg; } sub logmsg ($$) { - my ($self, $msg) = @_; + my ($self, $msg) = @_; - my $logline = localtime()." (PID $$): $msg\n"; - $self->_pushmsg($logline); + my $logline = localtime()." (PID $$): $msg\n"; + $self->_pushmsg($logline); - return undef; + return undef; } sub err ($$) { - my ($self, $msg) = @_; - $self->logmsg($msg); - die "$msg\n"; + my ($self, $msg) = @_; + $self->logmsg($msg); + die "$msg\n"; } sub warn ($$) { - my ($self, $msg) = @_; - $self->logmsg("WARNING: $msg"); + my ($self, $msg) = @_; + $self->logmsg("WARNING: $msg"); - return undef; + return undef; } 1; |