d74ccac4f6
Squashed commit of the following: commit39b438aa4bAuthor: Oliver Gorwits <oliver@cpan.org> Date: Sat May 6 16:40:11 2017 +0100 add release notes commitca4ea90d35Author: Oliver Gorwits <oliver@cpan.org> Date: Sat May 6 16:32:06 2017 +0100 update distmeta commit4e35b904b0Author: Oliver Gorwits <oliver@cpan.org> Date: Sat May 6 16:30:22 2017 +0100 rename files from Daemon to Backend commit86a605ba68Author: Oliver Gorwits <oliver@cpan.org> Date: Sat May 6 16:26:43 2017 +0100 rename daemon to backend in code commitffe8fc180fAuthor: Oliver Gorwits <oliver@cpan.org> Date: Sat May 6 16:15:57 2017 +0100 add daemon files which exec to backend equivalents commit53e041594eAuthor: Oliver Gorwits <oliver@cpan.org> Date: Sat May 6 15:32:49 2017 +0100 rename netdisco-daemon to netdisco-backend
55 lines
724 B
Perl
55 lines
724 B
Perl
package App::Netdisco::Backend::Job;
|
|
|
|
use Moo;
|
|
use namespace::clean;
|
|
|
|
foreach my $slot (qw/
|
|
job
|
|
entered
|
|
started
|
|
finished
|
|
device
|
|
port
|
|
action
|
|
subaction
|
|
status
|
|
username
|
|
userip
|
|
log
|
|
debug
|
|
/) {
|
|
|
|
has $slot => (
|
|
is => 'rw',
|
|
);
|
|
}
|
|
|
|
=head1 METHODS
|
|
|
|
=head2 summary
|
|
|
|
An attempt to make a meaningful statement about the job.
|
|
|
|
=cut
|
|
|
|
sub summary {
|
|
my $job = shift;
|
|
return join ' ',
|
|
$job->action,
|
|
($job->device || ''),
|
|
($job->port || '');
|
|
# ($job->subaction ? (q{'}. $job->subaction .q{'}) : '');
|
|
}
|
|
|
|
=head1 ADDITIONAL COLUMNS
|
|
|
|
=head2 extra
|
|
|
|
Alias for the C<subaction> column.
|
|
|
|
=cut
|
|
|
|
sub extra { (shift)->subaction }
|
|
|
|
1;
|