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

#!/usr/bin/perl
# Testing sum()

use strict;
use warnings;

use Frontier::Client;
  
my $url  = "http://localhost:1080/RPC2";
my @args = (5,3);
  
my $client = Frontier::Client->new( 	url => $url,
					debug => 1,
            				);

  
print "$args[0] + $args[1] = ", $client->call('sum', @args), "\n";

Introduction to Web Services with Perl

#!/usr/bin/perl # Testing sum() use strict; use warnings; use Frontier::Client; my $url = "http://localhost:1080/RPC2"; my @args = (5,3); my $client = Frontier::Client->new( url => $url, debug => 1, ); print "$args[0] + $args[1] = ", $client->call('sum', @args), "\n";