CPAN::Groonga

= 1, @items ;		## insert


## Sample code for uploading  files:

use google ;
use MimeTypes ;
use JSON ;
use MIME::Entity ;
use File::Basename ;
use Getopt::Std ;

getopts( 'op:t' ) ;

$token = Google

plication/vnd.google-apps.folder' ;
	my $content = JSON::to_json( $doc ) ;

	$out = $token->content( POST => Google::Drive->url, 
			'application/json', 
			$content ) ;
	do 'perlterm.pl' ;
	exit ;
	}

or die "Unknown Mime Type" ;

$content = JSON::to_json( $doc ) ;

$m = MIME::Entity->build( Type => 'multipart/mixed' ) ;
$m->attach( Type => 'application/json', 
		Encoding => '7bit',
		Data => $cont

age Google::OAuth ;
use base NoSQL::PL2SQL ;
use Google::OAuth::Config ;
use LWP::UserAgent ;
use JSON ;

use 5.008009;
use strict;
use warnings;

require Exporter;

push @Google::OAuth::ISA, 
		qw( E

ntent = $self->response( @_ )->content ;
	return $content unless $content =~ /^{/s ;
	return JSON::from_json( $content ) ;
	}

sub headers {
	shift @_ if $_[0] eq __PACKAGE__ ;
	shift @_ if ref $_[0] 

 HTTP::Response->content >> and returns the body of the
HTTP response.

If the response body is a JSON definition, C<content()> returns a
perl object based on that definition.  Otherwise it returns a 

Google::OAuth::CGI->new( $self->{args} )->query_string
			) ) ;

	## returns a string on success, JSON on failure - crazy huh?

	return $out if ref $out ;
	return { text => $out } unless $out =~ /acce

ethod definition.

Facebook uses an HTTP GET request instead of a POST.

Facebook does not return JSON when a token request succeeds.

The overridden method copies the token into an element named 
I<f