ob::JSON;
use 5.008;
use strict;
use warnings;
use base 'Helios::Job';
use JSON::Tiny qw(decode_json);
$JSON::Tiny::TRUE = 1;
$JSON::Tiny::FALSE = 0;
use Helios::Config;
use HeliosX::Job::JSON::Er
Job::JSON - Helios::Job subclass using JSON to specify job arguments
=head1 SYNOPSIS
# In your Helios::Service class:
package MyService;
use parent 'Helios::Service';
use HeliosX::Job::JSON;
::JSON' }
sub run {
... run code here ...
}
1;
# In your job submission code, use
# HeliosX::Job::JSON just like Helios::Job.
my $config = Helios::Config->parseConfig();
my $arg_json
ge HeliosX::Job::JSON::TestService;
use 5.008;
use strict;
use warnings;
use base 'Helios::Service';
use Helios::Config;
use Helios::LogEntry::Levels qw(:all);
use HeliosX::Job::JSON;
our $VERSION
ME
HeliosX::Job::JSON::TestService - service for testing HeliosX::Job::JSON jobs
=head1 SYNOPSIS
# create a Helios job using HeliosX::Job::JSON
use HeliosX::Job::JSON;
my $json = qq/
{
iosX::Job::JSON::TestService",
"args" : {
"arg1" : "value1",
"arg2" : "value2"
}
}
/;
my $job = HeliosX::Job::JSON->new(argst
package HeliosX::Job::JSON::Error;
use 5.010;
use strict;
use warnings;
use base 'Helios::Error::BaseError';
our $VERSION = '1.00';
1;
__END__