CPAN::Groonga

package Xmldoom::ORB::Definition::JSON;

use Xmldoom::ORB::Definition;
use JSON qw/ objToJson /;
use strict;

sub generate
{
	my $database = shift;

	my $data = [ ];

	#foreach my $object ( @{$databa

e(),
			%{Xmldoom::ORB::Definition::generate_object_hash($object)}
		};
		#$data->{$object->get_name()} = Xmldoom::ORB::Definition::generate_object_hash($object);
	}

	return objToJson($data);
}

1;

::JSON;

use JSON qw/ objToJson /;
use strict;

sub new
{
	bless {}, shift;
}

sub get_mime_type
{
	return "text/plain";
}

sub write_object
{
	my ($self, $object) = (shift, shift);

	print objToJson(

d xmlw3cdom.js into share/javascript";
	}

	my $definition_json = Xmldoom::ORB::Definition::generate($test::BookStore::Object::DATABASE, 'json');

	# setup our dojo bootstrap
	$self->{bootstrap_xmldoo

untimeEngine');
dojo.require('Xmldoom.Definition.JSONParser');

// Init namespace with our definition data
BookStore = {
	'DEFINITION': $definition_json
};

// setup connection to ORB
BookStore.connec

mldoom.Connection('http://localhost:8888/xmldoom/', 'json');

// parse and init the database definition
BookStore.database = Xmldoom.Definition.JSONParser.parse( BookStore.DEFINITION );
BookStore.data

::Transport;

use Xmldoom::ORB::Transport::JSON;
use Xmldoom::ORB::Transport::XML;
use strict;

our $TRANSPORT_MAP = {
	json => 'Xmldoom::ORB::Transport::JSON',
	xml  => 'Xmldoom::ORB::Transport::XML'

package Xmldoom::ORB::Definition;

use Xmldoom::ORB::Definition::JSON;
use strict;

use Data::Dumper;

sub generate_object_hash
{
	my $object = shift;

	my $data = {
		attributes => [ ],
		key_names 

fault to XML, however, I haven't written that
		# yet!
	}

	if ( $type eq 'json' )
	{
		return Xmldoom::ORB::Definition::JSON::generate($database);
	}
	else
	{
		die "Can't generate ORB definition for