src/perl/lib/OpenSRF/Application/Demo/MathDB.pm

   1 package OpenSRF::Application::Demo::MathDB;
   2 use OpenSRF::Utils::JSON;
   3 use base qw/OpenSRF::Application/;
   4 use OpenSRF::Application;
   5 use OpenSRF::DomainObject::oilsResponse qw/:status/;
   6 use OpenSRF::Utils::Logger qw/:level/;
   7 use strict;
   8 use warnings;
   9
  10 sub DESTROY{}
  11 our $log = 'OpenSRF::Utils::Logger';
  12 sub initialize {}
  13
  14 __PACKAGE__->register_method( method => 'add_1', api_name => 'dbmath.add' );
  15 sub add_1 {
  16         my $self = shift;
  17         my $client = shift;
  18
  19         my $n1 = shift;
  20         my $n2 = shift;
  21         my $a = $n1 + $n2;
  22         return OpenSRF::Utils::JSON::number->new($a);
  23 }
  24
  25 __PACKAGE__->register_method( method => 'sub_1', api_name => 'dbmath.sub' );
  26 sub sub_1 {
  27         my $self = shift;
  28         my $client = shift;
  29
  30         my $n1 = shift;
  31         my $n2 = shift;
  32         my $a = $n1 - $n2;
  33         return OpenSRF::Utils::JSON::number->new($a);
  34 }
  35
  36 __PACKAGE__->register_method( method => 'mult_1', api_name => 'dbmath.mult' );
  37 sub mult_1 {
  38         my $self = shift;
  39         my $client = shift;
  40
  41         my $n1 = shift;
  42         my $n2 = shift;
  43         my $a = $n1 * $n2;
  44         return OpenSRF::Utils::JSON::number->new($a);
  45 }
  46
  47 __PACKAGE__->register_method( method => 'div_1', api_name => 'dbmath.div' );
  48 sub div_1 {
  49         my $self = shift;
  50         my $client = shift;
  51
  52         my $n1 = shift;
  53         my $n2 = shift;
  54         my $a = $n1 / $n2;
  55         return OpenSRF::Utils::JSON::number->new($a);
  56 }
  57
  58 1;