CPAN::Groonga

r::Parser::JSON;

use strict;
use warnings;
our $VERSION = '1.66';

use SQL::Translator::Schema;
use SQL::Translator::Utils qw(header_comment);
use Data::Dumper;
use JSON::MaybeXS 'from_json';

sub pa

rse {
  my ($translator, $data) = @_;
  $data = from_json($data);
  $data = $data->{'schema'};

  warn "JSON data:", Dumper($data) if $translator->debug;

  my $schema = $translator->schema;

  #
  # 

SQL::Translator::Parser::JSON - Parse a JSON representation of a schema

=head1 SYNOPSIS

    use SQL::Translator;

    my $translator = SQL::Translator->new(parser => "JSON");

=head1 DESCRIPTION

C

ucer::JSON;

=head1 NAME

SQL::Translator::Producer::JSON - A JSON producer for SQL::Translator

=head1 SYNOPSIS

  use SQL::Translator;

  my $translator = SQL::Translator->new(producer => 'JSON');

a JSON string.

=cut

use strict;
use warnings;
our $VERSION = '1.66';

use JSON::MaybeXS 'to_json';

sub produce {
  my $translator = shift;
  my $schema     = $translator->schema;

  return to_json(

? ('extra' => { $index->extra }) : (),
  };
}

1;

=head1 SEE ALSO

SQL::Translator, JSON::MaybeXS, http://www.json.org/.

=head1 AUTHORS

darren chamberlain E<lt>darren@cpan.orgE<gt>,
Ken Youens-Clar

(bit|box|cidr|circle|date|inet|line|lseg|macaddr|money|numeric|decimal|path|point|polygon|varchar|json|hstore|uuid)/i
        {
            $return = { type => $item[1] };
        }

parens_value_list