Upped version numbers, cleaned up code, fixed my name.

[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 cece2fa..3357c38 100644 (file)
--- a/lib/SQL/Translator/Schema/Graph/Edge.pm
+++ b/lib/SQL/Translator/Schema/Graph/Edge.pm
@@ -2,31 +2,32 @@ package SQL::Translator::Schema::Graph::Edge;
 
 use strict;
 
+use vars qw[ $VERSION ];
+$VERSION = '1.60';
+
 use Class::MakeMethods::Template::Hash (
-  new => ['new'],
-  scalar => [ qw( type ) ],
-  array => [ qw( traversals ) ],
-  object => [
-                        'thisfield'    => {class => 'SQL::Translator::Schema::Field'}, #FIXME
-                        'thatfield'    => {class => 'SQL::Translator::Schema::Field'}, #FIXME
-                        'thisnode'     => {class => 'SQL::Translator::Schema::Graph::Node'},
-                        'thatnode'     => {class => 'SQL::Translator::Schema::Graph::Node'},
+    new    => ['new'],
+    scalar => [qw( type )],
+    array  => [qw( traversals )],
+    object => [
+        'thisfield' => { class => 'SQL::Translator::Schema::Field' },    #FIXME
+        'thatfield' => { class => 'SQL::Translator::Schema::Field' },    #FIXME
+        'thisnode'  => { class => 'SQL::Translator::Schema::Graph::Node' },
+        'thatnode'  => { class => 'SQL::Translator::Schema::Graph::Node' },
 
-                       ],
+    ],
 );
 
 sub flip {
-  my $self = shift;
-
-#warn "self thisfield: ".$self->thisfield->name;
-#warn "self thatfield: ".$self->thatfield->name;
+    my $self = shift;
 
-  return SQL::Translator::Schema::Graph::Edge->new( thisfield => $self->thatfield,
-                                                                                                       thatfield => $self->thisfield,
-                                                                                                       thisnode  => $self->thatnode,
-                                                                                                       thatnode  => $self->thisnode,
-                                                                                                       type => $self->type eq 'import' ? 'export' : 'import'
-                                                                                                 );
+    return SQL::Translator::Schema::Graph::Edge->new(
+        thisfield => $self->thatfield,
+        thatfield => $self->thisfield,
+        thisnode  => $self->thatnode,
+        thatnode  => $self->thisnode,
+        type      => $self->type eq 'import' ? 'export' : 'import'
+    );
 }
 
 1;