Yet Another CPAN Grep

Business-PAYONE ( A/AR/ARTHAS/Business-PAYONE-0.4.0.tar.gz, ARTHAS, 2024; MetaCPAN )

Business-PAYONE/lib/Business/PAYONE.pm ( view source; MetaCPAN )

      json => $reqargs
        )->result;
        confess $res->message .': ' . dump($res->json) if !$res->is_success;

        # confess Data::Dump::dump($res->json);

        return $res->json;

        confess $res->message .': ' . dump($res->json) if !$res->is_success;

        # confess Data::Dump::dump($res->json);

        return $res->json;
    }

    sub _create_autorization($self, $ar

ckouts'.$args->{url_extra};
        my $h_content_type = $request_method eq 'POST' ? 'application/json; charset=utf-8' : '';
        my $h_date = DateTime::Format::HTTP->format_datetime($now);