From 4410f055dde7e77492e6a1beeaf00d20ec6b6986 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Wed, 14 Apr 2010 18:12:26 +0200 Subject: cleanup --- eg/worker.pl | 1 + lib/presque.pm | 7 +++++-- lib/presque/ControlHandler.pm | 4 +++- templates/index.html | 19 ++++++++++++++++++- 4 files changed, 27 insertions(+), 4 deletions(-) diff --git a/eg/worker.pl b/eg/worker.pl index fc7526c..1c22bbf 100644 --- a/eg/worker.pl +++ b/eg/worker.pl @@ -9,6 +9,7 @@ extends 'presque::worker'; sub work { my ($self, $job) = @_; say "job's done"; + ...; # yadda yadda! return; } diff --git a/lib/presque.pm b/lib/presque.pm index 370ea3a..9d88ca7 100644 --- a/lib/presque.pm +++ b/lib/presque.pm @@ -25,11 +25,10 @@ has redis => ( lazy => 1, default => sub { my $self = shift; - my $r = AnyEvent::Redis->new( + AnyEvent::Redis->new( host => $self->config->{redis}->{host}, port => $self->config->{redis}->{port} ); - $r; } ); @@ -89,6 +88,10 @@ all the queues. return some basic information about a queue. +=item B + +=item B + =back =head2 INSERT A JOB diff --git a/lib/presque/ControlHandler.pm b/lib/presque/ControlHandler.pm index 94ceab0..f900ea9 100644 --- a/lib/presque/ControlHandler.pm +++ b/lib/presque/ControlHandler.pm @@ -11,7 +11,7 @@ before [qw/get post/] => sub { sub get { my ( $self, $queue_name ) = @_; - + if ( !$queue_name ) { $self->response->code(404); $self->finish("queue name is missing"); @@ -82,6 +82,8 @@ presque::ControlHandler - a redis based message queue =head1 DESCRIPTION +=head1 METHODS + =head1 AUTHOR franck cuny Efranck@lumberjaph.netE diff --git a/templates/index.html b/templates/index.html index 3d26f52..ee2c701 100644 --- a/templates/index.html +++ b/templates/index.html @@ -1,7 +1,24 @@ + - Presque - a redis based message queue + Presque - a redis/tatsumaki based message queue + + + +

Presque - a redis/tatsumaki based message queue

+ -- cgit v1.2.3