rename files from Daemon to Backend
This commit is contained in:
54
lib/App/Netdisco/Backend/Job.pm
Normal file
54
lib/App/Netdisco/Backend/Job.pm
Normal file
@@ -0,0 +1,54 @@
|
||||
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;
|
||||
Reference in New Issue
Block a user