package MyDateExperiment ;
use base qw/Class::DBI/ ;
use Class::DBI::Plugin::DateFormat::Oracle qw(0.01) ;
my $NLS_DATE_FORMAT_CONVENTIONAL = 'YYYY-MM-DD HH24:MI:SS' ;
#
# connection stuff...
# name the table...
# field definitions...
#
sub create {
  my $class = shift ;
  my $oldFormat = $class->get_nls_date_format;
  $class->set_nls_date_format( $NLS_DATE_FORMAT_CONVENTIONAL ) ;
  my $ans = $class->SUPER::create( @_ ) ;
  $class->set_nls_date_format( $oldFormat ) ;
  return $ans ;
}
sub get {
  my $class = shift ;
  my $oldFormat = $class->get_nls_date_format;
  $class->set_nls_date_format( $NLS_DATE_FORMAT_CONVENTIONAL ) ;
  my $ans = $class->SUPER::get( @_ ) ;
  $class->set_nls_date_format( $oldFormat ) ;
  return $ans ;
}

sub set {
  my $class = shift ;
  my $oldFormat = $class->get_nls_date_format;
  $class->set_nls_date_format( $NLS_DATE_FORMAT_CONVENTIONAL ) ;
  my $ans = $class->SUPER::set( @_ ) ;
  $class->set_nls_date_format( $oldFormat ) ;
  return $ans ;
}