CPAN::Groonga

age TweetHook::API;
use strict;
use warnings;
use Carp;
use LWP::UserAgent;
use MIME::Base64;
use JSON;
use fields ( 'format', 'username', 'password', 'basicauth' );

use Data::Dumper;

our $apiroot =

: $class->new ( username, password );" ) unless $un && $pw;
  my $self = {};
  $self->{format} = 'json';
  $self->{username} = $un;
  $self->{password} = $pw;
  $self->{basicauth} = 'Basic ' . MIME::B

( $apiroot . "/list." . $self->{format},
				Authorization => $self->{basicauth} );
  return from_json ( $resp->content ) if $resp->is_success;
  return undef;
}

sub info {
  my ( $self, @ids ) = @_;