aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Reaction/InterfaceModel
diff options
context:
space:
mode:
authoredenc <edenc@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>2009-03-18 13:06:46 +0000
committeredenc <edenc@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>2009-03-18 13:06:46 +0000
commit7fdf5e932b12471adba977ef9c627c204807a64f (patch)
tree964447366bb9dc6c46dd7b7eb7922ecef9e33f45 /lib/Reaction/InterfaceModel
parentc4d71fec52ca321e150afb844d3049befd6284b5 (diff)
downloadreaction-7fdf5e932b12471adba977ef9c627c204807a64f.tar.gz
reaction-7fdf5e932b12471adba977ef9c627c204807a64f.zip
fixed debug statement
Diffstat (limited to 'lib/Reaction/InterfaceModel')
-rw-r--r--lib/Reaction/InterfaceModel/Action.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Reaction/InterfaceModel/Action.pm b/lib/Reaction/InterfaceModel/Action.pm
index 558ac03..0c74a57 100644
--- 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;