fixed debug statement

diff --git a/lib/Reaction/InterfaceModel/Action.pm b/lib/Reaction/InterfaceModel/Action.pm
index 558ac03..0c74a57 100644 (file)
--- a/lib/Reaction/InterfaceModel/Action.pm
+++ b/lib/Reaction/InterfaceModel/Action.pm
@@ -39,7 +39,7 @@ sub parameter_hashref {
   foreach my $attr ($self->parameter_attributes) {
     my $reader = $attr->get_read_method;
     my $predicate = $attr->get_predicate_method;
-    warn "${\$attr->name} has default: ${\$attr->has_default}";
+    warn "${\$attr->name} has default: ${\$attr->has_default}" if _debug();
     next if defined($predicate) && !$self->$predicate
          && ($attr->is_lazy_fail || !$attr->has_default);
     $params{$attr->name} = $self->$reader;