Resurrect the DB2 precompiled grammar to which we lost the source

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

package # hide from pause
  SQL::Translator::Generator::Utils;

# AUTHOR: Arthur Axel fREW Schmidt
# Copyright: Same as Perl 5

use Moo;
use Sub::Quote 'quote_sub';

# this should be ro, but I have to modify it in BUILD so bleh
has quote_chars => ( is => 'rw' );

has name_sep    => (
   is => 'ro',
   default => quote_sub q{ '.' },
);

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

sub BUILD {
   my $self = shift;

   unless (ref($self->quote_chars)) {
      if ($self->quote_chars) {
         $self->quote_chars([$self->quote_chars])
      } else {
         $self->quote_chars([])
      }
   }

   $self
}

1;