[dbsrgits/SQL-Translator.git] / lib / SQL / Translator / Generator / DDL / PostgreSQL.pm

package SQL::Translator::Generator::DDL::PostgreSQL;

=head1 NAME

SQL::Translator::Generator::DDL::PostgreSQL - A Moo based PostgreSQL DDL generation
engine.

=head1 DESCRIPTION

I<documentation volunteers needed>

=cut

use Moo;

has quote_chars => (
  is => 'rw',
  default => sub { +[qw(" ")] },
  trigger => sub { $_[0]->clear_escape_char },
);

with 'SQL::Translator::Generator::Role::Quote';

sub name_sep { q(.) }

1;

=head1 AUTHORS

See the included AUTHORS file:
L<http://search.cpan.org/dist/SQL-Translator/AUTHORS>

=head1 COPYRIGHT

Copyright (c) 2012 the SQL::Translator L</AUTHORS> as listed above.

=head1 LICENSE

This code is free software and may be distributed under the same terms as Perl
itself.

=cut
Commit	Line	Data
2230ed2a	1	package SQL::Translator::Generator::DDL::PostgreSQL;
	2
	3	=head1 NAME
	4
	5	SQL::Translator::Generator::DDL::PostgreSQL - A Moo based PostgreSQL DDL generation
	6	engine.
	7
	8	=head1 DESCRIPTION
	9
	10	I<documentation volunteers needed>
	11
	12	=cut
33d693c3	13
2230ed2a	14	use Moo;
2230ed2a	15
0c425150	16	has quote_chars => (
	17	is => 'rw',
	18	default => sub { +[qw(" ")] },
	19	trigger => sub { $_[0]->clear_escape_char },
	20	);
2230ed2a	21
	22	with 'SQL::Translator::Generator::Role::Quote';
	23
	24	sub name_sep { q(.) }
	25
	26	1;
	27
	28	=head1 AUTHORS
	29
	30	See the included AUTHORS file:
	31	L<http://search.cpan.org/dist/SQL-Translator/AUTHORS>
	32
	33	=head1 COPYRIGHT
	34
	35	Copyright (c) 2012 the SQL::Translator L</AUTHORS> as listed above.
	36
	37	=head1 LICENSE
	38
	39	This code is free software and may be distributed under the same terms as Perl
	40	itself.
	41
	42	=cut