rename Core to Worker and move other packages around

lib/App/Netdisco/Worker/Status.pm

@@ -0,0 +1,67 @@
+package App::Netdisco::Worker::Status;
+
+use strict;
+use warnings;
+
+use Moo;
+use namespace::clean;
+
+foreach my $slot (qw/
+      done
+      error
+      defer
+      message
+    /) {
+
+  has $slot => (
+    is => 'rw',
+  );
+}
+
+=head1 METHODS
+
+=head2 ok
+
+Returns true if C<done> is true and C<error> and C<defer> have not been set.
+
+=cut
+
+sub ok { return ($_[0]->done and not $_[0]->error and not $_[0]->defer) }
+
+=head2 not_ok
+
+Returns the logical inversion of C<ok>.
+
+=cut
+
+sub not_ok { return (not $_[0]->ok) }
+
+=head2 status
+
+Returns text equivalent of C<done>, C<defer>, or C<error>.
+
+=cut
+
+sub status {
+  my $self = shift;
+  return (
+    $self->done ? 'done'
+                : $self->defer ? 'defer'
+                               : 'error';
+  );
+}
+
+=head2 update_job
+
+Updates an L<App::Netdisco::Backend::Job> with status and message.
+
+=cut
+
+sub update_job {
+  my $self = shift;
+  my $job = shift or return;
+  $job->status( $self->status );
+  $job->log( $self->message );
+}
+
+1;