fix pod; set status defaults; stub runner mixin
This commit is contained in:
@@ -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;
|
||||
|
||||
Reference in New Issue
Block a user