# Automatically generated stub code.  DO NOT EDIT.
# Generated on Wed Jul  6 00:56:24 2005 by idl2perl 2.7 with command:
# bin/idl2perl examples/copex.idl

use Copex::Temp_types;
use COPE::CORBA::Object;

# interface Copex::Temp (IDL:Copex/Temp:1.0)

package Copex::Temp;

# operation GetProps (IDL:Copex/Temp/GetProps:1.0)

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

# operation SetProps (IDL:Copex/Temp/SetProps:1.0)

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

# operation remove (IDL:Copex/Temp/remove:1.0)

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

1;