diff options
author | edenc <edenc@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-09-09 18:48:24 +0000 |
---|---|---|
committer | edenc <edenc@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-09-09 18:48:24 +0000 |
commit | 7224c229e8bfc9ba5e2a34662ee91ad540bba37c (patch) | |
tree | a9a2c9279b62e35f569b8d172314d8f1a2c22b7c /lib/Reaction/InterfaceModel | |
parent | 13117749d4c7e23676a060bc2522dbfcf45ae7a6 (diff) | |
download | reaction-7224c229e8bfc9ba5e2a34662ee91ad540bba37c.tar.gz reaction-7224c229e8bfc9ba5e2a34662ee91ad540bba37c.zip |
checking default values for action parameter attributes
Diffstat (limited to 'lib/Reaction/InterfaceModel')
-rw-r--r-- | lib/Reaction/InterfaceModel/Action.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Reaction/InterfaceModel/Action.pm b/lib/Reaction/InterfaceModel/Action.pm index f185384..54935b6 100644 --- a/lib/Reaction/InterfaceModel/Action.pm +++ b/lib/Reaction/InterfaceModel/Action.pm @@ -45,7 +45,7 @@ sub can_apply { if ($self->attribute_is_required($attr)) { confess "No predicate for required attribute ${\$attr->name} for ${self}" unless $predicate; - return 0 unless $self->$predicate; + return 0 if !$self->$predicate && ($attr->is_lazy_fail || !$attr->has_default); } if ($attr->has_valid_values) { unless ($predicate && !($self->$predicate)) { |