fix for error in changeset 647 in regards to value checking in non-required attrs

diff --git a/lib/Reaction/InterfaceModel/Action.pm b/lib/Reaction/InterfaceModel/Action.pm
index e6b06da..52b94f8 100644 (file)
--- a/lib/Reaction/InterfaceModel/Action.pm
+++ b/lib/Reaction/InterfaceModel/Action.pm
@@ -60,18 +60,18 @@ class Action which {
 
   implements error_for_attribute => as {
     my ($self, $attr) = @_;
+    my $reader = $attr->get_read_method;
+    my $predicate = $attr->predicate;
     if ($self->attribute_is_required($attr)) {
-      if ($attr->has_valid_values) {
-        my $reader = $attr->get_read_method;
-        unless ($attr->check_valid_value($self, $self->$reader)) {
-          return "Not a valid value for ".$attr->name;
-        }
-      }
-      my $predicate = $attr->predicate;
       unless ($self->$predicate) {
         return $attr->name." is required";
       }
     }
+    if ($self->$predicate && $attr->has_valid_values) {
+      unless ($attr->check_valid_value($self, $self->$reader)) {
+        return "Not a valid value for ".$attr->name;
+      }
+    }
     return; # ok
   };