ete, wip perl client to the Saucelabs REST API
use Net::HTTP::Knork;
use Carp qw/croak/;
use JSON qw/to_json/;
use Moo;
use namespace::clean;
has user => (
is => 'ro',
default => sub {
path => '/info/status',
};
my $spec = {
name => 'Saucelabs REST API',
formats => [ 'json' ],
version => '0.1',
methods => $methods
};
has _base_url => (
is => 'ro',
init
er => sub {
my ($self) = @_;
my $knork = Net::HTTP::Knork->new(
spec => to_json($self->_spec),
client => $self->_ua,
default_params => {
user =