package Foo;
use strict;
use Class::DBI;
use base 'Class::DBI';

Foo->set_db('Main',"url","user","password");
Foo->table('Foo');
Foo->columns(All=>qw/id name/);

sub method1{}
sub method2{}