cleaned some
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 16 Feb 2005 18:09:01 +0000 (18:09 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 16 Feb 2005 18:09:01 +0000 (18:09 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@78 dcc99617-32d9-48b4-a31d-7c20da2025e4

OpenSRF/examples/math_bench.pl

index 5b999cd..471de0e 100755 (executable)
@@ -1,7 +1,6 @@
 #!/usr/bin/perl -w
 use strict;use warnings;
 use OpenSRF::System qw(/pines/conf/client.conf);
-use OpenSRF::Utils::Config;
 use OpenSRF::Utils::SettingsClient;
 use OpenSRF::DomainObject::oilsMethod;
 use OpenSRF::DomainObject::oilsPrimitive;
@@ -27,9 +26,7 @@ unless( $count ) {
 
 warn "PID: $$\n";
 
-my $config = OpenSRF::Utils::Config->current;
 OpenSRF::System::bootstrap_client();
-
 my $session = OpenSRF::AppSession->create( "math" );
 
 try {
@@ -55,16 +52,13 @@ my $c = 0;
 for my $scale ( 1..$count ) {
        for my $mname ( keys %vals ) {
 
-               my $method = OpenSRF::DomainObject::oilsMethod->new( method => $mname );
-               $method->params( 1,2 );
-
                my $req;
                my $resp;
                my $starttime;
                try {
 
                        $starttime = time();
-                       $req = $session->request( $method );
+                       $req = $session->request( $mname, 1, 2 );
                        $resp = $req->recv( timeout => 10 );
                        push @times, time() - $starttime;