this is pretty stable, and is ( i think ) generating usable class::dbi

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

diff --git a/lib/SQL/Translator/Schema/Graph/Edge.pm b/lib/SQL/Translator/Schema/Graph/Edge.pm
index 6915e71..cece2fa 100644 (file)
--- a/lib/SQL/Translator/Schema/Graph/Edge.pm
+++ b/lib/SQL/Translator/Schema/Graph/Edge.pm
@@ -17,6 +17,10 @@ use Class::MakeMethods::Template::Hash (
 
 sub flip {
   my $self = shift;
+
+#warn "self thisfield: ".$self->thisfield->name;
+#warn "self thatfield: ".$self->thatfield->name;
+
   return SQL::Translator::Schema::Graph::Edge->new( thisfield => $self->thatfield,
                                                                                                        thatfield => $self->thisfield,
                                                                                                        thisnode  => $self->thatnode,