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 sub DESTROY{}
  11 our $log = 'OpenSRF::Utils::Logger';
  12 sub initialize {}
  13
  14 sub add_1 {
  15         my $client = shift;
  16         my @args = @_;
  17         $log->debug("Adding @args", INTERNAL);
  18         $log->debug("AppRequest is $client", INTERNAL);
  19         my $n1 = shift; my $n2 = shift;
  20         $n1 =~ s/\s+//; $n2 =~ s/\s+//;
  21         my $a = $n1 + $n2;
  22         return JSON::number::new($a);
  23
  24 }
  25
  26 sub sub_1 {
  27         my $client = shift;
  28         my @args = @_;
  29         $log->debug("Subbing @args", INTERNAL);
  30         $log->debug("AppRequest is $client", INTERNAL);
  31         my $n1 = shift; my $n2 = shift;
  32         $n1 =~ s/\s+//; $n2 =~ s/\s+//;
  33         my $a = $n1 - $n2;
  34         return JSON::number::new($a);
  35 }
  36
  37 sub mult_1 {
  38         my $client = shift;
  39         my @args = @_;
  40         $log->debug("Multiplying @args", INTERNAL);
  41         $log->debug("AppRequest is $client", INTERNAL);
  42         my $n1 = shift; my $n2 = shift;
  43         $n1 =~ s/\s+//; $n2 =~ s/\s+//;
  44         my $a = $n1 * $n2;
  45         return JSON::number::new($a);
  46 }
  47
  48 sub div_1 {
  49         my $client = shift;
  50         my @args = @_;
  51         $log->debug("Dividing @args", INTERNAL);
  52         $log->debug("AppRequest is $client", INTERNAL);
  53         my $n1 = shift; my $n2 = shift;
  54         $n1 =~ s/\s+//; $n2 =~ s/\s+//;
  55         my $a = $n1 / $n2;
  56         return JSON::number::new($a);
  57 }
  58
  59 1;