Commit | Line | Data |
---|---|---|
0caaf4c3 | 1 | package SQL::Translator::Schema::Graph::CompoundEdge; |
2 | ||
ba506e52 | 3 | use vars qw[ $VERSION ]; |
4 | $VERSION = '1.60'; | |
5 | ||
0caaf4c3 | 6 | use strict; |
7 | use base qw(SQL::Translator::Schema::Graph::Edge); | |
8 | use Class::MakeMethods::Template::Hash ( | |
ba506e52 | 9 | new => ['new'], |
10 | object => [ 'via' => { class => 'SQL::Translator::Schema::Graph::Node' }, ], | |
11 | 'array_of_objects -class SQL::Translator::Schema::Graph::Edge' => | |
12 | [qw( edges )], | |
0caaf4c3 | 13 | ); |
14 | ||
15 | 1; |