1package App::Netdisco::Worker::Plugin::DumpConfig; 2 3use Dancer ':syntax'; 4use App::Netdisco::Worker::Plugin; 5use aliased 'App::Netdisco::Worker::Status'; 6 7use Data::Printer; 8 9register_worker({ phase => 'main' }, sub { 10 my ($job, $workerconf) = @_; 11 my $extra = $job->extra; 12 13 my $config = config(); 14 my $dump = ($extra ? $config->{$extra} : $config); 15 p $dump; 16 return Status->done('Dumped config'); 17}); 18 19true; 20