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

use COPE::CORBA::Skel;
use COPE::Test::Test1_types;

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

package Test::Test1_skel;
use base qw(CORBA::_Skel);
$Test::Test1_skel::_id = 0;

$Test::Test1_skel::_interface = 'IDL:smop.org/Test/Test1:1.0';

sub new {
    my $class = shift;
    my $id = shift || $Test::Test1_skel::_id++;
    my $self = bless [\%Test::Test1_skel::FIELDS, $id], $class;
    return $self;
}

# operation in_long (IDL:smop.org/Test/Test1/in_long:1.0)

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

# operation in_string (IDL:smop.org/Test/Test1/in_string:1.0)

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

# operation in_long_sequence (IDL:smop.org/Test/Test1/in_long_sequence:1.0)

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

# operation in_octet_sequence (IDL:smop.org/Test/Test1/in_octet_sequence:1.0)

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

# operation in_struct (IDL:smop.org/Test/Test1/in_struct:1.0)

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

# operation in_array (IDL:smop.org/Test/Test1/in_array:1.0)

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

# operation inout_long (IDL:smop.org/Test/Test1/inout_long:1.0)

sub inout_long ($$) {
    my($self,$serverrequest) = @_;
    my $arg_list = [
          { 'argument'  =>
            { _type  => $CORBA::_tc_long },
            'arg_modes' => 2,
          },
    ];
    $serverrequest->params($arg_list);
    $self->{impl}->inout_long(
        \$arg_list->[0]{argument}{_value},
    );
}

# operation inout_string (IDL:smop.org/Test/Test1/inout_string:1.0)

sub inout_string ($$) {
    my($self,$serverrequest) = @_;
    my $arg_list = [
          { 'argument'  =>
            { _type  => $CORBA::_tc_string0 },
            'arg_modes' => 2,
          },
    ];
    $serverrequest->params($arg_list);
    $self->{impl}->inout_string(
        \$arg_list->[0]{argument}{_value},
    );
}

# operation inout_long_sequence (IDL:smop.org/Test/Test1/inout_long_sequence:1.0)

sub inout_long_sequence ($$) {
    my($self,$serverrequest) = @_;
    my $arg_list = [
          { 'argument'  =>
            { _type  => $Test::Test1::LongSeq::_tc },
            'arg_modes' => 2,
          },
    ];
    $serverrequest->params($arg_list);
    $self->{impl}->inout_long_sequence(
        $arg_list->[0]{argument}{_value},
    );
}

# operation inout_octet_sequence (IDL:smop.org/Test/Test1/inout_octet_sequence:1.0)

sub inout_octet_sequence ($$) {
    my($self,$serverrequest) = @_;
    my $arg_list = [
          { 'argument'  =>
            { _type  => $Test::Test1::OctetSeq::_tc },
            'arg_modes' => 2,
          },
    ];
    $serverrequest->params($arg_list);
    $self->{impl}->inout_octet_sequence(
        \$arg_list->[0]{argument}{_value},
    );
}

# operation inout_struct (IDL:smop.org/Test/Test1/inout_struct:1.0)

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

# operation inout_array (IDL:smop.org/Test/Test1/inout_array:1.0)

sub inout_array ($$) {
    my($self,$serverrequest) = @_;
    my $arg_list = [
          { 'argument'  =>
            { _type  => $Test::Test1::ShortArray::_tc },
            'arg_modes' => 2,
          },
    ];
    $serverrequest->params($arg_list);
    $self->{impl}->inout_array(
        $arg_list->[0]{argument}{_value},
    );
}

# operation out_long (IDL:smop.org/Test/Test1/out_long:1.0)

sub out_long ($$) {
    my($self,$serverrequest) = @_;
    my $arg_list = [
          { 'argument'  =>
            { _type  => $CORBA::_tc_long },
            'arg_modes' => 1,
          },
    ];
    $serverrequest->params($arg_list);
    $self->{impl}->out_long(
        \$arg_list->[0]{argument}{_value},
    );
}

# operation out_string (IDL:smop.org/Test/Test1/out_string:1.0)

sub out_string ($$) {
    my($self,$serverrequest) = @_;
    my $arg_list = [
          { 'argument'  =>
            { _type  => $CORBA::_tc_string0 },
            'arg_modes' => 1,
          },
    ];
    $serverrequest->params($arg_list);
    $self->{impl}->out_string(
        \$arg_list->[0]{argument}{_value},
    );
}

# operation out_long_sequence (IDL:smop.org/Test/Test1/out_long_sequence:1.0)

sub out_long_sequence ($$) {
    my($self,$serverrequest) = @_;
    my $arg_list = [
          { 'argument'  =>
            { _type  => $Test::Test1::LongSeq::_tc, _value => [] },
            'arg_modes' => 1,
          },
    ];
    $serverrequest->params($arg_list);
    $self->{impl}->out_long_sequence(
        $arg_list->[0]{argument}{_value},
    );
}

# operation out_octet_sequence (IDL:smop.org/Test/Test1/out_octet_sequence:1.0)

sub out_octet_sequence ($$) {
    my($self,$serverrequest) = @_;
    my $arg_list = [
          { 'argument'  =>
            { _type  => $Test::Test1::OctetSeq::_tc },
            'arg_modes' => 1,
          },
    ];
    $serverrequest->params($arg_list);
    $self->{impl}->out_octet_sequence(
        \$arg_list->[0]{argument}{_value},
    );
}

# operation out_struct (IDL:smop.org/Test/Test1/out_struct:1.0)

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

# operation out_array (IDL:smop.org/Test/Test1/out_array:1.0)

sub out_array ($$) {
    my($self,$serverrequest) = @_;
    my $arg_list = [
          { 'argument'  =>
            { _type  => $Test::Test1::ShortArray::_tc, _value => [] },
            'arg_modes' => 1,
          },
    ];
    $serverrequest->params($arg_list);
    $self->{impl}->out_array(
        $arg_list->[0]{argument}{_value},
    );
}

# operation ret_object (IDL:smop.org/Test/Test1/ret_object:1.0)

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

1;