Yet Another CPAN Grep

Teamcity-Executor ( J/JA/JASEI/Teamcity-Executor-1.3.1.tar.gz, JASEI, 2019; MetaCPAN )

Teamcity-Executor/lib/Teamcity/Executor.pm ( view source; MetaCPAN )

5.020;
use strict;
use warnings;

our $VERSION = "1.3.1";

use Moose;
use HTTP::Tiny;
use Cpanel::JSON::XS;
use IO::Async::Timer::Periodic;
use Log::Any qw($log);
use Try::Tiny::Retry ':all';

use fea

n/json',
        },
        $request_body,
    );

    return decode_json $response->{content};
}

sub run_teamcity_build ($self, $build_type_id, $properties, $build_name, $wait = 1) {

    my $json =

uild($build_type_id, $properties, $build_name);

    my $build_id          = $json->{id};
    my $build_detail_href = $json->{webUrl};

    my $f = $self->loop->new_future();

    if ($wait) {