aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Reaction
diff options
context:
space:
mode:
authorwreis <wreis@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>2009-08-28 00:38:34 +0000
committerwreis <wreis@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>2009-08-28 00:38:34 +0000
commit29c740ee77384806aba50779b38132a1a9d31868 (patch)
tree9662e63b078aa32858bf49064387017831f4e576 /lib/Reaction
parent1ca3c638ef1fa4f106ef2d301e3f72e31c872c9e (diff)
downloadreaction-29c740ee77384806aba50779b38132a1a9d31868.tar.gz
reaction-29c740ee77384806aba50779b38132a1a9d31868.zip
argh! missed DEBUG_EVENTS
Diffstat (limited to 'lib/Reaction')
-rw-r--r--lib/Reaction/UI/ViewPort/Action.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Reaction/UI/ViewPort/Action.pm b/lib/Reaction/UI/ViewPort/Action.pm
index 1fc3fbf..480ab67 100644
--- a/lib/Reaction/UI/ViewPort/Action.pm
+++ b/lib/Reaction/UI/ViewPort/Action.pm
@@ -11,6 +11,8 @@ use namespace::clean -except => [ qw(meta) ];
extends 'Reaction::UI::ViewPort::Object::Mutable';
with 'Reaction::UI::ViewPort::Action::Role::OK';
+sub DEBUG_EVENTS () { $ENV{REACTION_UI_VIEWPORT_DEBUG_EVENTS} }
+
has message => (is => 'rw', isa => Str);
has '+model' => (handles => [qw/error_message has_error_message/]);