minor update to FileColumn. I added a callback method which can be used by FileColumn...
Victor Igumnov [Sat, 20 Jan 2007 19:46:33 +0000 (19:46 +0000)]
lib/DBIx/Class/FileColumn.pm

index ece881c..757d75a 100644 (file)
@@ -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.