CPAN::Groonga

t::msgraph;

use strict;
use warnings;

our $VERSION = '0.12';

use parent 'LWP::UserAgent';

use JSON;
use Storable;
use Data::UUID;
use File::Spec;
use Storable;
use Carp;
use URI;
use HTTP::Request

 
   my $self=shift();

   return to_json($self->storedata());
}

sub session_restore($$) {

   my $self=shift();
   my $json=shift();

   my $data=from_json($json);

   for (qw(access_token expires e

_token',
       client_secret=>$self->{secret} ]);
   if ($r->is_success) {
      my $data=decode_json($r->decoded_content);
      my $token=$data->{access_token};      

      for (keys %$data) {