diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-06-09 18:19:38 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-06-09 18:19:38 +0200 |
| commit | 5b2042053577cc6381c40c4fb5d5264e79a0312d (patch) | |
| tree | 643da7415c478ee5e444231690fe8cd91329b75c /lib/presque/worker/Role/Logger.pm | |
| parent | a simple worker; a role for the REST interface to presque; reg signals (diff) | |
| download | presque-worker-5b2042053577cc6381c40c4fb5d5264e79a0312d.tar.gz | |
add logger; move some code for work and job in roles;
Diffstat (limited to 'lib/presque/worker/Role/Logger.pm')
| -rw-r--r-- | lib/presque/worker/Role/Logger.pm | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/lib/presque/worker/Role/Logger.pm b/lib/presque/worker/Role/Logger.pm index 3b6b317..4285b55 100644 --- a/lib/presque/worker/Role/Logger.pm +++ b/lib/presque/worker/Role/Logger.pm @@ -21,4 +21,48 @@ has logger => ( } ); +before start => sub { + my $self = shift; + + $self->logger->log( + level => 'info', + message => "presque worker [" + . $self->worker_id + . "] : start to listen for " + . $self->queue_name + ); +}; + +before work => sub { + my $self = shift; + $self->logger->log( + level => 'debug', + message => $self->worker_id . ' start to work', + ); +}; + +before _shutdown => sub { + my $self = shift; + $self->logger->log( + level => 'info', + message => 'worker ' . $self->worker_id . ' shuting down' + ); +}; + +before _graceful_shutdown => sub { + my $self = shift; + $self->logger->log( + level => 'info', + message => 'worker ' . $self->worker_id . ' kill child' + ); +}; + +before _kill_child => sub { + my $self = shift; + $self->logger->log( + level => 'info', + message => 'worker ' . $self->worker_id . ' shuting down gracefuly' + ); +}; + 1; |
