new backend status class

lib/App/Netdisco/Backend/Status.pm

@@ -0,0 +1,39 @@
+package App::Netdisco::Backend::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) }
+
+1;