use strict;
use warnings;
-our $VERSION = '1.00';
+our $VERSION = '1.62';
-use JSON;
+use JSON::MaybeXS 'to_json';
sub produce {
my $translator = shift;
'name' => $table->name,
'order' => $table->order,
'options' => $table->options || [],
- $table->comments ? ('comments' => $table->comments ) : (),
+ $table->comments ? ('comments' => [ $table->comments ] ) : (),
'constraints' => [
map { view_constraint($_) } $table->get_constraints
],
'is_primary_key' => scalar $field->is_primary_key,
'is_unique' => scalar $field->is_unique,
$field->is_auto_increment ? ('is_auto_increment' => 1) : (),
- $field->comments ? ('comments' => $field->comments) : (),
+ $field->comments ? ('comments' => [ $field->comments ]) : (),
keys %{$field->extra} ? ('extra' => { $field->extra } ) : (),
};
}
'fields' => scalar $trigger->fields,
'on_table' => scalar $trigger->on_table,
'action' => scalar $trigger->action,
+ (defined $trigger->scope ? (
+ 'scope' => scalar $trigger->scope,
+ ) : ()),
keys %{$trigger->extra} ? ('extra' => { $trigger->extra } ) : (),
};
}
=head1 SEE ALSO
-SQL::Translator, JSON, http://www.json.org/.
+SQL::Translator, JSON::MaybeXS, http://www.json.org/.
=head1 AUTHORS