local $Data::Dumper::Maxdepth = 3;
use Log::Log4perl qw(:easy);
-Log::Log4perl->easy_init($ERROR);
+Log::Log4perl->easy_init($ERROR) unless Log::Log4perl->initialized();
use SQL::Translator::Schema::Graph::Node;
use SQL::Translator::Schema::Graph::Edge;
use SQL::Translator::Schema::Graph::Port;
use Class::MakeMethods::Template::Hash (
'new --and_then_init' => 'new',
object => [
- 'translator' => {class => 'SQL::Translator'},
- ],
- 'hash' => [ qw( node translator) ],
+ 'translator' => {class => 'SQL::Translator'},
+ ],
+ 'hash' => [ qw( node ) ],
'number --counter' => [ qw( order ) ],
);
}
-=head2 translator
-
-get the SQL::Translator instance that instatiated me
-
-=cut
-
-sub translator {
- my $self = shift;
- $self->{'translator'} = shift if @_;
- return $self->{'translator'};
-}
-
1;