CPAN::Groonga

P::Status qw(status_message);
use HTTP::Date qw(time2str str2time);
use URI;
use URI::Escape;
use JSON;
use MIME::Base64;
use utf8;
use Carp qw( croak );

use vars qw( $_ua );

# find out if compressi

url = "https://api.ebay.com/commerce/taxonomy/v1/category_tree/0/get_category_suggestions";
  my $json = $ebay->RESTful_Query( $base_url, { q => "wilton vise" } );
  

Result of submitRequest is a per

 = $_ua->request($req);

    # Check result
    if ($res->is_success) {
        my $data = decode_json($res->decoded_content);
        my $access_token = $data->{access_token};
        my $expires = $