NAME

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

SYNOPSIS

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;