CGI::AppToolkit::Data::TestSQLObject - An example object, illustrating how to subclass CGI::AppToolkit::Data::SQLObject.

  package CGI::AppToolkit::Data::TestSQLObject;

  use base 'CGI::AppToolkit::Data::SQLObject';
  use strict;

  #-------------------------------------#

  # initialize variables
  sub init {
    my $self = shift;

    $self->set_table('test_shebang');
    $self->set_index('id');
    $self->set_all_insert_columns([qw/address zip password active verified html/]);
    $self->set_default_insert_columns({'start' => 'now()'});
    $self->set_all_update_columns($self->get_all_insert_columns);

    1;
  }

  #-------------------------------------#

  # get a prepared db statement
  sub get_db_statement_local {
    my $self = shift;
    my $name = shift;

    my $db = $self->get_kit->get_dbi();

    if ($name eq 'now') {
      return [$db->prepare('select CURRENT_DATE as now'), []];
    } elsif ($name eq 'date/<1') {
      return [$db->prepare('select * from people where birthday < ?'), [qw/date/]];
    }

    undef
  }

  1;