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

use COPE::CORBA::Skel;
use COPE::Data::Testem_types;

# interface Data::Testem (IDL:cope/Data/Testem:1.0)

package Data::Testem_skel;
use base qw(CORBA::_Skel);
$Data::Testem_skel::_id = 0;

$Data::Testem_skel::_interface = 'IDL:cope/Data/Testem:1.0';

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

# operation test_any (IDL:cope/Data/Testem/test_any:1.0)

sub test_any ($$) {
    my($self,$serverrequest) = @_;
    my $result_ = { _type => CORBA::TypeCode::_create_interface_tc('IDL:cope/Data/Anything:1.0', 'Anything') };
    my $arg_list = [
    ];
    $serverrequest->params($arg_list);
    $serverrequest->result($result_);
    $result_->{_value} = $self->{impl}->test_any(
    );
}

# operation setit (IDL:cope/Data/Testem/setit:1.0)

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

# operation getit (IDL:cope/Data/Testem/getit:1.0)

sub getit ($$) {
    my($self,$serverrequest) = @_;
    my $result_ = { _type => $Data::TestUnion::_tc };
    my $arg_list = [
          { 'argument'  =>
            { _type  => $Data::Discriminator::_tc },
            'arg_modes' => 2,
          },
    ];
    $serverrequest->params($arg_list);
    $serverrequest->result($result_);
    $result_->{_value} = $self->{impl}->getit(
        \$arg_list->[0]{argument}{_value},
    );
}

# operation birth (IDL:cope/Data/Testem/birth:1.0)

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

# operation multiple_birth (IDL:cope/Data/Testem/multiple_birth:1.0)

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

# operation family (IDL:cope/Data/Testem/family:1.0)

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

# operation concat (IDL:cope/Data/Testem/concat:1.0)

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

# operation andem (IDL:cope/Data/Testem/andem:1.0)

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

# operation addem (IDL:cope/Data/Testem/addem:1.0)

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

1;