diff options
Diffstat (limited to 'lib/presque')
-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; |