Changeset 1106

Timestamp:

11/04/07 19:58:03 (13 months ago)

Author:

masaki

Message:

lang/perl/DBIx-Class-FromFormValidatorSimple?/trunk/lib/DBix/Class/FromFormValidatorSimple.pm: Validator のクラス名を限定しないようにした

Files:

• lang/perl/DBIx-Class-FromFormValidatorSimple/trunk/lib/DBIx/Class/FromFormValidatorSimple.pm (modified) (2 diffs)

lang/perl/DBIx-Class-FromFormValidatorSimple/trunk/lib/DBIx/Class/FromFormValidatorSimple.pm

@@ -17 +17 @@
     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 || {};
@@ -40 +41 @@
 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 || {};