Introduction to Web Services with Perl
<
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
<![CDATA[
#!/usr/bin/perl
# sum() server
use strict;
use warnings;
use Frontier::Daemon;
my $d = Frontier::Daemon->new(
methods => {
sum => \&sum,
},
LocalPort => 1080,
);
sub sum {
my ($arg1, $arg2) = @_;
return $arg1 + $arg2;
}
]]>