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

User->table('user');
User->columns(Primiary=>qw/name/);
User->columns(Other=>qw/password age/);

1;

##</code><code>##

bless({ name=> "test", password=>"password", age=>10},"User")
# bless({ name=> "test", password=>"password", age=>10},"User")->age() gives error.

##</code><code>##

use User;
bless({ name=> "test", password=>"password", age=>10},"User")->age();
# returns 10