src/perlmods/OpenSRF/Application/Demo/Math.pm

   1 package OpenSRF::Application::Demo::Math;
   2 use base qw/OpenSRF::Application/;
   3 use OpenSRF::Application;
   4 use OpenSRF::Utils::Logger qw/:level/;
   5 use OpenSRF::DomainObject::oilsResponse;
   6 use OpenSRF::EX qw/:try/;
   7 use strict;
   8 use warnings;
   9
  10
  11 sub DESTROY{}
  12
  13 our $log = 'OpenSRF::Utils::Logger';
  14
  15 sub send_request {
  16         my $self = shift;
  17         my $client = shift;
  18
  19         my $method_name = shift;
  20         my @params = @_;
  21
  22         my $session = OpenSRF::AppSession->create( "opensrf.dbmath" );
  23         my $request = $session->request( "dbmath.$method_name", @params );
  24         my $response = $request->recv();
  25         if(!$response) { return undef; }
  26         if($response->isa("Error")) {throw $response ($response->stringify);}
  27         $session->finish();
  28
  29         return $response->content;
  30
  31 }
  32 __PACKAGE__->register_method( method => 'send_request', api_name => '_send_request' );
  33
  34 __PACKAGE__->register_method( method => 'add_1', api_name => 'add' );
  35 sub add_1 {
  36         my $self = shift;
  37         my $client = shift;
  38         my @args = @_;
  39
  40         my $meth = $self->method_lookup('_send_request');
  41         my ($result) = $meth->run('add',@args);
  42
  43         return $result;
  44
  45         return send_request( "add", @args );
  46 }
  47
  48 __PACKAGE__->register_method( method => 'sub_1', api_name => 'sub' );
  49 sub sub_1 {
  50         my $self = shift;
  51         my $client = shift;
  52         my @args = @_;
  53
  54         my $meth = $self->method_lookup('_send_request');
  55         my ($result) = $meth->run('sub',@args);
  56
  57         return $result;
  58
  59         return send_request( "sub", @args );
  60 }
  61
  62 __PACKAGE__->register_method( method => 'mult_1', api_name => 'mult' );
  63 sub mult_1 {
  64         my $self = shift;
  65         my $client = shift;
  66         my @args = @_;
  67
  68         my $meth = $self->method_lookup('_send_request');
  69         my ($result) = $meth->run('mult',@args);
  70
  71         return $result;
  72
  73         return send_request( "mult", @args );
  74 }
  75
  76 __PACKAGE__->register_method( method => 'div_1', api_name => 'div' );
  77 sub div_1 {
  78         my $self = shift;
  79         my $client = shift;
  80         my @args = @_;
  81
  82         my $meth = $self->method_lookup('_send_request');
  83         my ($result) = $meth->run('div',@args);
  84
  85         return $result;
  86
  87         return send_request( "div", @args );
  88 }
  89
  90
  91 1;