some roles to handle dispatch (fork), logging, worker life (handle

signals, register, unregister, ...) and REST interface to presque

1 files changed, 24 insertions, 0 deletions

diff --git a/lib/presque/worker/Role/Logger.pm b/lib/presque/worker/Role/Logger.pm
new file mode 100644
index 0000000..3b6b317
--- /dev/null
+++ b/lib/presque/worker/Role/Logger.pm
@@ -0,0 +1,24 @@
+package presque::worker::Role::Logger;
+
+use Moose::Role;
+use Log::Dispatch;
+use Log::Dispatch::Screen;
+
+has logger => (
+    is      => 'rw',
+    isa     => 'Object',
+    lazy    => 1,
+    default => sub {
+        my $self = shift;
+        my $log  = Log::Dispatch->new();
+        $log->add(
+            Log::Dispatch::Screen->new(
+                name      => 'screen',
+                min_level => 'debug',
+                newline   => 1,
+            )
+        );
+    }
+);
+
+1;