From: K J Cheetham <jamie@shadowcatsystems.co.uk>
Date: Tue, 5 Jun 2007 14:46:58 +0000 (+0000)
Subject: POD tweak
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0876072cff6850bfc1408204babef9dd2c0c9e6a;p=dbsrgits%2FDBIx-Class-Historic.git

POD tweak
---

diff --git a/lib/DBIx/Class/InflateColumn/File.pm b/lib/DBIx/Class/InflateColumn/File.pm
index 65fb87f..7816127 100644
--- a/lib/DBIx/Class/InflateColumn/File.pm
+++ b/lib/DBIx/Class/InflateColumn/File.pm
@@ -113,29 +113,10 @@ sub _save_file_column {
     }
 }
 
-=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::InflateColumn::File -  map files from the Database to the filesystem.
 
-=head1 DESCRIPTION
-
-InflateColumn::File
-
 =head1 SYNOPSIS
 
 In your L<DBIx::Class> table class:
@@ -167,7 +148,8 @@ In your L<DBIx::Class> table class:
 
 In your L<Catalyst::Controller> class:
 
-FileColumn requires a hash that contains L<IO::File> as handle and the file's name as name.
+FileColumn requires a hash that contains L<IO::File> as handle and the file's
+name as name.
 
     my $entry = $c->model('MyAppDB::Articles')->create({ 
         subject => 'blah',
@@ -187,9 +169,26 @@ And Place the following in your TT template
     <a href="/static/files/[% entry.id %]/[% entry.filename.filename %]">File</a>
     Body: [% entry.body %]
     
-The file will be stored on the filesystem for later retrieval.
-Calling delete on your resultset will delete the file from the filesystem.
-Retrevial of the record automatically inflates the column back to the set hash with the IO::File handle and filename.
+The file will be stored on the filesystem for later retrieval.  Calling delete
+on your resultset will delete the file from the filesystem.  Retrevial of the
+record automatically inflates the column back to the set hash with the
+IO::File handle and filename.
+
+=head1 DESCRIPTION
+
+InflateColumn::File
+
+=head1 METHODS
+
+=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 AUTHOR