package user::user;

use base 'Class::DBI::Sybase';

user::user->set_db('Main', 'DBI:Sybase:database=YYYYYY;server=127.0.0.1;textsize=4550', 'xxxxxxxx', 'xxxxxxxx');

__PACKAGE__->table('users');
__PACKAGE__->columns(All => 'recnum', 'firstname', 'lastname', 'email');

1;


##</code><code>##

#!/usr/bin/perl -w
use strict;
use user::user;
use Data::Dumper;

my @cols = user::user->columns;
print "COLUMNS:\n";
print "$_\n" foreach @cols;
print "\n\nAnd now the table data...\n";
my @obj = user::user->search(recnum =>1);
print "$_\n" foreach @obj;

##</code><code>##

COLUMNS:
lastname
firstname
email
recnum


And now the table data...
sth_to_objects needs a statement handle at ./cdbi_tst.pl line 38