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