From 7f4d9d76a66b86cfe3948de7a173684fff1805d4 Mon Sep 17 00:00:00 2001
From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Tue, 26 Apr 2005 16:52:34 +0000
Subject: [PATCH] allow method lookup for a single method.  open-ils.storage
 takes 10s without this fix...

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@294 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/OpenSRF/Application.pm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/src/perlmods/OpenSRF/Application.pm b/src/perlmods/OpenSRF/Application.pm
index 6899175..5c6b48b 100644
--- a/src/perlmods/OpenSRF/Application.pm
+++ b/src/perlmods/OpenSRF/Application.pm
@@ -263,6 +263,7 @@ sub register_method {
 }
 
 sub retrieve_remote_apis {
+	my $method = shift;
 	my $session = OpenSRF::AppSession->create('router');
 	try {
 		$session->connect or OpenSRF::EX::WARN->throw("Connection to router timed out");
@@ -291,18 +292,22 @@ sub retrieve_remote_apis {
 
 	for my $class ( keys %u_list ) {
 		next if($class eq $server_class);
-		populate_remote_method_cache($class);
+		populate_remote_method_cache($class, $method);
 	}
 }
 
 sub populate_remote_method_cache {
 	my $class = shift;
+	my $meth = shift;
 
 	my $session = OpenSRF::AppSession->create($class);
 	try {
 		$session->connect or OpenSRF::EX::WARN->throw("Connection to $class timed out");
 
-		my $req = $session->request( 'opensrf.system.method.all' );
+		my $call = 'opensrf.system.method.all' unless (defined $meth);
+		$call = 'opensrf.system.method' if (defined $meth);
+
+		my $req = $session->request( $call, $meth );
 
 		while (my $method = $req->recv) {
 			next if (UNIVERSAL::isa($method, 'Error'));
@@ -363,7 +368,7 @@ sub method_lookup {
 		}
 
 	} elsif (!$no_recurse) {
-		retrieve_remote_apis();
+		retrieve_remote_apis($method);
 		$meth = $self->method_lookup($method,$proto,1);
 	}
 
-- 
2.43.2