File: jsrpc.pl

package info (click to toggle)
libjavascript-rpc-perl 0.10-2
  • links: PTS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 136 kB
  • sloc: javascript: 256; perl: 151; makefile: 2
file content (39 lines) | stat: -rw-r--r-- 626 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
#!/usr/bin/perl -w

package MyJSRPC;

use Carp;
use base qw( JavaScript::RPC::Server::CGI );

sub add {
	my $self = shift;
	my @args = @_;
	unless(
		@args == 2 and
		$args[ 0 ] =~ /^\d+$/ and
		$args[ 1 ] =~ /^\d+$/
	) {
		croak( 'inputs must be digits only' ); 
	}
	return $args[ 0 ] + $args[ 1 ];
}

sub subtract {
	my $self = shift;
	my @args = @_;
	unless(
		@args == 2 and
		$args[ 0 ] =~ /^\d+$/ and
		$args[ 1 ] =~ /^\d+$/
	) {
		croak( 'inputs must be digits only' );
	}
	return $args[ 0 ] - $args[ 1 ];
}

package main;

use strict;

my $server = MyJSRPC->new;
$server->process;