Hatena::Groupcatalyst

masaki@catalyst RSSフィード

Fork me on GitHub
 | 

2007-11-03

それ Catalyst::Action::RenderView と dump_info でできるよ

| 00:42 | それ Catalyst::Action::RenderView と dump_info でできるよ - masaki@catalyst を含むブックマーク はてなブックマーク - それ Catalyst::Action::RenderView と dump_info でできるよ - masaki@catalyst それ Catalyst::Action::RenderView と dump_info でできるよ - masaki@catalyst のブックマークコメント

http://d.hatena.ne.jp/kane46/20071102/1194014078

強制デバッグスクリーンにしたいということで

It also allows you to pass dump_info=1 to the url in order to force a debug screen

DBIC::FromFVS を FVS と DFV と その他互換のあるモジュールでも使ってみる

| 23:07 | DBIC::FromFVS を FVS と DFV と その他互換のあるモジュールでも使ってみる - masaki@catalyst を含むブックマーク はてなブックマーク - DBIC::FromFVS を FVS と DFV と その他互換のあるモジュールでも使ってみる - masaki@catalyst DBIC::FromFVS を FVS と DFV と その他互換のあるモジュールでも使ってみる - masaki@catalyst のブックマークコメント

いくつか気になったので.

  • Results なクラス名が固定だと同様のフォーム系モジュールを追加するのがめんどい
  • has_missing ってブランクかどうかを検出するメソッドな希ガス

なので,こんなんどうでしょう.でも色々対応できると逆に FromFVS って名前と離れちゃうね.

=== lang/perl/DBIx-Class-FromFormValidatorSimple/trunk/lib/DBIx/Class/FromFormValidatorSimple.pm
==================================================================
--- lang/perl/DBIx-Class-FromFormValidatorSimple/trunk/lib/DBIx/Class/FromFormValidatorSimple.pm	(revision 3)
+++ lang/perl/DBIx-Class-FromFormValidatorSimple/trunk/lib/DBIx/Class/FromFormValidatorSimple.pm	(local)
@@ -16,9 +16,10 @@
 
     sub create_from_fvs {
         my ($self, $results, $args) = @_;
-        my $allowed = "FormValidator::Simple::Results";
-        croak "pass me a $allowed object" unless blessed($results) eq $allowed;
-        croak "has error on form" if $results->has_error;
+        croak "pass me a form results object" unless blessed($results);
+        croak "pass me a object which can call 'success' and 'valid'"
+            unless $results->can('success') and $results->can('valid');
+        croak "has error on form" unless $results->success;
 
         my $cols = $args || {};
 
@@ -39,9 +40,10 @@
 
 sub update_from_fvs {
     my ($self, $results, $args) = @_;
-    my $allowed = "FormValidator::Simple::Results";
-    croak "pass me a $allowed object" unless blessed($results) eq $allowed;
-    croak "has error on form" if $results->has_error;
+    croak "pass me a form results object" unless blessed($results);
+    croak "pass me a object which can call 'success' and 'valid'"
+        unless $results->can('success') and $results->can('valid');
+    croak "has error on form" unless $results->success;
 
     my $cols = $args || {};
 

vkgtarovkgtaro2007/11/04 00:07Data::FormValidator のこと、理解できてませんでした(;'-')
FromFVS って名前が離れちゃう件は woremacx さんと話し合った方が良いかもしれませんね。

とりあえず、まだ coderepos の commit 権持ってないので、良かったら commit してください。

woremacxworemacx2007/11/04 03:12こんにちは。
さらにサポートする Validator の範囲を増やしていただいてありがとうございます。
can って、こういう時に便利に使えるんですね!
vkgtaro さんが指摘されているように、D::C::FromValidators とか何か汎用的な名前にして再出発したほうがいいのかなと思い始めました。

ikasam_aikasam_a2007/11/04 20:02とりあえず commit しました.

woremacxworemacx2007/11/05 13:33ありがとうございます!

トラックバック - http://catalyst.g.hatena.ne.jp/ikasam_a/20071103
 |