package TestModule;
require DBI;

use Class::Delegator
  send => [qw/prepare do execute .../],
  to   => '_dbi';

sub _dbi { shift->{DBI} }
       
sub new {
    my $class = shift;
    return unless @_;
    return bless { DBI => DBI->connect(@_) }, $class;
}