mirror of
https://github.com/valitydev/thrift.git
synced 2024-11-07 02:45:22 +00:00
83 lines
2.0 KiB
Perl
83 lines
2.0 KiB
Perl
#!/usr/bin/env perl
|
|
|
|
#
|
|
# Licensed to the Apache Software Foundation (ASF) under one
|
|
# or more contributor license agreements. See the NOTICE file
|
|
# distributed with this work for additional information
|
|
# regarding copyright ownership. The ASF licenses this file
|
|
# to you under the Apache License, Version 2.0 (the
|
|
# "License"); you may not use this file except in compliance
|
|
# with the License. You may obtain a copy of the License at
|
|
#
|
|
# http://www.apache.org/licenses/LICENSE-2.0
|
|
#
|
|
# Unless required by applicable law or agreed to in writing,
|
|
# software distributed under the License is distributed on an
|
|
# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
|
|
# KIND, either express or implied. See the License for the
|
|
# specific language governing permissions and limitations
|
|
# under the License.
|
|
#
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use lib '../../lib/perl/lib';
|
|
use lib 'gen-perl';
|
|
|
|
use Thrift;
|
|
use Thrift::BinaryProtocol;
|
|
use Thrift::Socket;
|
|
use Thrift::BufferedTransport;
|
|
|
|
use shared::SharedService;
|
|
use tutorial::Calculator;
|
|
use shared::Types;
|
|
use tutorial::Types;
|
|
|
|
use Data::Dumper;
|
|
|
|
my $socket = Thrift::Socket->new('localhost',9090);
|
|
my $transport = Thrift::BufferedTransport->new($socket,1024,1024);
|
|
my $protocol = Thrift::BinaryProtocol->new($transport);
|
|
my $client = tutorial::CalculatorClient->new($protocol);
|
|
|
|
|
|
eval{
|
|
$transport->open();
|
|
|
|
$client->ping();
|
|
print "ping()\n";
|
|
|
|
|
|
my $sum = $client->add(1,1);
|
|
print "1+1=$sum\n";
|
|
|
|
my $work = tutorial::Work->new();
|
|
|
|
$work->op(tutorial::Operation::DIVIDE);
|
|
$work->num1(1);
|
|
$work->num2(0);
|
|
|
|
eval {
|
|
$client->calculate(1, $work);
|
|
print "Whoa! We can divide by zero?\n";
|
|
}; if($@) {
|
|
warn 'InvalidOperation: '.Dumper($@);
|
|
}
|
|
|
|
$work->op(tutorial::Operation::SUBTRACT);
|
|
$work->num1(15);
|
|
$work->num2(10);
|
|
my $diff = $client->calculate(1, $work);
|
|
print "15-10=$diff\n";
|
|
|
|
my $log = $client->getStruct(1);
|
|
print "Log: $log->{value}\n";
|
|
|
|
$transport->close();
|
|
|
|
}; if($@){
|
|
warn(Dumper($@));
|
|
}
|