nt;
use strict;
use Config::IniFiles;
use File::HomeDir;
use File::Spec;
use HTTP::Request;
use JSON;
use LWP::UserAgent;
use Sys::Hostname;
our $VERSION = 0.07;
use constant {
SUCCESS =
include
an "inhibit" hash key.
=cut
sub start {
my $self = shift;
return $self->_write_json($self->_get_url('start'), {
command => $self->{'command'}}, 1);
}
=item finish()
Report
on success.
=cut
sub finish {
my $self = shift;
my %opt = @_;
return $self->_write_json($self->_get_url('finish'), {
command => $self->{'command'},
status => defined $o