# Automatically generated skeleton 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 COPE::CORBA::Skel;
use Copex::Supervisor_types;

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

package Copex::Supervisor_skel;
use base qw(CORBA::_Skel);
$Copex::Supervisor_skel::_id = 0;

$Copex::Supervisor_skel::_interface = 'IDL:Copex/Supervisor:1.0';

sub new {
    my $class = shift;
    my $id = shift || $Copex::Supervisor_skel::_id++;
    my $self = bless [\%Copex::Supervisor_skel::FIELDS, $id], $class;
    return $self;
}

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

sub get_temp ($$) {
    my($self,$serverrequest) = @_;
    my $result_ = { _type => $Copex::TempList::_tc };
    my $arg_list = [
    ];
    $serverrequest->params($arg_list);
    $serverrequest->result($result_);
    $result_->{_value} = $self->{impl}->get_temp(
    );
}

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

sub get_persistent ($$) {
    my($self,$serverrequest) = @_;
    my $result_ = { _type => $Copex::PersList::_tc };
    my $arg_list = [
    ];
    $serverrequest->params($arg_list);
    $serverrequest->result($result_);
    $result_->{_value} = $self->{impl}->get_persistent(
    );
}

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

sub get_one ($$) {
    my($self,$serverrequest) = @_;
    my $result_ = { _type => $Copex::OneList::_tc };
    my $arg_list = [
    ];
    $serverrequest->params($arg_list);
    $serverrequest->result($result_);
    $result_->{_value} = $self->{impl}->get_one(
    );
}

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

sub new_one ($$) {
    my($self,$serverrequest) = @_;
    my $result_ = { _type => $Copex::OneServant::_tc };
    my $arg_list = [
          { 'argument'  =>
            { _type  => CORBA::TypeCode::_create_string_tc(30) },
            'arg_modes' => 0,
          },
    ];
    $serverrequest->params($arg_list);
    $serverrequest->result($result_);
    $result_->{_value} = $self->{impl}->new_one(
        $arg_list->[0]{argument}{_value},
    );
}

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

sub get_loaded ($$) {
    my($self,$serverrequest) = @_;
    my $result_ = { _type => $Copex::DemandList::_tc };
    my $arg_list = [
    ];
    $serverrequest->params($arg_list);
    $serverrequest->result($result_);
    $result_->{_value} = $self->{impl}->get_loaded(
    );
}

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

sub get_unloaded ($$) {
    my($self,$serverrequest) = @_;
    my $result_ = { _type => $Copex::DemandList::_tc };
    my $arg_list = [
    ];
    $serverrequest->params($arg_list);
    $serverrequest->result($result_);
    $result_->{_value} = $self->{impl}->get_unloaded(
    );
}

1;