CPAN::Groonga

;
use warnings;
$WebService::Walmart::VERSION = "0.01";
use Moose;
use Try::Tiny;
use JSON::MaybeXS qw/ decode_json /;
use Data::Dumper;

use WebService::Walmart::Store;
use WebService::Walmart::Item;

y $content = $response->{content};
    my $status  = $response->{status};
    
    my $h = decode_json($content);
    #return $h;
    my $item = WebService::Walmart::Item->new($h);
    return $item;
}

   my $h = decode_json($content); 
    my $r = $h->{reviews};
    
    my @reviews;
    foreach my $store_json (@$r) {
        my $store = WebService::Walmart::Review->new($store_json);
        push @

Request::VERSION"); },);
has api_key  => ( is => 'rw');
has output   => ( is => 'rw', default => 'json');
has debug    => ( is => 'rw', default => 0);


sub _get {
    my ($self, $path) = @_;
    my @