Changed Constraint.equals() to ignore ordering of fields and reference fields

[dbsrgits/SQL-Translator.git] / lib / SQL / Translator / Schema / Graph.pm

diff --git a/lib/SQL/Translator/Schema/Graph.pm b/lib/SQL/Translator/Schema/Graph.pm
index 50b703b..d13c56b 100644 (file)
--- a/lib/SQL/Translator/Schema/Graph.pm
+++ b/lib/SQL/Translator/Schema/Graph.pm
@@ -3,7 +3,7 @@ package SQL::Translator::Schema::Graph;
 use strict;
 
 use Data::Dumper;
-$Data::Dumper::Maxdepth = 3;
+local $Data::Dumper::Maxdepth = 3;
 
 use Log::Log4perl qw(:easy);
 Log::Log4perl->easy_init($ERROR);
@@ -24,7 +24,7 @@ use Class::MakeMethods::Template::Hash (
   object => [
                         'translator' => {class => 'SQL::Translator'},
                        ],
-  'hash' => [ qw( node translator) ],
+  'hash' => [ qw( node ) ],
   'number --counter' => [ qw( order ) ],
 );
 
@@ -252,16 +252,4 @@ sub init {
 
 }
 
-=head2 translator
-
-get the SQL::Translator instance that instatiated me
-
-=cut
-
-sub translator {
-    my $self = shift;
-    $self->{'translator'} = shift if @_;
-    return $self->{'translator'};
-}
-
 1;