[svn:p5ee] r10192 - p5ee/trunk/App-Context/lib/App/Context/POE

Author: spadkins
Date: Wed Nov  7 14:16:58 2007
New Revision: 10192

Modified:
   p5ee/trunk/App-Context/lib/App/Context/POE/Server.pm

Log:
added some log messages to poe_remote_async_event_finished

Modified: p5ee/trunk/App-Context/lib/App/Context/POE/Server.pm
==============================================================================
--- p5ee/trunk/App-Context/lib/App/Context/POE/Server.pm	(original)
+++ p5ee/trunk/App-Context/lib/App/Context/POE/Server.pm	Wed Nov  7
14:16:58 2007
@[EMAIL PROTECTED]
 -1033,8 +1033,17 @[EMAIL PROTECTED]
 
         if ($callback_event) {
             $callback_event->{args} = $callback_args;
+            if ($runtime_event_token && $callback_event && $callback_args
&& $callback_args->[0]) {
+                $self->log({level=>2},"NOTE:
poe_remote_async_event_finished calling send_event:
runtime_event_token[$runtime_event_token]
callback_event[$callback_event->{method}]
subrequest_id[$callback_args->[0]{subrequest_id}]\n");
+            }
+            else {
+                $self->log({level=>2},"NOTE:
poe_remote_async_event_finished calling send_event: cannot print extra
vars\n");
+            }
             $self->send_event($callback_event);
         }
+        else {
+            $self->log({level=>2},"NOTE: poe_remote_async_event_finished
called without callback_event :
runtime_event_token[$runtime_event_token]\n");
+        }
     }
     else {
         $self->log({level=>2},"POE: poe_remote_async_event_finished
($runtime_event_token)\n") if $self->{options}{poe_trace};