# Automatically generated skeleton 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::CORBA::Skel;
use COPE::Test::Test3_types;

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

package Test::Test3_skel;
use base qw(CORBA::_Skel);
unshift(@Test::Test3_skel::ISA, qw(Test::Test2_skel));
$Test::Test3_skel::_id = 0;

$Test::Test3_skel::_interface = 'IDL:smop.org/Test/Test3:1.0';
no warnings 'redefine';
sub new {
    my $class = shift;
    my $id = shift || $Test::Test3_skel::_id++;
    my $self = bless [\%Test::Test3_skel::FIELDS, $id], $class;
    return $self;
}

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

sub check3 ($$) {
    my($self,$serverrequest) = @_;
    my $result_ = { _type => $CORBA::_tc_string0 };
    my $arg_list = [
    ];
    $serverrequest->params($arg_list);
    $serverrequest->result($result_);
    $result_->{_value} = $self->{impl}->check3(
    );
}

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

sub get_forwarder ($$) {
    my($self,$serverrequest) = @_;
    my $result_ = { _type => $Test::Test3::_tc };
    my $arg_list = [
          { 'argument'  =>
            { _type  => $Test::Test3::_tc },
            'arg_modes' => 0,
          },
    ];
    $serverrequest->params($arg_list);
    $serverrequest->result($result_);
    $result_->{_value} = $self->{impl}->get_forwarder(
        $arg_list->[0]{argument}{_value},
    );
}

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

sub get_test4 ($$) {
    my($self,$serverrequest) = @_;
    my $result_ = { _type => CORBA::TypeCode::_create_interface_tc('IDL:smop.org/Test/Test4:1.0', 'Test4') };
    my $arg_list = [
    ];
    $serverrequest->params($arg_list);
    $serverrequest->result($result_);
    $result_->{_value} = $self->{impl}->get_test4(
    );
}
use warnings;
1;