From: Rafael Kitover Date: Tue, 23 Jun 2009 14:38:33 +0000 (+0000) Subject: minor doc update X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d9e53b85a871e0a793d6b164a6ad977341c07b27;p=dbsrgits%2FDBIx-Class-Historic.git minor doc update --- diff --git a/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm b/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm index 4e733a2..6a74633 100644 --- a/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm +++ b/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm @@ -206,6 +206,12 @@ These are the defaults used: $ENV{NLS_TIMESTAMP_FORMAT} ||= 'YYYY-MM-DD HH24:MI:SS.FF'; $ENV{NLS_TIMESTAMP_TZ_FORMAT} ||= 'YYYY-MM-DD HH24:MI:SS.FF TZHTZM'; +To get more than second precision with L +for your timestamps, use something like this: + + use Time::HiRes 'time'; + my $ts = DateTime->from_epoch(epoch => time); + =cut sub connect_call_datetime_setup { @@ -220,7 +226,7 @@ sub connect_call_datetime_setup { $dbh->do("alter session set nls_date_format = '$date_format'"); $dbh->do("alter session set nls_timestamp_format = '$timestamp_format'"); - $dbh->do("alter session set nls_timestamp_tz_format = '$timestamp_tz_format'"); + $dbh->do("alter session set nls_timestamp_tz_format='$timestamp_tz_format'"); } sub _svp_begin {