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

use COPE::Test::Test2_types;
use COPE::CORBA::Object;

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

package Test::Test2;

# operation check (IDL:smop.org/Test/Test2/check:1.0)

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

# operation etest (IDL:smop.org/Test/Test2/etest:1.0)

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

# operation help_brother (IDL:smop.org/Test/Test2/help_brother:1.0)

sub help_brother ($$$) {
    my($self,$counter,$my_brother) = @_;
    my $result_ = { _type => $CORBA::_tc_void };
    my $request_ = $self->create_request(
        'operation' => 'help_brother',
        'arg_list'  => [
          { 'argument'  =>
            { _type  => $CORBA::_tc_long, _value => $counter },
            'arg_modes' => 2,
          },
          { 'argument'  =>
            { _type  => $Test::Test2::_tc, _value => $my_brother },
            'arg_modes' => 0,
          },
        ],
        'result' => $result_
    );
    $request_->invoke(0);
}

# attribute anattr (IDL:smop.org/Test/Test2/anattr:1.0)

sub anattr ($;$) {
    my($self,@rest) = @_;
    return $self->_attribute('anattr', $CORBA::_tc_string0, @rest);
}

# attribute count (IDL:smop.org/Test/Test2/count:1.0)

sub count ($) {
    my($self,@rest) = @_;
    return $self->_attribute('count', $CORBA::_tc_long, @rest);
}

# operation flop (IDL:smop.org/Test/Test2/flop:1.0)

sub flop ($$$$) {
    my($self,$exp_err,$a,$b) = @_;
    my $result_ = { _type => $CORBA::_tc_float };
    my $request_ = $self->create_request(
        'operation' => 'flop',
        'arg_list'  => [
          { 'argument'  =>
            { _type  => $CORBA::_tc_string0, _value => $exp_err },
            'arg_modes' => 2,
          },
          { 'argument'  =>
            { _type  => $CORBA::_tc_float, _value => $a },
            'arg_modes' => 0,
          },
          { 'argument'  =>
            { _type  => $CORBA::_tc_float, _value => $b },
            'arg_modes' => 0,
          },
        ],
        'result' => $result_
    );
    $request_->invoke(0);
    return $result_->{_value};
}

# operation dflop (IDL:smop.org/Test/Test2/dflop:1.0)

sub dflop ($$$$) {
    my($self,$exp_err,$a,$b) = @_;
    my $result_ = { _type => $CORBA::_tc_void };
    my $request_ = $self->create_request(
        'operation' => 'dflop',
        'arg_list'  => [
          { 'argument'  =>
            { _type  => $CORBA::_tc_string0, _value => $exp_err },
            'arg_modes' => 2,
          },
          { 'argument'  =>
            { _type  => $CORBA::_tc_double, _value => $a },
            'arg_modes' => 2,
          },
          { 'argument'  =>
            { _type  => $CORBA::_tc_double, _value => $b },
            'arg_modes' => 0,
          },
        ],
        'result' => $result_
    );
    $request_->invoke(0);
}

# operation addem (IDL:smop.org/Test/Test2/addem:1.0)

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

# operation ratio (IDL:smop.org/Test/Test2/ratio:1.0)

sub ratio ($$$) {
    my($self,$a,$b) = @_;
    my $result_ = { _type => $CORBA::_tc_float };
    my $request_ = $self->create_request(
        'operation' => 'ratio',
        'arg_list'  => [
          { 'argument'  =>
            { _type  => $CORBA::_tc_ulonglong, _value => $a },
            'arg_modes' => 0,
          },
          { 'argument'  =>
            { _type  => $CORBA::_tc_ulonglong, _value => $b },
            'arg_modes' => 0,
          },
        ],
        'result' => $result_
    );
    $request_->invoke(0);
    return $result_->{_value};
}

# operation incrll (IDL:smop.org/Test/Test2/incrll:1.0)

sub incrll ($$) {
    my($self,$a) = @_;
    my $result_ = { _type => $CORBA::_tc_void };
    my $request_ = $self->create_request(
        'operation' => 'incrll',
        'arg_list'  => [
          { 'argument'  =>
            { _type  => $CORBA::_tc_longlong, _value => $a },
            'arg_modes' => 2,
          },
        ],
        'result' => $result_
    );
    $request_->invoke(0);
}

1;