Yet Another CPAN Grep

App-Environ-Que ( K/KA/KAKTUS/App-Environ-Que-0.1.tar.gz, KAKTUS, 2018; MetaCPAN )

App-Environ-Que/lib/App/Environ/Que.pm ( view source; MetaCPAN )

e v5.10;
use utf8;

use App::Environ;
use App::Environ::Mojo::Pg;
use Carp qw(croak);
use Cpanel::JSON::XS;
use Params::Validate qw( validate_pos validate );

my $INSTANCE;

my $sql = q{
  INSERT INTO

::smallint),
    coalesce(?::timestamptz, now()::timestamptz),
    ?::text,
    coalesce(?::json, '[]'::json)
  );
};

my %VALIDATION = (
  enqueue => {
    queue    => 0,
    priority => 0,
    run_a

,
  }
);

App::Environ->register( __PACKAGE__, postfork => sub { undef $INSTANCE } );

my $JSON = Cpanel::JSON::XS->new;

sub instance {
  my $class = shift;

  my ($connector) = validate_pos( @_, 1 )