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