CPAN::Groonga

utf8

=head1 NAME

JSONP - a module to quickly build JSON/JSONP web services, providing also some syntactic sugar acting a bit like a sort of DSL (domain specific language) for JSON.

=head1 SYNOPSIS

n I<use>.

	use JSONP 'jsonp';
	$jsonp->run;

	...

	sub yoursubname
	{
		$j->table->fields = $sh->{NAME};
		$j->table->data = $sh->fetchall_arrayref;
	}

OR

	use JSONP;

	my $j = JSONP->new;
	$j->ru

mod_perl:

You must declare the instance variable, remember to use I<local our>.

	use JSONP;
	local our $j = JSONP->new;
	$j->run;

	...

	sub yoursubname
	{
		my $namedparam = $j->params->namedparam

package JSONP;
# some older 5.8.x perl versions on exotic platforms don't get the v5.10 syntax
use 5.010;
use v5.10;
use strict;
use warnings;
use utf8;
use Time::HiRes qw(gettimeofday);
use File::Tem

se Encode;
use Cwd qw();
use Scalar::Util qw(reftype blessed);
use CGI qw();
use Digest::SHA;
use JSON;
use Want;
use overload
	'eq'     => sub {  _compare(@_)},
	'ne'     => sub {! _compare(@_)},
	fa

ther and $reftype_self ne $reftype_other;
	my $j = JSON->new->canonical;
	unless ($reftype_other) {
		eval{
			local $SIG{'__DIE__'};
			$other = JSON->new->decode($other // '');
		};
		return 0 if $@