[Rt-commit] r4114 - in Jifty-DBI/trunk: . lib/Jifty/DBI

[alexmv at bestpractical.com]

Author: alexmv
Date: Thu Nov 17 16:58:20 2005
New Revision: 4114

Modified:
   Jifty-DBI/trunk/   (props changed)
   Jifty-DBI/trunk/Changes
   Jifty-DBI/trunk/lib/Jifty/DBI/Schema.pm
Log:
 r7251 at zoq-fot-pik:  chmrr | 2005-11-17 16:57:55 -0500
  * Make 'not_null' still work


Modified: Jifty-DBI/trunk/Changes
==============================================================================
--- Jifty-DBI/trunk/Changes	(original)
+++ Jifty-DBI/trunk/Changes	Thu Nov 17 16:58:20 2005
@@ -1,6 +1,6 @@
 Revision history for Perl extension Jifty::DBI.
 
-* not_null has been replaced with mandatory
+* not_null deprecated in favor of mandatory
 
 0.05_01 Tue Nov  8 16:29:02 EST 2005
 

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	Thu Nov 17 16:58:20 2005
@@ -1,7 +1,8 @@
 package Jifty::DBI::Schema;
+use Carp qw/carp/;
 use Exporter::Lite;
 our @EXPORT
-    = qw(column type default validator immutable unreadable length mandatory valid_values label hints render_as since input_filters output_filters is by are on);
+    = qw(column type default validator immutable unreadable length mandatory not_null valid_values label hints render_as since input_filters output_filters is by are on);
 
 our $SCHEMA;
 
@@ -80,6 +81,11 @@
     return ( [ mandatory => 1 ] );
 }
 
+sub not_null () {
+    carp "'is not_null' is deprecated in favor of 'is mandatory'";
+    return ( [ mandatory => 1 ] );
+}
+
 sub input_filters ($) {
     return ( input_filters => shift );
 }