package TableA;
use base qw(Rose::DB::Object);

use DBConn;
sub init_db {
    return DBConn->new
}

__PACKAGE__->meta->setup(
    table => 'tableA',
    columns => [
        id        => { type => 'serial', not_null => 1 },
        data      => { type => 'varchar', length => '255' },
        more_data => { type => 'varchar', length => '255', on_set => \&on_set },
    ],
    primary_key_columns => ['id'],
);

sub on_set {
    print "ON SET CALLED\n";
    return 1;
}