CPAN::Groonga

'experimental';

use Encode qw/ decode /;
use XML::LibXSLT;
use XML::LibXML;
use XML::Simple;
use JSON;
use CGI::Cookie;

use FindBin qw/ $RealBin /;

use Crop::Debug;
use Crop::Error qw/ all_right wa

orking directory
	data      - persistent data across all the handlers of an client request
	json      - JSON exemplar
	handler   - hash of registered handlers
	headers   - HTTP headers for response
	i

shref of all the errors ocquired (see <Crop::Error>)
	output_t  - type of output ('XML', 'XSLT', 'JSON', and so on)
	page      - filename of output template in cwd
	redirect  - URL to redirect
	reques

ved to Warehouse.

Returns:
	false
=cut
sub Table {  }

=begin nd
Method: TO_JSON ($data)
	Prepare blessed objects for JSON output.

	All the objects are a blessed hashrefs, so will return UNblessed o

ly by JSON module for each object.

Parameters:
	$data - blessed hashref

Returns:
	unblessed hashref
=cut
sub TO_JSON {
	my $data = shift;

	my $json =  {%$data};
	delete $json->{STATE};

	$json;
}