__PACKAGE__->set_sql( list => "select uname,fname,sname from users" );

sub list{
  my ($class) = @_;
  my $sth = $class->sql_list();
  $sth->execute();
  return $sth->fetchall_arrayref({});
}

##</code><code>##

my @users = My::CDBI::User->list;

##</code><code>##

my $user = My::CDBI::User->retrieve(123);
$user->fname('Fred');
$user->sname('Flintstone');
$user->update;