# 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::Supervisor_types;
use COPE::CORBA::Object;

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

package Copex::Supervisor;

# operation get_temp (IDL:Copex/Supervisor/get_temp:1.0)

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

# operation get_persistent (IDL:Copex/Supervisor/get_persistent:1.0)

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

# operation get_one (IDL:Copex/Supervisor/get_one:1.0)

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

# operation new_one (IDL:Copex/Supervisor/new_one:1.0)

sub new_one ($$) {
    my($self,$id) = @_;
    my $result_ = { _type => $Copex::OneServant::_tc };
    my $request_ = $self->create_request(
        'operation' => 'new_one',
        'arg_list'  => [
          { 'argument'  =>
            { _type  => CORBA::TypeCode::_create_string_tc(30), _value => $id },
            'arg_modes' => 0,
          },
        ],
        'result' => $result_
    );
    $request_->invoke(0);
    return $result_->{_value};
}

# operation get_loaded (IDL:Copex/Supervisor/get_loaded:1.0)

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

# operation get_unloaded (IDL:Copex/Supervisor/get_unloaded:1.0)

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

1;