default values

i noticed just now...

if postgres is this:

        create table stuff ( id integer not null primary key , name varchar 
(40), active boolean default true );

and rosedb::object subclass is this

__PACKAGE__->meta->table('stuff');
__PACKAGE__->meta->columns(qw(id name active ));
__PACKAGE__->meta->primary_key_columns('id');

new inserts like this:

     rosedbObject->new( id=> 1 , name=>'your mom' );

will create a null value in 'active'

and i need to either do
     rosedbObject->new( id=> 1 , name=>'your mom' , active=>1 );
or define the default value in the rosedb::object subclass

is there any way to not define the default value in perl, and just  
let the db specify it?

Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642