view release on metacpan or  search on metacpan

lib/App/cloudconvert.pm  view on Meta::CPAN

        Content_Type => 'multipart/form-data',
        Content => \%params
    );
    
    if ($response->code == '303') {
        $response = $ua->mirror( $response->header('location'), $outputfile );
    } else { 
        my $error = "conversion failed";
        if (!$response->is_success) {
            if ($response->header('content-type') eq 'application/json') {
                my $content = from_json($response->decoded_content);
                $error = $content->{error};
            }
        }
        say STDERR $response->code, ": ", $error;
        return 1;
    }

    return 0;
}