From: wreis <wreis@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>
Date: Fri, 28 Aug 2009 00:38:34 +0000 (+0000)
Subject: argh! missed DEBUG_EVENTS
X-Git-Tag: v0.002000~40
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=29c740ee77384806aba50779b38132a1a9d31868;hp=1ca3c638ef1fa4f106ef2d301e3f72e31c872c9e;p=catagits%2FReaction.git

argh! missed DEBUG_EVENTS
---

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/]);