Escape the closing quote character when quoting indentifiers
[dbsrgits/SQL-Translator.git] / lib / SQL / Translator / Generator / DDL / PostgreSQL.pm
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
13 use Moo;
14
15 has quote_chars => (
16   is => 'rw',
17   default => sub { +[qw(" ")] },
18   trigger => sub { $_[0]->clear_escape_char },
19 );
20
21 with 'SQL::Translator::Generator::Role::Quote';
22
23 sub name_sep { q(.) }
24
25 1;
26
27 =head1 AUTHORS
28
29 See the included AUTHORS file:
30 L<http://search.cpan.org/dist/SQL-Translator/AUTHORS>
31
32 =head1 COPYRIGHT
33
34 Copyright (c) 2012 the SQL::Translator L</AUTHORS> as listed above.
35
36 =head1 LICENSE
37
38 This code is free software and may be distributed under the same terms as Perl
39 itself.
40
41 =cut