sub connect_read {
  my $self = shift;
  my $class = shift;
  $class = "Obj::Driver::$class";
  # Load the class if need be then instantiate
  require $class;
  $self->{input} = $class->connect_read(@_);
}