package MyClass;

  use DBIx::SearchBuilder::Record::Cachable;
  @ISA = (DBIx::SearchBuilder::Record::Cachable);
  
  # Object initialize method 
  sub _Init {
      my $self = shift;
      my $DBIxHandle = shift; # A DBIx::SearchBuilder::Handle object for your database

      $self->_Handle($DBIxHandle);
      $self->Table("YourTable");

      # Do some object initialization
  }
 
   # Object properties and access modes
   sub _Accessible  {                                              
       my $self = shift;                                             
       my %Cols = ( Name      => 'read/write/admin',
                    Password  => 'read/write/admin',                     
                    Comments  => 'read/write',          
                    Signature => 'read/write', 
                   );
   
       return($self->SUPER::_Accessible(@_, %Cols));
 . . .