Yet Another CPAN Grep

WebService-ZombiesRun ( P/PJ/PJF/WebService-ZombiesRun-0.01.tar.gz, PJF, 2014; MetaCPAN )

WebService-ZombiesRun/lib/WebService/ZombiesRun.pm ( view source; MetaCPAN )

package WebService::ZombiesRun;
use v5.010;
use strict;
use warnings;
use autodie;
use Moo;
use JSON::Any;
use WWW::Mechanize;
use Data::Dumper;

our $DEBUG = 0;

use constant API_BASE => 'https://www

is => 'rw');
has agent  => (is => 'lazy');
has json   => (is => 'lazy');

sub _build_agent { return WWW::Mechanize->new; }
sub _build_json  { return JSON::Any->new;      }


sub runs_raw {
    my ($se

join("/", API_BASE, "user/$user", $path, "?format=json");

    warn "Calling $call\n" if $DEBUG;
    $self->agent->get($call);

    return $self->json->decode( $self->agent->content );
}


1;

__END__