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

use Data::Testem_types;
use COPE::CORBA::Object;

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

package Data::Testem;

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

sub test_any ($) {
    my($self) = @_;
    my $result_ = { _type => CORBA::TypeCode::_create_interface_tc('IDL:cope/Data/Anything:1.0', 'Anything') };
    my $request_ = $self->create_request(
        'operation' => 'test_any',
        'arg_list'  => [
        ],
        'result' => $result_
    );
    $request_->invoke(0);
    return $result_->{_value};
}

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

sub setit ($$) {
    my($self,$val) = @_;
    my $result_ = { _type => $Data::Discriminator::_tc };
    my $request_ = $self->create_request(
        'operation' => 'setit',
        'arg_list'  => [
          { 'argument'  =>
            { _type  => $Data::TestUnion::_tc, _value => $val },
            'arg_modes' => 0,
          },
        ],
        'result' => $result_
    );
    $request_->invoke(0);
    return $result_->{_value};
}

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

sub getit ($$) {
    my($self,$what) = @_;
    my $result_ = { _type => $Data::TestUnion::_tc };
    my $request_ = $self->create_request(
        'operation' => 'getit',
        'arg_list'  => [
          { 'argument'  =>
            { _type  => $Data::Discriminator::_tc, _value => $what },
            'arg_modes' => 2,
          },
        ],
        'result' => $result_
    );
    $request_->invoke(0);
    return $result_->{_value};
}

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

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

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

sub multiple_birth ($$) {
    my($self,$family) = @_;
    my $result_ = { _type => $CORBA::_tc_long };
    my $request_ = $self->create_request(
        'operation' => 'multiple_birth',
        'arg_list'  => [
          { 'argument'  =>
            { _type  => $Data::RecStruct::_tc, _value => $family },
            'arg_modes' => 0,
          },
        ],
        'result' => $result_
    );
    $request_->invoke(0);
    return $result_->{_value};
}

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

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

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

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

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

sub andem ($$) {
    my($self,$un) = @_;
    my $result_ = { _type => $CORBA::_tc_boolean };
    my $request_ = $self->create_request(
        'operation' => 'andem',
        'arg_list'  => [
          { 'argument'  =>
            { _type  => $Data::RecUnion::_tc, _value => $un },
            'arg_modes' => 0,
          },
        ],
        'result' => $result_
    );
    $request_->invoke(0);
    return $result_->{_value};
}

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

sub addem ($$) {
    my($self,$mr) = @_;
    my $result_ = { _type => $CORBA::_tc_long };
    my $request_ = $self->create_request(
        'operation' => 'addem',
        'arg_list'  => [
          { 'argument'  =>
            { _type  => $Data::MutualRec::_tc, _value => $mr },
            'arg_modes' => 0,
          },
        ],
        'result' => $result_
    );
    $request_->invoke(0);
    return $result_->{_value};
}

1;