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