| use lib '../../lib/perl/lib'; |
| use Thrift::BinaryProtocol; |
| use Thrift::BufferedTransport; |
| my $socket = new Thrift::Socket('localhost',9090); |
| my $transport = new Thrift::BufferedTransport($socket,1024,1024); |
| my $protocol = new Thrift::BinaryProtocol($transport); |
| my $client = new CalculatorClient($protocol); |
| my $sum = $client->add(1,1); |
| my $work = new tutorial::Work(); |
| $work->op(Operation::DIVIDE); |
| $client->calculate(1, $work); |
| print "Whoa! We can divide by zero?\n"; |
| warn "InvalidOperation: ".Dumper($@); |
| $work->op(Operation::SUBTRACT); |
| my $diff = $client->calculate(1, $work); |
| my $log = $client->getStruct(1); |
| print "Log: $log->{value}\n"; |