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

   1 package OpenSRF::Application::Demo::MathDB;
   2 use 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 => 'add' );
  16 sub add_1 {
  17         my $self = shift;
  18         my $client = shift;
  19         my @args = @_;
  20         $log->debug("Adding @args", INTERNAL);
  21         $log->debug("AppRequest is $client", INTERNAL);
  22         my $n1 = shift; my $n2 = shift;
  23         $n1 =~ s/\s+//; $n2 =~ s/\s+//;
  24         my $a = $n1 + $n2;
  25         return JSON::number::new($a);
  26
  27 }
  28
  29 __PACKAGE__->register_method( method => 'sub_1', api_name => 'sub' );
  30 sub sub_1 {
  31         my $self = shift;
  32         my $client = shift;
  33         my @args = @_;
  34         $log->debug("Subbing @args", INTERNAL);
  35         $log->debug("AppRequest is $client", INTERNAL);
  36         my $n1 = shift; my $n2 = shift;
  37         $n1 =~ s/\s+//; $n2 =~ s/\s+//;
  38         my $a = $n1 - $n2;
  39         return JSON::number::new($a);
  40 }
  41
  42 __PACKAGE__->register_method( method => 'mult_1', api_name => 'mult' );
  43 sub mult_1 {
  44         my $self = shift;
  45         my $client = shift;
  46         my @args = @_;
  47         $log->debug("Multiplying @args", INTERNAL);
  48         $log->debug("AppRequest is $client", INTERNAL);
  49         my $n1 = shift; my $n2 = shift;
  50         $n1 =~ s/\s+//; $n2 =~ s/\s+//;
  51         my $a = $n1 * $n2;
  52         return JSON::number::new($a);
  53 }
  54
  55 __PACKAGE__->register_method( method => 'div_1', api_name => 'div' );
  56 sub div_1 {
  57         my $self = shift;
  58         my $client = shift;
  59         my @args = @_;
  60         $log->debug("Dividing @args", INTERNAL);
  61         $log->debug("AppRequest is $client", INTERNAL);
  62         my $n1 = shift; my $n2 = shift;
  63         $n1 =~ s/\s+//; $n2 =~ s/\s+//;
  64         my $a = $n1 / $n2;
  65         return JSON::number::new($a);
  66 }
  67
  68 1;