__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({}); }