sub new {
my $class = shift;
my $self = {'_DEBUG' => 0,
- '_CONNECTORS' => sub { return ({ 'name' => 'direct',
- 'schemas' => {} }) },
'_CONNECTOR' => undef,
API => {
io => sub { printf(@_) },
sub connectors {
my $self = shift;
- return $self->{'_CONNECTORS'}->();
+ return $self->{_API}->{connectors}->();
}
sub selectconn {