From: Victor Igumnov <victori@cpan.org>
Date: Sat, 20 Jan 2007 19:46:33 +0000 (+0000)
Subject: minor update to FileColumn. I added a callback method which can be used by FileColumn... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=38fd234252993b0a4d4a5efbb9ba33b0c1400dfb;p=dbsrgits%2FDBIx-Class-Historic.git

minor update to FileColumn. I added a callback method which can be used by FileColumn::Thumbnail
---

diff --git a/lib/DBIx/Class/FileColumn.pm b/lib/DBIx/Class/FileColumn.pm
index ece881c..757d75a 100644
--- a/lib/DBIx/Class/FileColumn.pm
+++ b/lib/DBIx/Class/FileColumn.pm
@@ -110,10 +110,27 @@ sub _save_file_column {
             my $outfile =
               File::Spec->catfile( $file_path, $file->{$_}->{filename} );
             File::Copy::copy( $file->{$_}->{handle}, $outfile );
+        
+            $self->_file_column_callback($file->{$_},$ret,$_);
         }
     }
 }
 
+=head1 METHODS
+
+=cut
+
+
+=head2 _file_column_callback ($file,$ret,$target)
+
+method made to be overridden for callback purposes.
+
+=cut
+
+sub _file_column_callback {
+    my ($self,$file,$ret,$target) = @_;
+}
+
 =head1 NAME
 
 DBIx::Class::FileColumn - FileColumn map files from the Database to the filesystem.