Add datetime_timezone/datetime_locale loader options

[dbsrgits/DBIx-Class-Schema-Loader.git] / lib / DBIx / Class / Schema / Loader / Base.pm

diff --git a/lib/DBIx/Class/Schema/Loader/Base.pm b/lib/DBIx/Class/Schema/Loader/Base.pm
index 905eb76..6895279 100644 (file)
--- a/lib/DBIx/Class/Schema/Loader/Base.pm
+++ b/lib/DBIx/Class/Schema/Loader/Base.pm
@@ -55,6 +55,8 @@ __PACKAGE__->mk_group_ro_accessors('simple', qw/
                                 monikers
                                 dynamic
                                 naming
+                                datetime_timezone
+                                datetime_locale
 /);
 
 
@@ -388,7 +390,28 @@ Example:
 
     custom_column_info => sub {
         my $info = shift;
-
+        # Example from $info hashref:
+        # $info = {
+        #           'DECIMAL_DIGITS' => undef,
+        #           'COLUMN_DEF' => undef,
+        #           'TABLE_CAT' => undef,
+        #           'NUM_PREC_RADIX' => undef,
+        #           'TABLE_SCHEM' => 'TESTS',
+        #           'BUFFER_LENGTH' => '8',
+        #           'CHAR_OCTET_LENGTH' => undef,
+        #           'IS_NULLABLE' => 'NO',
+        #           'REMARKS' => undef,
+        #           'COLUMN_SIZE' => '8',
+        #           'ORDINAL_POSITION' => '1',
+        #           'COLUMN_NAME' => 'LOADER_TEST9',
+        #           'TYPE_NAME' => 'VARCHAR2',
+        #           'NULLABLE' => '0',
+        #           'DATA_TYPE' => '12',
+        #           'TABLE_NAME' => 'LOADER_TEST9',
+        #           'SQL_DATA_TYPE' => '12',
+        #           'SQL_DATETIME_SUB' => undef
+        #         };
+        
         if ( $info->{TYPE_NAME} eq 'DATE' ){
             return { timezone => "Europe/Berlin" };
         }
@@ -397,6 +420,16 @@ Example:
 
 Add to all columns with type DATE the attribute timezone => "Europe/Berlin". 
 
+=head2 datetime_timezone
+
+Set timezone attribute for L<DBIx::Class::InflateColumn::DateTime> 
+to all columns with the type DATE.
+
+=head2 datetime_locale
+
+Set local attribute for L<DBIx::Class::InflateColumn::DateTime> 
+to all columns with the type DATE.
+
 =head1 METHODS
 
 None of these methods are intended for direct invocation by regular
@@ -1586,6 +1619,28 @@ sub _custom_column_info {
     return {};
 }
 
+sub _datetime_column_info {
+    my ( $self, $info, $column_info) = @_;
+    # warn "_datetime_column_info XXXXXXXXX";
+    # use Data::Dumper;
+    # warn Dumper $info;
+    # warn Dumper $column_info;
+    my $return = {};
+    my $type = lc ( $info->{TYPE_NAME} );
+
+    if (
+        ( defined $column_info->{inflate_datetime} and $column_info->{inflate_datetime} )
+        or ( defined $column_info->{inflate_date} and $column_info->{inflate_date} )
+        or ( $type eq 'date')
+        or ( $type eq 'datetime')
+        or ( $type eq 'timestamp')
+    ){
+        $return->{timezone} = $self->datetime_timezone if $self->datetime_timezone;
+        $return->{locale}   = $self->datetime_locale if $self->datetime_locale;
+    }
+    return $return;
+}
+
 # remove the dump dir from @INC on destruction
 sub DESTROY {
     my $self = shift;