CPAN::Groonga

cut

use Carp;
use LWP::UserAgent;
use JSON;

my $KEEP_ALIVE_CACHESIZE = 10;

my $API_VERSION   = '1.2.1';
my $ENDPOINT_BASE = 'api.smugmug.com/services/api/json/1.2.1/';

my $ERROR_CODE = {
	MISSING_

>agent($agent);
	$ua->timeout(30);
	$ua->env_proxy;

	my $json = JSON->new();

	my $self = bless {
		ua          => $ua,
		json        => $json,
		retry       => $retry,
		agent       => $agent,
		sm_

    => $params->{SessionID},
		'X-Smug-Version'      => $API_VERSION,
		'X-Smug-ResponseType' => 'JSON',
		'X-Smug-FileName'     => $params->{FileName},
	);

	my @optional_params =
	  qw/AlbumID Image