Amp-Client

 view release on metacpan or  search on metacpan

lib/Amp/Client.pm  view on Meta::CPAN

package Amp::Client;
use Moo;
use Amp::DbPoolClient;
use Amp::Config;
use Data::Dumper;
use feature 'say';

our $VERSION = '0.03';

has config => (is => 'lazy');

sub dbh {
    my $self = shift;
    my $instance = shift;
    my $type = shift;

lib/Amp/Config.pm  view on Meta::CPAN

package Amp::Config;
use Moo;
use JSON::Parse ':all';
use Amp::Util::Strings;
use Amp::DbPoolClient;
use Data::Dumper;
use feature 'say';

has file => (is => 'rw');
has dbsvc => (is => 'ro', default => "http://dashboard-m1.shr.oclc.org");
has _config => (is => 'rw', default => sub {{}});

sub BUILD {
    die("Missing AMP_CONFIG environment variable") if !$ENV{AMP_CONFIG};
    die("Missing AMP_API_KEY environment variable") if !$ENV{AMP_API_KEY};
}

lib/Amp/DbPoolClient.pm  view on Meta::CPAN

package Amp::DbPoolClient;
use Moo;
use Amp::Util::Strings;
use Try::Catch;
use Carp;
use Data::Dumper;
use REST::Client;
use Sys::Hostname;
use feature 'say';

BEGIN{
    $ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
}

has config => (is => 'rw', required => 1);
has host => (is => 'rw');

script/dash  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use warnings FATAL => 'all';
use FindBin;
use lib "$FindBin::Bin/../lib";
use Amp::Client;
use Data::Dumper;
use feature 'say';
use JSON;

my $instance = $ARGV[0];

$instance //= 'test';

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

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