1 package # hide from pause
2 SQL::Translator::Generator::Utils;
5 use Sub::Quote 'quote_sub';
7 # this should be ro, but I have to modify it in BUILD so bleh
8 has quote_chars => ( is => 'rw' );
12 default => quote_sub q{ '.' },
15 with 'SQL::Translator::Generator::Role::Quote';
20 unless (ref($self->quote_chars)) {
21 if ($self->quote_chars) {
22 $self->quote_chars([$self->quote_chars])
24 $self->quote_chars([])