From c2ca850cccee4b9d41aff31ff2af6ef2c9f39087 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Fri, 26 Nov 2010 14:25:34 +0100
Subject: add new middleware for clientid

---
 lib/presque/worker/Middleware/ClientID.pm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 lib/presque/worker/Middleware/ClientID.pm

(limited to 'lib/presque/worker/Middleware')

diff --git a/lib/presque/worker/Middleware/ClientID.pm b/lib/presque/worker/Middleware/ClientID.pm
new file mode 100644
index 0000000..c2a89a6
--- /dev/null
+++ b/lib/presque/worker/Middleware/ClientID.pm
@@ -0,0 +1,16 @@
+package presque::worker::Middleware::ClientID;
+
+use Moose;
+extend 'Net::HTTP::Spore::Middleware';
+
+has worker_id => ( is => 'rw', isa => 'Str', predicate => 'has_worker_id' );
+
+sub call {
+    my ( $self, $req ) = @_;
+
+    if ( $self->has_worker_id ) {
+        $req->header( 'X-presque-workerid' => $self->worker_id );
+    }
+}
+
+1;
-- 
cgit v1.2.3