diff options
author | edenc <edenc@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2009-03-18 13:06:46 +0000 |
---|---|---|
committer | edenc <edenc@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2009-03-18 13:06:46 +0000 |
commit | 7fdf5e932b12471adba977ef9c627c204807a64f (patch) | |
tree | 964447366bb9dc6c46dd7b7eb7922ecef9e33f45 /lib/Reaction/InterfaceModel | |
parent | c4d71fec52ca321e150afb844d3049befd6284b5 (diff) | |
download | reaction-7fdf5e932b12471adba977ef9c627c204807a64f.tar.gz reaction-7fdf5e932b12471adba977ef9c627c204807a64f.zip |
fixed debug statement
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 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; |