diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-05-09 11:12:07 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-05-09 11:12:07 +0200 |
| commit | f2d8737789d522570ea58896826c91571a254bb0 (patch) | |
| tree | 8212a9000fdfe5a63e2d04847a63408672edaf2d /lib/presque/StatusHandler.pm | |
| parent | delayed is a param (diff) | |
| download | presque-f2d8737789d522570ea58896826c91571a254bb0.tar.gz | |
use presque::r::qn
Diffstat (limited to '')
| -rw-r--r-- | lib/presque/StatusHandler.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/presque/StatusHandler.pm b/lib/presque/StatusHandler.pm index 18be7cd..84a75de 100644 --- a/lib/presque/StatusHandler.pm +++ b/lib/presque/StatusHandler.pm @@ -2,6 +2,8 @@ package presque::StatusHandler; use Moose; extends 'Tatsumaki::Handler'; +with qw/presque::Role::QueueName/; + __PACKAGE__->asynchronous(1); use JSON; @@ -14,13 +16,11 @@ before [qw/get/] => sub { sub get { my ( $self, $queue_name ) = @_; - $self->response->header( 'Content-Type' => 'application/json' ); - my $conf = $self->application->config->{redis}; my $stats = { redis => $conf->{host} . ':' . $conf->{port}, }; if ($queue_name) { - my $key = $queue_name . ":queue"; + my $key = $self->_queue($queue_name); $self->application->redis->llen( $key, sub { |