CPAN::Groonga

                     'require' => 'JSON',
                         'pack'    => \&protocol_type_json_pack, 
                         'unpack'  => \&protocol_type_json_unpack,
                         

}

sub protocol_type_json_pack
{
  load_protocol( 'j' );
  return JSON::encode_json( shift );
}

sub protocol_type_json_unpack
{
  load_protocol( 'j' );
  return JSON::decode_json( shift );
}

sub pro

         xml2perl
                  perl2xml
                  
                  json2perl
                  perl2json

                );

our %EXPORT_TAGS = (
                   
                  

JSON;
}

sub xml2perl
{
  my $ob = new XML::Bare( text => shift() );
  return $ob->parse();
}

sub perl2xml
{
  return XML::Bare::obj2xml( shift() );
}
                  
sub json2perl
{
  return JSON

::decode_json( shift );
}

sub perl2json
{
  return JSON::encode_json( shift );
}

##############################################################################

=pod


=head1 NAME

  Data::Tools::Se