CPAN::Groonga

package Net::Pface;

use strict;
use warnings;
use JSON::XS;
use utf8;
use HTTP::Request;
use LWP::UserAgent;
use Encode;

our $VERSION = '1.02';

my %def = (
              server     => 

,
              agent      => 'Net-Pface-' . $VERSION,
              type       => 'application/json',
              cache_time => 300
);

sub new {
    my $class = shift;
    my $self  = {@_}

    # init json::xs
    $self->{'json_xs'} = JSON::XS->new();
    
    #init cache data
    $self->{'cache_data'} = {};
    
    return $self;
}

# get data from users.get.json
sub get {