Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

23 lines (21 sloc) 0.563 kb
--- gen-perl/Hello.pm.orig 2008-07-29 10:42:41.000000000 +0900
+++ gen-perl/Hello.pm 2008-07-29 10:43:36.000000000 +0900
@@ -261,7 +261,7 @@
sub process_hello{
my $self = shift;
- my ($seqid, $input, $output);
+ my ($seqid, $input, $output) = @_;
my $args = new Hello_hello_args();
$args->read($input);
$input->readMessageEnd();
@@ -271,4 +271,10 @@
$result->write($output);
$output->getTransport()->flush();
}
+
+sub method_exists {
+ my ($self, $methodname) = @_;
+ $self->can($methodname) ? 1 : 0;
+}
+
1;
Jump to Line
Something went wrong with that request. Please try again.