[Jifty-commit] r936 - in Jifty-DBI/trunk: lib/Jifty/DBI

[jifty-commit at lists.jifty.org]

Author: alexmv
Date: Wed Apr 26 20:15:16 2006
New Revision: 936

Modified:
   Jifty-DBI/trunk/   (props changed)
   Jifty-DBI/trunk/Makefile.PL
   Jifty-DBI/trunk/lib/Jifty/DBI/Schema.pm

Log:
 r12642 at zoq-fot-pik:  chmrr | 2006-04-26 20:14:58 -0400
  * Be able to say C<default is literal 'now()'>


Modified: Jifty-DBI/trunk/Makefile.PL
==============================================================================
--- Jifty-DBI/trunk/Makefile.PL	(original)
+++ Jifty-DBI/trunk/Makefile.PL	Wed Apr 26 20:15:16 2006
@@ -9,7 +9,7 @@
 requires('Class::ReturnValue', 0.40);
 requires('Clone');
 requires('DBI');
-requires('DBIx::DBSchema' => '0.28');
+requires('DBIx::DBSchema' => '0.29');
 requires('Data::Page');
 requires('DateTime');
 requires('DateTime::Format::ISO8601');

Modified: Jifty-DBI/trunk/lib/Jifty/DBI/Schema.pm
==============================================================================
--- Jifty-DBI/trunk/lib/Jifty/DBI/Schema.pm	(original)
+++ Jifty-DBI/trunk/lib/Jifty/DBI/Schema.pm	Wed Apr 26 20:15:16 2006
@@ -40,7 +40,7 @@
 use Carp qw/croak carp/;
 use Exporter::Lite;
 our @EXPORT
-    = qw(column type default validator immutable unreadable length distinct mandatory not_null sort_order valid_values label hints render_as since input_filters output_filters filters virtual is by are on);
+    = qw(column type default literal validator immutable unreadable length distinct mandatory not_null sort_order valid_values label hints render_as since input_filters output_filters filters virtual is by are on);
 
 our $SCHEMA;
 our $SORT_ORDERS = {};
@@ -142,6 +142,19 @@
     _list( default => @_ );
 }
 
+=head2 literal
+
+Used for default values, to connote that they should not be quoted
+before being supplied as the default value for the column.  Correct
+usage is C<default is literal 'now()'>.
+
+=cut
+
+sub literal($) {
+    my $value = shift;
+    return \$value;
+}
+
 =head2 validator
 
 Defines a subroutine which returns a true value only for valid values