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{}


##</code><code>##

my $foo = Foo->retrieve(1); # for row with id 1.
$foo->method1();