package App::Netdisco::Worker::Plugin::DumpConfig; use Dancer ':syntax'; use App::Netdisco::Worker::Plugin; use aliased 'App::Netdisco::Worker::Status'; use Data::Printer; register_worker({ phase => 'main' }, sub { my ($job, $workerconf) = @_; my $extra = $job->extra; my $config = config(); p ($extra ? $config->{$extra} : $config); return Status->done('Dumped config'); }); true;