[Bast-commits] r6769 - DBIx-Class/0.08/branches/on_connect_call/lib/DBIx/Class/Storage/DBI/Oracle

caelum at dev.catalyst.perl.org caelum at dev.catalyst.perl.org
Tue Jun 23 14:38:33 GMT 2009


Author: caelum
Date: 2009-06-23 14:38:33 +0000 (Tue, 23 Jun 2009)
New Revision: 6769

Modified:
   DBIx-Class/0.08/branches/on_connect_call/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
Log:
minor doc update

Modified: DBIx-Class/0.08/branches/on_connect_call/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
===================================================================
--- DBIx-Class/0.08/branches/on_connect_call/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm	2009-06-23 13:59:48 UTC (rev 6768)
+++ DBIx-Class/0.08/branches/on_connect_call/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm	2009-06-23 14:38:33 UTC (rev 6769)
@@ -206,6 +206,12 @@
   $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<DBIx::Class::InflateColumn::DateTime>
+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 @@
 
   $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 {




More information about the Bast-commits mailing list