Yet Another CPAN Grep

Redmine-Fetch ( M/MO/MOVEAX/Redmine-Fetch-0.01.tar.gz, MOVEAX, 2016; MetaCPAN )

Redmine-Fetch/lib/Redmine/Fetch.pm ( view source; MetaCPAN )

rver} . '/' . $call . '.json' => $header => json => $payload );

        } elsif ( $mode eq 'delete' ) {

            $tx = $ua->delete( $config->{server} . '/' . $call . '.json' => $header );

l . '.json' => $header => json => $payload ); 

        } else {

            my $combined_payload = { %$payload, %$params };

            $tx = $ua->get( $config->{server} . '/' . $call . '.json' =>

bined_payload );
        }

        if ( my $res = $tx->success ) {
            $response = $res->json;
        } else {
            warn 'fail';
            p $tx->body;
            my $err = $tx->er