Add POD for custom_column_info, remove ( empty ) hashref support from custom_column_info

[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 cf22900..5cdd624 100644 (file)
--- a/lib/DBIx/Class/Schema/Loader/Base.pm
+++ b/lib/DBIx/Class/Schema/Loader/Base.pm
@@ -17,7 +17,7 @@ use Class::Unload;
 use Class::Inspector ();
 require DBIx::Class;
 
-our $VERSION = '0.05001';
+our $VERSION = '0.05002';
 
 __PACKAGE__->mk_group_ro_accessors('simple', qw/
                                 schema
@@ -33,6 +33,7 @@ __PACKAGE__->mk_group_ro_accessors('simple', qw/
                                 skip_relationships
                                 skip_load_external
                                 moniker_map
+                                custom_column_info
                                 inflect_singular
                                 inflect_plural
                                 debug
@@ -379,6 +380,23 @@ made to Loader-generated code.
 Again, you should be using version control on your schema classes.  Be
 careful with this option.
 
+=head2 custom_column_info
+
+Must be a coderef, returing a hashref with the custom column informations.
+
+Example:
+
+    sub _custom_column_info {
+        my $info = shift;
+
+        if ( $info->{TYPE_NAME} eq 'DATE' ){
+            return { timezone => "Europe/Berlin" };
+        }
+        return;
+    }
+
+Add to all columns with type DATE the attribute timezone => "Europe/Berlin". 
+
 =head1 METHODS
 
 None of these methods are intended for direct invocation by regular
@@ -1559,6 +1577,15 @@ sub _quote_table_name {
 
 sub _is_case_sensitive { 0 }
 
+sub _custom_column_info {
+    my ( $self, $info ) = @_;
+
+    if( ref $self->custom_column_info eq 'CODE' ) {
+        return $self->custom_column_info->($info);
+    }
+    return {};
+}
+
 # remove the dump dir from @INC on destruction
 sub DESTROY {
     my $self = shift;