BEGIN {
  use HDB ;
  HDB->new( id => 'HPLOO' , type => 'sqlite' , db => './hploo.db' ) ;
}

  use User ;

  my $new_user = new User('joe' , 12345 , 'Joe Smith' , 30 ) ;
  
  $new_user = undef ; ## destroy to commit to the DB. Or just call $new_user->hdb_save.

  print "-------------------------------------------\n" ;

  my $user_joe = load User("user eq 'joe'") ;
  
  foreach my $attr ( $user_joe->ATTRS ) {
    print "$attr: $user_joe->{$attr}\n" ;
  }
  
  $user_joe = undef ; ## commit
  
  print "-------------------------------------------\n" ;

  my @users = load User("id < 10") ;
  
  foreach my $users_i ( @users ) {
    ++$users_i->{age} ;
  }

  @users = () ; ## commit changes.

  print "-------------------------------------------\n" ;
  print User->hdb_dump_table ;
  print "-------------------------------------------\n" ;