changed key from 'datetime' to 'epoch'. added some pod
Adam Paynter [Fri, 24 Mar 2006 12:15:17 +0000 (12:15 +0000)]
lib/DBIx/Class/DateTime/Epoch.pm

index b12a0ac..43c8755 100644 (file)
@@ -27,15 +27,15 @@ DBIx::Class::DateTime::Epoch - Automatic inflation/deflation of epoch-based Date
         },\r
         bar => {\r
             data_type => 'bigint',\r
-            datetime  => 'datetime'\r
+            epoch     => 1\r
         },\r
         creation_time => {\r
             data_type => 'bigint',\r
-            datetime  => 'ctime'\r
+            epoch     => 'ctime'\r
         },\r
         modification_time => {\r
             data_type => 'bigint',\r
-            datetime  => 'mtime'\r
+            epoch     => 'mtime'\r
         }\r
     );\r
 \r
@@ -47,11 +47,13 @@ defined to specify their nature, such as columns representing a
 creation time (set at time of insertion) or a modification time\r
 (set at time of every update).\r
 \r
+=head1 METHODS\r
+\r
 =head2 register_column\r
 \r
 This method will automatically add inflation and deflation rules\r
-to a column if a datetime value has been set in the column's definition.\r
-If the datetime value is 'ctime' (creation time) or 'mtime'\r
+to a column if an epoch value has been set in the column's definition.\r
+If the epoch value is 'ctime' (creation time) or 'mtime'\r
 (modification time), it will be registered as such for later\r
 use by the insert and the update methods.\r
 \r
@@ -99,7 +101,7 @@ sub register_column {
     my( $class, $col, $info ) = @_;\r
     $class->next::method( $col, $info );\r
     \r
-    if( my $type = $info->{ datetime } ) {\r
+    if( my $type = $info->{ epoch } ) {\r
         $class->ctime_columns( [ @{ $class->ctime_columns }, $col ] ) if $type eq 'ctime';\r
         $class->mtime_columns( [ @{ $class->mtime_columns }, $col ] ) if $type eq 'mtime';\r
         \r