From 596e73e4d4d65853fcbe9b33d2303f9029d6b338 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Wed, 14 Apr 2010 13:48:40 +0200
Subject: add control handler

---
 lib/presque.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'lib/presque.pm')

diff --git a/lib/presque.pm b/lib/presque.pm
index a1b7cbd..370ea3a 100644
--- a/lib/presque.pm
+++ b/lib/presque.pm
@@ -10,6 +10,7 @@ use presque::RestQueueHandler;
 use presque::JobQueueHandler;
 use presque::IndexHandler;
 use presque::StatusHandler;
+use presque::ControlHandler;
 
 has config => (
     is      => 'rw',
@@ -36,10 +37,11 @@ sub app {
     my ( $class, %args ) = @_;
     my $self = $class->new(
         [
-            '/q/(.*)'     => 'presque::RestQueueHandler',
-            '/j/(.*)'     => 'presque::JobQueueHandler',
-            '/stats/(.*)' => 'presque::StatusHandler',
-            '/'           => 'presque::IndexHandler',
+            '/q/(.*)'       => 'presque::RestQueueHandler',
+            '/j/(.*)'       => 'presque::JobQueueHandler',
+            '/stats/(.*)'   => 'presque::StatusHandler',
+            '/control/(.*)' => 'presque::ControlHandler',
+            '/'             => 'presque::IndexHandler',
         ]
     );
     $self->config( delete $args{config} );
-- 
cgit 1.4.1