Changeset 14323 for lang/perl/POE-Component-Server-JSONRPC

Timestamp:

06/21/08 02:39:48 (5 years ago)

Author:

nothingmuch

Message:

allow object handler too (can't be async though)

Files:

• lang/perl/POE-Component-Server-JSONRPC/trunk/lib/POE/Component/Server/JSONRPC.pm (modified) (2 diffs)

lang/perl/POE-Component-Server-JSONRPC/trunk/lib/POE/Component/Server/JSONRPC.pm

@@ -84 +84 @@
 
 has handler => (
-    isa => "CodeRef|Str|HashRef",
+    isa => "CodeRef|Str|HashRef|Object",
     is  => "rw",
 );
@@ -224 +224 @@
             }
 
-            my $cb = sub {
-                if ( do { local $@; eval { $_[0]->does("JSON::RPC::Common::Message") } } ) {
-                    $client->put($_[0]);
+            if ( blessed $handler ) {
+                $client->put( $call->call($handler) )
+            } else {
+                my $cb = sub {
+                    if ( do { local $@; eval { $_[0]->does("JSON::RPC::Common::Message") } } ) {
+                        $client->put($_[0]);
+                    } else {
+                        $client->put( $msg->return_result(@_) );
+                    }
+                };
+
+                if ( ref $handler ) {
+                    $handler->( $cb, $msg, $client );
                 } else {
-                    $client->put( $msg->return_result(@_) );
+                    $kernel->post( $self->_parent, $handler, $cb, $msg, $client );
                 }
-            };
-
-            if ( ref $handler ) {
-                $handler->( $cb, $msg, $client );
-            } else {
-                $kernel->post( $self->_parent, $handler, $cb, $msg, $client );
             }
         } else {