add priority and namespace to support fancy worker overrides

lib/App/Netdisco/Worker.pm

@@ -5,9 +5,9 @@ use warnings;
 
 use Module::Load ();
 use Module::Find qw/findsubmod findallmod/;
-use Dancer ':syntax';
 
-# load worker plugins for our action
+use Dancer ':syntax';
+use Dancer::Factory::Hook;
 
 sub import {
   my ($class, $action) = @_;
@@ -17,6 +17,7 @@ sub import {
   my @check_plugins = findsubmod 'App::Netdisco::Worker::Plugin';
   my @phase_plugins = map { findallmod $_ } @check_plugins;
 
+  # load worker plugins for our action
   foreach my $plugin (@user_plugins, @check_plugins, @phase_plugins) {
     $plugin =~ s/^X::/App::NetdiscoX::Worker::Plugin::/;
     next unless $plugin =~ m/::Plugin::${action}(?:::|$)/i;
@@ -24,6 +25,32 @@ sub import {
     debug "loading worker plugin $plugin";
     Module::Load::load $plugin;
   }
+
+  # now vars->{workers} is populated, we set the dispatch order
+  my $store = Dancer::Factory::Hook->instance();
+  # use DDP; p vars->{'workers'};
+
+  foreach my $phase (qw/check early main user/) {
+    $store->install_hooks("nd2_core_${phase}");
+
+    foreach my $namespace (sort keys %{ vars->{'workers'}->{$phase} }) {
+      hook "nd2_core_${phase}" => sub {
+        vars->{'last_worker_ok'} = false;
+        vars->{'last_worker_priority'} = 0;
+      };
+
+      foreach my $priority (sort {$b <=> $a} keys %{ vars->{'workers'}->{$phase}->{$namespace} }) {
+
+        # D::Factory::Hook::register_hook() does not work?!
+        hook "nd2_core_${phase}" => $_
+          for @{ vars->{'workers'}->{$phase}->{$namespace}->{$priority} };
+        
+        hook "nd2_core_${phase}" => sub {
+          vars->{'last_worker_priority'} = $priority;
+        };
+      }
+    }
+  }
 }
 
 true;