Yet Another CPAN Grep

WebService-PivotalTracker-Simple ( T/TS/TSUCCHI/WebService-PivotalTracker-Simple-0.01.tar.gz, TSUCCHI, 2017; MetaCPAN )

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

se 5.008005;
use Mouse;

our $VERSION = "0.01";

use Furl;
use URI;
use Carp ();
use JSON qw(decode_json encode_json);

my $api_base_uri = 'https://www.pivotaltracker.com/services/v5/';

has 'token' =

 $self->timeout );
    },
);

no Mouse;

sub _request {
    my ($self, $method, $end_point, $data_json, @additional_header) = @_;

    my $ua = $self->ua;
    my $uri = $self->api_base_uri . $end_poin

= Furl::Request->new($method, $uri, ['X-TrackerToken' => $self->token, @additional_header], $data_json);
    my $res = $ua->request($req);
    unless ( $res->is_success ) {
        Carp::croak $res->s