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

use COPE::CORBA::Skel;
use COPE::Extra1_types;

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

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

$Extra1_skel::_interface = 'IDL:cope/Extra1:1.0';

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

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

sub template ($$) {
    my($self,$serverrequest) = @_;
    my $arg_list = [
          { 'argument'  =>
            { _type  => $Str30::_tc },
            'arg_modes' => 0,
          },
          { 'argument'  =>
            { _type  => $Str30::_tc },
            'arg_modes' => 0,
          },
    ];
    $serverrequest->params($arg_list);
    $self->{impl}->template(
        $arg_list->[0]{argument}{_value},
        $arg_list->[1]{argument}{_value},
    );
}

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

sub real ($$) {
    my($self,$serverrequest) = @_;
    my $arg_list = [
          { 'argument'  =>
            { _type  => $Str30::_tc },
            'arg_modes' => 0,
          },
          { 'argument'  =>
            { _type  => $Str30::_tc },
            'arg_modes' => 0,
          },
    ];
    $serverrequest->params($arg_list);
    $self->{impl}->real(
        $arg_list->[0]{argument}{_value},
        $arg_list->[1]{argument}{_value},
    );
}

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

sub second ($$) {
    my($self,$serverrequest) = @_;
    my $result_ = { _type => $CORBA::_tc_string0 };
    $serverrequest->params([]);
    $serverrequest->result($result_);
    $result_->{_value} = $self->{impl}->second();
}

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

sub cctest ($$) {
    my($self,$serverrequest) = @_;
    my $result_ = { _type => $CORBA::_tc_short };
    my $arg_list = [
    ];
    $serverrequest->params($arg_list);
    $serverrequest->result($result_);
    $result_->{_value} = $self->{impl}->cctest(
    );
}

1;