# Automatically generated stub code.  DO NOT EDIT.
# Generated on Wed May 10 20:28:31 2000 by idl2perl 2.7 with command:
# bin/idl2perl -outdir t/COPE Test.idl

use COPE::Test::Test3_types;
use COPE::CORBA::Object;

# interface Test::Test3 (IDL:smop.org/Test/Test3:1.0)

package Test::Test3;

# operation check3 (IDL:smop.org/Test/Test3/check3:1.0)

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

# operation get_forwarder (IDL:smop.org/Test/Test3/get_forwarder:1.0)

sub get_forwarder ($$) {
    my($self,$target) = @_;
    my $result_ = { _type => $Test::Test3::_tc };
    my $request_ = $self->create_request(
        'operation' => 'get_forwarder',
        'arg_list'  => [
          { 'argument'  =>
            { _type  => $Test::Test3::_tc, _value => $target },
            'arg_modes' => 0,
          },
        ],
        'result' => $result_
    );
    $request_->invoke(0);
    return $result_->{_value};
}

# operation get_test4 (IDL:smop.org/Test/Test3/get_test4:1.0)

sub get_test4 ($) {
    my($self) = @_;
    my $result_ = { _type => CORBA::TypeCode::_create_interface_tc('IDL:smop.org/Test/Test4:1.0', 'Test4') };
    my $request_ = $self->create_request(
        'operation' => 'get_test4',
        'arg_list'  => [
        ],
        'result' => $result_
    );
    $request_->invoke(0);
    return $result_->{_value};
}

1;