CPAN::Groonga

#!/usr/bin/env perl

use warnings;
use strict;

use Carp;
use Data::Dumper;

use Bio::Grid::Run::SGE;
use Bio::Gonzales::Util::Cerial;

use File::Spec;

job->run({
    'task' => sub {
      my ( $result_prefix, $idx_item ) = @_;

      job->log->info("Running $idx_item->[0] -> $result_prefix");
      job->log->warn("Running $idx_item->[0] -> $result_prefix");
      job->log->error("Running $idx_item->[0] -> $result_prefix");
      job->log->debug("Running $idx_item->[0] -> $result_prefix");

      jspew( $result_prefix . ".env.json",  \%ENV );
      jspew( $result_prefix . ".item.json", $idx_item );
      sleep 1;

      return 1;
    },
    post_task => sub {
      open my $fh, '>', File::Spec->catfile( job->config('result_dir'), 'finished' )
        or die "Can't open filehandle: $!";
      say $fh job->env("job_id");
      $fh->close;
    },
    usage => \&usage,
});

sub usage {
  return <<EOF;
The script takes an list like index, prints element(s) to <result_prefix>.item.json.
Additionally, the current environment will be stored in <result_prefix>.env.json.

EXAMPLE CONFIG:
  ---
  input:
  - elements:
    - a
    - b
    - c
    - d
    - e
    - f
    format: List
  job_name: <job_name>
  mode: Consecutive
EOF

}

1;