Yet Another CPAN Grep

Akamai-Open-DiagnosticTools ( P/PR/PROBST/Akamai-Open-DiagnosticTools-0.02.tar.gz, PROBST, 2014; MetaCPAN )

Akamai-Open-DiagnosticTools/lib/Akamai/Open/DiagnosticTools.pm ( view source; MetaCPAN )

ai::Open::DiagnosticTools::VERSION = '0.02';
use strict;
use warnings;
use v5.10;

use Moose;
use JSON;

#XXX create a useful scheme for REST methods
use constant {
    TOOLS_URI  => '/diagnostic-tool

(sprintf('HTTP response code for dig() call is %s', $self->response->code()));
    $data = decode_json($self->response->content());
    given($self->response->code()) {
        when($_ == 200) {

(sprintf('HTTP response code for mtr() call is %s', $self->response->code()));
    $data = decode_json($self->response->content());
    given($self->response->code()) {
        when($_ == 200) {