[Jifty-commit] r1604 - in jifty/branches/moose: t/Continuations/lib/Continuations/Action t/Mapper/lib/Mapper/Action t/TestApp/lib/TestApp/Action

[jifty-commit at lists.jifty.org]

Author: audreyt
Date: Mon Jul 17 21:21:58 2006
New Revision: 1604

Modified:
   jifty/branches/moose/lib/Jifty/Param/Schema.pm
   jifty/branches/moose/t/Continuations/lib/Continuations/Action/CrossBridge.pm
   jifty/branches/moose/t/Mapper/lib/Mapper/Action/CrossBridge.pm
   jifty/branches/moose/t/TestApp/lib/TestApp/Action/DoSomething.pm

Log:
* Update t/*/lib/*/Action/* to demo the new schema syntax.

Modified: jifty/branches/moose/lib/Jifty/Param/Schema.pm
==============================================================================
--- jifty/branches/moose/lib/Jifty/Param/Schema.pm	(original)
+++ jifty/branches/moose/lib/Jifty/Param/Schema.pm	Mon Jul 17 21:21:58 2006
@@ -12,6 +12,8 @@
 sub schema (&) {
     my $code = shift;
     my $from = caller;
+
+    no warnings 'redefine';
     local *_ = sub {
         my $args = \@_;
         defer { local *_; Jifty::I18N->new; _(@$args) };

Modified: jifty/branches/moose/t/Continuations/lib/Continuations/Action/CrossBridge.pm
==============================================================================
--- jifty/branches/moose/t/Continuations/lib/Continuations/Action/CrossBridge.pm	(original)
+++ jifty/branches/moose/t/Continuations/lib/Continuations/Action/CrossBridge.pm	Mon Jul 17 21:21:58 2006
@@ -1,14 +1,13 @@
 package Continuations::Action::CrossBridge;
 
-use base qw/Jifty::Action/;
+use Jifty::Param::Schema;
+use Jifty::Action schema {
 
-sub arguments {
-    {
-        name   => {},
-        quest  => {},
-        colour => {valid_values => ["Blue, I mean greeeeeen!", "Green"]},
-    }
-}
+param 'name';
+param 'quest';
+param 'colour' => valid_values are ("Blue, I mean greeeeeen!", "Green");
+
+};
 
 sub validate_quest {
     my $self = shift;

Modified: jifty/branches/moose/t/Mapper/lib/Mapper/Action/CrossBridge.pm
==============================================================================
--- jifty/branches/moose/t/Mapper/lib/Mapper/Action/CrossBridge.pm	(original)
+++ jifty/branches/moose/t/Mapper/lib/Mapper/Action/CrossBridge.pm	Mon Jul 17 21:21:58 2006
@@ -1,14 +1,13 @@
 package Mapper::Action::CrossBridge;
 
-use base qw/Jifty::Action/;
+use Jifty::Param::Schema;
+use Jifty::Action schema {
 
-sub arguments {
-    {
-        name   => { default_value => "something" },
-        quest  => {},
-        colour => {valid_values => ["Blue, I mean greeeeeen!", "Green"]},
-    }
-}
+param name      => default_value is 'something';
+param 'quest';
+param colour    => valid_values are ("Blue, I mean greeeeeen!", "Green");
+
+};
 
 sub validate_quest {
     my $self = shift;

Modified: jifty/branches/moose/t/TestApp/lib/TestApp/Action/DoSomething.pm
==============================================================================
--- jifty/branches/moose/t/TestApp/lib/TestApp/Action/DoSomething.pm	(original)
+++ jifty/branches/moose/t/TestApp/lib/TestApp/Action/DoSomething.pm	Mon Jul 17 21:21:58 2006
@@ -1,16 +1,14 @@
 package TestApp::Action::DoSomething;
 
-use base qw/Jifty::Action/;
+use Jifty::Param::Schema;
+use Jifty::Action schema {
 
-sub arguments {
-    return({
-        email => {
-            label => 'Email',
-            ajax_canonicalizes => 1,
-            ajax_validates => 1,
-        }
-    });
-}
+param email =>
+    label is 'Email',
+    is ajax_canonicalizes,
+    is ajax_validates;
+
+};
 
 sub canonicalize_email {
     my $self = shift;