CPAN::Groonga

package WWW::SuperMan;
use Slurp;
use JSON;
use LWP::UserAgent;

our $VERSION = 0.01;

sub new {
  my($class, %cnf) = @_;
  my $self = bless {
    user => $cnf{ user },
    pass => $cnf{ pass },
    u

},
      password => $self->{ pass }
    }
  );

  return {} unless $res->is_success;
  return _deJson( $res );
}

sub getCode {
  my ( $self, $img_file ) = @_;
  my $url = 'http://api2.sz789.net:88/R

uccess;

  return _deJson( $res );
}


sub _deJson {
  my $res = shift;
  my $json = $res->content;
  eval {
    $json = from_json( $json );
  };

  return {} if $@;
  return $json;
}

1;

__END__
=he