use Class::DBI::Loader;

my $loader = Class::DBI::Loader->new(
    dsn => "dbi:mysql:database=*******",
    user => "*******",
    password => "******",
    namespace => "BlaBla",
  );
my $class = $loader->find_class('MyTable');
print join (": " , $class->columns);
my @obj = $class->retrieve_all(1);
print $_->name foreach (@obj);

##</code><code>##

Can't locate object method "set_db" via package "BlaBla::Contact" at /usr/local/perl-5.6.0/lib/site_perl/5.6.0/Class/DBI/Loader/mysql.pm line 48.
Issuing rollback() for database handle being DESTROY'd without explicit disconnect().

##</code><code>##

        no strict 'refs';
        @{"$class\::ISA"} = qw(Class::DBI::mysql);
        $class->set_db( Main => @{ $self->_datasource } );