1 package SQL::Translator::Schema::Graph::Edge;
6 use Class::MakeMethods::Template::Hash (
8 scalar => [ qw( type ) ],
9 array => [ qw( traversals ) ],
11 'thisfield' => {class => 'SQL::Translator::Schema::Field'}, #FIXME
12 'thatfield' => {class => 'SQL::Translator::Schema::Field'}, #FIXME
13 'thisnode' => {class => 'SQL::Translator::Schema::Graph::Node'},
14 'thatnode' => {class => 'SQL::Translator::Schema::Graph::Node'},
22 #warn "self thisfield: ".$self->thisfield->name;
23 #warn "self thatfield: ".$self->thatfield->name;
25 return SQL::Translator::Schema::Graph::Edge->new( thisfield => $self->thatfield,
26 thatfield => $self->thisfield,
27 thisnode => $self->thatnode,
28 thatnode => $self->thisnode,
29 type => $self->type eq 'import' ? 'export' : 'import'