view release on metacpan or  search on metacpan

script/dash  view on Meta::CPAN

$instance //= 'test';

$ENV{AMP_CONFIG} = "/Volumes/Sidecar/prod/internal/Amp-Client/config/environments.json";

my $amp = Amp::Client->new();

my $client = $amp->writeClient($instance);

my $rows = $client->getEnvConfig;

say Dumper $rows;

# testInsert();
sub testInsert {
    my $sql = "INSERT INTO automation.job (data) VALUES ";

    my $job_json = getData();

    $sql .= "(" . $client->quote($job_json) . ")";

    say "\n\n$sql\n\n";

    $client->do($sql);
}

sub getData {
    my $hash = {
        "args"     => [
            "x = 1\nif x == 1:\n    # indented four spaces\n    print(\"x is 1.\")\n\nprint(\"Goodbye, World!\")\n"
        ],
        "attempts" => 1,