debug for button events - missed on last commit

[catagits/Reaction.git] / lib / Reaction / UI / ViewPort / Action.pm

diff --git a/lib/Reaction/UI/ViewPort/Action.pm b/lib/Reaction/UI/ViewPort/Action.pm
index 84b127e..1fc3fbf 100644 (file)
--- a/lib/Reaction/UI/ViewPort/Action.pm
+++ b/lib/Reaction/UI/ViewPort/Action.pm
@@ -68,6 +68,7 @@ after handle_events => sub {
     unless (exists $events->{$event} ) {
       # for <input type="image"... buttons
       if ( exists $events->{"${event}.x"} && exists $events->{"${event}.y"} ) {
+        $self->_dump_event($event, $events->{$event}) if DEBUG_EVENTS;
         $self->$event($events->{$event});
       }
     }