foreach my $meth (qw/create get set/) {
  no strict qw/refs/ ;
  *{__PACKAGE__ . "::$meth"} = sub {
    my $class = shift ;
    my $oldFormat = $class->get_nls_date_format;
    $class->set_nls_date_format( $NLS_DATE_FORMAT_CONVENTIONAL ) ;
    my $ans = _good_lord_what_function( @_ ) ; ### ???
    $class->set_nls_date_format( $oldFormat ) ;
    return $ans ;
  }
}