sub engines { trace() if $ENV{TRACE}; my $self = shift; my $module = $self->{namespace} . "::Engine"; my $engine = $module->new; my @engines; for (keys %{$engine->_dt}){ push @engines, $_ if $_ !~ /^_/; } return @engines; }