[Bast-commits] r3475 - branches/DBIx-Class-current/lib/DBIx/Class/InflateColumn

[penguin at dev.catalyst.perl.org]

Author: penguin
Date: 2007-06-05 15:46:58 +0100 (Tue, 05 Jun 2007)
New Revision: 3475

Modified:
   branches/DBIx-Class-current/lib/DBIx/Class/InflateColumn/File.pm
Log:
POD tweak

Modified: branches/DBIx-Class-current/lib/DBIx/Class/InflateColumn/File.pm
===================================================================
--- branches/DBIx-Class-current/lib/DBIx/Class/InflateColumn/File.pm	2007-06-05 11:07:34 UTC (rev 3474)
+++ branches/DBIx-Class-current/lib/DBIx/Class/InflateColumn/File.pm	2007-06-05 14:46:58 UTC (rev 3475)
@@ -113,29 +113,10 @@
     }
 }
 
-=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<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,10 +169,27 @@
     <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
 
 Victor Igumnov