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

use Extra1_types;
use COPE::CORBA::Object;

# interface Extra1 (IDL:cope/Extra1:1.0)

package Extra1;

# operation template (IDL:cope/Extra1/template:1.0)

sub template ($$$) {
    my($self,$s1,$s2) = @_;
    my $result_ = { _type => $CORBA::_tc_void };
    my $request_ = $self->create_request(
        'operation' => 'template',
        'arg_list'  => [
          { 'argument'  =>
            { _type  => $Str30::_tc, _value => $s1 },
            'arg_modes' => 0,
          },
          { 'argument'  =>
            { _type  => $Str30::_tc, _value => $s2 },
            'arg_modes' => 0,
          },
        ],
        'result' => $result_
    );
    $request_->invoke(0);
}

# operation real (IDL:cope/Extra1/real:1.0)

sub real ($$$) {
    my($self,$s1,$s2) = @_;
    my $result_ = { _type => $CORBA::_tc_void };
    my $request_ = $self->create_request(
        'operation' => 'real',
        'arg_list'  => [
          { 'argument'  =>
            { _type  => $Str30::_tc, _value => $s1 },
            'arg_modes' => 0,
          },
          { 'argument'  =>
            { _type  => $Str30::_tc, _value => $s2 },
            'arg_modes' => 0,
          },
        ],
        'result' => $result_,
        'result_mode' => 'oneway'
    );
    $request_->invoke(0);
}

# attribute second (IDL:cope/Extra1/second:1.0)

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

# operation cctest (IDL:cope/Extra1/cctest:1.0)

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

1;