135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

simplify role apply for jobqueue

Browse Source
This commit is contained in:
Oliver Gorwits
2014-05-08 21:29:31 +01:00
parent 8a816b9764
commit b8c706a2e7
6 changed files with 23 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Netdisco/lib/App/Netdisco/Daemon/JobQueue.pm Normal file
View File

@@ -0,0 +1,20 @@
package App::Netdisco::Daemon::JobQueue;
use Dancer qw/:moose :syntax :script/;
use Role::Tiny;
use namespace::clean;
with 'App::Netdisco::Daemon::JobQueue::'. setting('job_queue');
requires qw/
jq_get
jq_getlocal
jq_queued
jq_lock
jq_defer
jq_complete
jq_insert
/;
true;

3
Netdisco/lib/App/Netdisco/Daemon/Worker/Common.pm
View File

@@ -6,8 +6,7 @@ use Try::Tiny;
use Role::Tiny;
use namespace::clean;
with 'App::Netdisco::Daemon::JobQueue::'. setting('job_queue');
requires qw/worker_type worker_name munge_action jq_defer jq_complete/;
with 'App::Netdisco::Daemon::JobQueue';
sub worker_body {
my $self = shift;

3
Netdisco/lib/App/Netdisco/Daemon/Worker/Manager.pm
View File

@@ -5,8 +5,7 @@ use Dancer qw/:moose :syntax :script/;
use Role::Tiny;
use namespace::clean;
with 'App::Netdisco::Daemon::JobQueue::'. setting('job_queue');
requires qw/jq_get jq_getlocal jq_lock/;
with 'App::Netdisco::Daemon::JobQueue';
sub worker_begin {
my $self = shift;

3
Netdisco/lib/App/Netdisco/Daemon/Worker/Poller/Common.pm
View File

@@ -12,9 +12,6 @@ use NetAddr::IP::Lite ':lower';
use Role::Tiny;
use namespace::clean;
with 'App::Netdisco::Daemon::JobQueue::'. setting('job_queue');
requires qw/jq_queued jq_insert/;
# queue a job for all devices known to Netdisco
sub _walk_body {
my ($self, $job_type, $job) = @_;

3
Netdisco/lib/App/Netdisco/Daemon/Worker/Poller/Device.pm
View File

@@ -13,9 +13,6 @@ use NetAddr::IP::Lite ':lower';
use Role::Tiny;
use namespace::clean;
with 'App::Netdisco::Daemon::JobQueue::'. setting('job_queue');
requires qw/jq_queued jq_insert/;
# queue a discover job for all devices known to Netdisco
sub discoverall {
my ($self, $job) = @_;

3
Netdisco/lib/App/Netdisco/Daemon/Worker/Scheduler.pm
View File

@@ -6,8 +6,7 @@ use Algorithm::Cron;
use Role::Tiny;
use namespace::clean;
with 'App::Netdisco::Daemon::JobQueue::'. setting('job_queue');
requires 'jq_insert';
with 'App::Netdisco::Daemon::JobQueue';
sub worker_begin {
my $self = shift;