);
unless ($client->validate_agent($client->get_json_schema, $main_site_definition)) {
die("agent defition is not valid for agent json schema");
}
if ($client->create_agent('mai
ypes::Moose qw( Str );
use MooseX::Types::URI qw(Uri);
use URI;
use URI::QueryParam;
use JSON::MaybeXS;
use JSON::Schema;
use Time::HiRes;
use LWP::UserAgent;
use HTTP::Request;
our $VERSION = '0.003
->env_proxy;
my $json = JSON::MaybeXS->new;
=head2 create_agent( $agent_name, $content)
=head2 create_agent($agent_name, $hashref_definition)
=head2 create_agent($agent_name, $json_definition)