CPAN::Groonga

hortmess);
use File::Basename;
use IO::Scalar;
use Storable;

use Data::UUID;
use File::Path;
use JSON::XS;
use LWP::UserAgent;
use POSIX qw(strftime);
use URI::Escape;

use Data::Dumper;

use base 'E

 %DEFAULT_SHAREPOINT_POST_PARAMS    = (
	Accept         => 'application/json;odata=verbose',
	Content_Type   => 'application/json;odata=verbose',
);
our $MAX_LOG_SIZE       =    500000;
our $DEFAULT_C

de_json($token_response->content),
			'error'
		);
		return undef;
	}
	my $json = decode_json($token_response->content);
	$self->{token}{ts}    = $json->{expires_on};
	$self->{token}{token} = $json->{