fix pod; set status defaults; stub runner mixin

This commit is contained in:
Oliver Gorwits
2017-09-03 18:54:44 +01:00
parent 8eaa33770c
commit e0a666668a
3 changed files with 27 additions and 7 deletions

View File

@@ -10,14 +10,19 @@ foreach my $slot (qw/
done
error
defer
message
/) {
has $slot => (
is => 'rw',
default => 0,
);
}
has 'log' => (
is => 'rw',
default => '',
);
=head1 METHODS
=head2 ok
@@ -53,7 +58,7 @@ sub status {
=head2 update_job
Updates an L<App::Netdisco::Backend::Job> with status and message.
Updates an L<App::Netdisco::Backend::Job> with status and log.
=cut
@@ -61,7 +66,7 @@ sub update_job {
my $self = shift;
my $job = shift or return;
$job->status( $self->status );
$job->log( $self->message );
$job->log( $self->log );
}
1;