remove some unnecessary code

[dbsrgits/SQL-Translator-2.0-ish.git] / lib / SQL / Translator / Producer / SQL / MySQL.pm

diff --git a/lib/SQL/Translator/Producer/SQL/MySQL.pm b/lib/SQL/Translator/Producer/SQL/MySQL.pm
index c1691e3..2690f72 100644 (file)
--- a/lib/SQL/Translator/Producer/SQL/MySQL.pm
+++ b/lib/SQL/Translator/Producer/SQL/MySQL.pm
@@ -253,13 +253,10 @@ role SQL::Translator::Producer::SQL::MySQL {
         if( my $sql = $view->sql ){
           $create .= " AS (\n    ${sql}\n  )";
         }
-    #    $create .= "";
         return $create;
     }
     
     method create_table($table, $options) {
-#        my ($table, $options) = @_;
-    
         my $qt = $options->{quote_table_names} || '';
         my $qf = $options->{quote_field_names} || '';
     
@@ -805,6 +802,7 @@ HEADER_COMMENT
     use constant COLLISION_TAG_LENGTH => 8;
 
     method truncate_id_uniquely(Str $desired_name, Int $max_symbol_length) {
+        use Digest::SHA1 qw(sha1_hex);
         return $desired_name
           unless defined $desired_name && length $desired_name > $max_symbol_length;