Added Utils package with debug method, shared between MySQL and SQLite producers.

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

diff --git a/lib/SQL/Translator/Producer/MySQL.pm b/lib/SQL/Translator/Producer/MySQL.pm
index 54e0b71..3b80731 100644 (file)
--- a/lib/SQL/Translator/Producer/MySQL.pm
+++ b/lib/SQL/Translator/Producer/MySQL.pm
@@ -1,7 +1,7 @@
 package SQL::Translator::Producer::MySQL;
 
 # -------------------------------------------------------------------
-# $Id: MySQL.pm,v 1.8 2003-03-04 21:24:12 kycl4rk Exp $
+# $Id: MySQL.pm,v 1.9 2003-03-12 14:17:11 dlc Exp $
 # -------------------------------------------------------------------
 # Copyright (C) 2003 Ken Y. Clark <kclark@cpan.org>,
 #                    darren chamberlain <darren@cpan.org>,
@@ -24,10 +24,11 @@ package SQL::Translator::Producer::MySQL;
 
 use strict;
 use vars qw[ $VERSION $DEBUG ];
-$VERSION = sprintf "%d.%02d", q$Revision: 1.8 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.9 $ =~ /(\d+)\.(\d+)/;
 $DEBUG   = 1 unless defined $DEBUG;
 
 use Data::Dumper;
+use SQL::Translator::Utils qw(debug);
 
 sub import {
     warn "loading " . __PACKAGE__ . "...\n";
@@ -39,7 +40,7 @@ sub produce {
     my $no_comments         = $translator->no_comments;
     my $add_drop_table      = $translator->add_drop_table;
 
-    debug("Beginning production\n");
+    debug("PKG: Beginning production\n");
 
     my $create; 
     unless ( $no_comments ) {
@@ -48,7 +49,7 @@ sub produce {
     }
 
     for my $table ( keys %{ $data } ) {
-        debug("Looking at table '$table'\n");
+        debug("PKG: Looking at table '$table'\n");
         my $table_data = $data->{$table};
         my @fields = sort { 
             $table_data->{'fields'}->{$a}->{'order'} 
@@ -68,7 +69,7 @@ sub produce {
         #
         for (my $i = 0; $i <= $#fields; $i++) {
             my $field = $fields[$i];
-            debug("Looking at field '$field'\n");
+            debug("PKG: Looking at field '$field'\n");
             my $field_data = $table_data->{'fields'}->{$field};
             my @fdata = ("", $field);
             $create .= "\n";
@@ -191,12 +192,6 @@ sub produce {
     return $create;
 }
 
-sub debug {
-    if ($DEBUG) {
-        map { warn "[" . __PACKAGE__ . "] $_" } @_;
-    }
-}
-
 1;
 __END__