diff options
author | franck cuny <franck@lumberjaph.net> | 2010-06-24 11:13:22 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-06-24 11:13:22 +0200 |
commit | a3cad7d7418da8a5389500c1da0a6d2944974f50 (patch) | |
tree | ea5a6cc85d082ab40ced88a17f1af71d324d73a8 /lib/presque/Role/QueueName.pm | |
parent | rename method (diff) | |
download | presque-a3cad7d7418da8a5389500c1da0a6d2944974f50.tar.gz |
moved to role::queue::names
Diffstat (limited to 'lib/presque/Role/QueueName.pm')
-rw-r--r-- | lib/presque/Role/QueueName.pm | 55 |
1 files changed, 0 insertions, 55 deletions
diff --git a/lib/presque/Role/QueueName.pm b/lib/presque/Role/QueueName.pm deleted file mode 100644 index 13e7dcc..0000000 --- a/lib/presque/Role/QueueName.pm +++ /dev/null @@ -1,55 +0,0 @@ -package presque::Role::QueueName; - -use Moose::Role; - -sub _queue { - my ($self, $queue_name) = @_; - return $queue_name.':queue'; -} - -sub _queue_delayed { - my ($self, $queue_name) = @_; - return $queue_name.':delayed'; -} - -sub _queue_policy { - my ($self, $queue_name) = @_; - return $queue_name.':queuepolicy'; -} - -sub _queue_uuid { - my ($self, $queue_name) = @_; - return $queue_name.':UUID'; -} - -sub _queue_unique { - my ($self, $queue_name) = @_; - return $queue_name . ':uniq'; -} - -sub _queue_key { - my ($self, $queue_name, $uuid) = @_; - return $queue_name.':'.$uuid; -} - -sub _queue_stat { - my ($self, $queue_name) = @_; - return 'queuestat:'.$queue_name; -} - -sub _queue_worker { - my ($self, $worker_name) = @_; - return 'worker:'.$worker_name; -} - -sub _queue_failed { - my ($self, $queue_name) = @_; - return 'failed:'.$queue_name; -} - -sub _queue_processed { - my ($self, $queue_name) = @_; - return 'processed:' . $queue_name; -} - -1; |