This seems to no longer be used anywhere...?

diff --git a/lib/SQL/Translator/Generator/DDL/SQLServer.pm b/lib/SQL/Translator/Generator/DDL/SQLServer.pm
index 82d2000..40e29ea 100644 (file)
--- a/lib/SQL/Translator/Generator/DDL/SQLServer.pm
+++ b/lib/SQL/Translator/Generator/DDL/SQLServer.pm
@@ -4,7 +4,6 @@ package SQL::Translator::Generator::DDL::SQLServer;
 # Copyright: Same as Perl 5
 
 use Moo;
-use SQL::Translator::Generator::Utils;
 use SQL::Translator::Schema::Constants;
 
 with 'SQL::Translator::Generator::Role::Quote';

diff --git a/lib/SQL/Translator/Generator/DDL/SQLite.pm b/lib/SQL/Translator/Generator/DDL/SQLite.pm
index eaf147a..b7649ba 100644 (file)
--- a/lib/SQL/Translator/Generator/DDL/SQLite.pm
+++ b/lib/SQL/Translator/Generator/DDL/SQLite.pm
@@ -4,7 +4,6 @@ package SQL::Translator::Generator::DDL::SQLite;
 # Copyright: Same as Perl 5
 
 use Moo;
-use SQL::Translator::Generator::Utils;
 
 has quote_chars => (is=>'ro', default=>sub { +[qw(" ")] } );
 

diff --git a/lib/SQL/Translator/Generator/Utils.pm b/lib/SQL/Translator/Generator/Utils.pm
deleted file mode 100644 (file)
index 6b2b79f..0000000
--- a/lib/SQL/Translator/Generator/Utils.pm
+++ /dev/null
@@ -1,34 +0,0 @@
-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;

diff --git a/t/65-generator-utils.t b/t/65-generator-utils.t
deleted file mode 100644 (file)
index 5eb4691..0000000
--- a/t/65-generator-utils.t
+++ /dev/null
@@ -1,27 +0,0 @@
-use strict;
-use warnings;
-
-use Test::More;
-
-use SQL::Translator::Generator::Utils;
-
-my $util = SQL::Translator::Generator::Utils->new(
-   quote_chars => ['[', ']'],
-);
-
-is $util->quote('frew'), '[frew]', 'simple quote works';
-is $util->quote('people.frew'), '[people].[frew]', 'namespaced quote works';
-
-my $single_util = SQL::Translator::Generator::Utils->new(
-   quote_chars => q(|),
-);
-
-is $single_util->quote('frew'), '|frew|', 'simple single quote works';
-is $single_util->quote('people.frew'), '|people|.|frew|', 'namespaced single quote works';
-
-my $no_util = SQL::Translator::Generator::Utils->new();
-
-is $no_util->quote('frew'), 'frew', 'simple no quote works';
-is $no_util->quote('people.frew'), 'people.frew', 'namespaced no quote works';
-
-done_testing;