Net::Ostrich::VERSION = '0.01';
}
use Moose;
# ABSTRACT: Perl interface to Ostrich
use JSON::XS qw(decode_json);
use LWP::UserAgent;
has 'client' => (
is => 'rw',
isa => 'LWP::UserAgent',
self->port . $self->path . 'gc.json');
unless($resp->is_success) {
die("Failed to connect to ostrich: ".$resp->status_line);
}
return decode_json($resp->decoded_content);
}
lf->port . $self->path . 'ping.json');
unless($resp->is_success) {
die("Failed to connect to ostrich: ".$resp->status_line);
}
return decode_json($resp->decoded_content);
}