package MyTable
sub new { ... }
sub buildFromSql {
  $self->{t} = Data::Table::fromSql($dbh,$sql);
}

sub AUTOLOAD {
   my $self = shift;
   my $command = our $AUTOLOAD;
   $command =~ s/.*://;
   
   $self->{t}->$command(@_);
}