# Automatically generated stub code.  DO NOT EDIT.
# Generated on Wed Jul  6 00:56:24 2005 by idl2perl 2.7 with command:
# bin/idl2perl examples/copex.idl

use Copex::OneServant_types;
use COPE::CORBA::Object;

# interface Copex::OneServant (IDL:Copex/OneServant:1.0)

package Copex::OneServant;

# operation GetId (IDL:Copex/OneServant/GetId:1.0)

sub GetId ($) {
    my($self) = @_;
    my $result_ = { _type => $CORBA::_tc_string0 };
    my $request_ = $self->create_request(
        'operation' => 'GetId',
        'arg_list'  => [
        ],
        'result' => $result_
    );
    $request_->invoke(0);
    return $result_->{_value};
}

1;