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

use COPE::CORBA::Skel;
use COPE::Test::Test2_types;

# interface Test::Test2 (IDL:smop.org/Test/Test2:1.0)

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

$Test::Test2_skel::_interface = 'IDL:smop.org/Test/Test2:1.0';

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

# operation check (IDL:smop.org/Test/Test2/check:1.0)

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

# operation etest (IDL:smop.org/Test/Test2/etest:1.0)

sub etest ($$) {
    my($self,$serverrequest) = @_;
    my $arg_list = [
    ];
    $serverrequest->params($arg_list);
    $self->{impl}->etest(
    );
}

# operation help_brother (IDL:smop.org/Test/Test2/help_brother:1.0)

sub help_brother ($$) {
    my($self,$serverrequest) = @_;
    my $arg_list = [
          { 'argument'  =>
            { _type  => $CORBA::_tc_long },
            'arg_modes' => 2,
          },
          { 'argument'  =>
            { _type  => $Test::Test2::_tc },
            'arg_modes' => 0,
          },
    ];
    $serverrequest->params($arg_list);
    $self->{impl}->help_brother(
        \$arg_list->[0]{argument}{_value},
        $arg_list->[1]{argument}{_value},
    );
}

# attribute anattr (IDL:smop.org/Test/Test2/anattr:1.0)

sub anattr ($$) {
    my($self,$serverrequest) = @_;
    if ($serverrequest->op_name() eq '_set_anattr') {
        my $arg_list = [
            { 'argument'  =>
              { _type  => $CORBA::_tc_string0 },
                'arg_modes' => 0,
            },
        ];
        $serverrequest->params($arg_list);
        $self->{impl}->anattr(
            $arg_list->[0]{argument}{_value}
        );
    } else {
        my $result_ = { _type => $CORBA::_tc_string0 };
        $serverrequest->params([]);
        $serverrequest->result($result_);
        $result_->{_value} = $self->{impl}->anattr();
    }
}

# attribute count (IDL:smop.org/Test/Test2/count:1.0)

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

# operation flop (IDL:smop.org/Test/Test2/flop:1.0)

sub flop ($$) {
    my($self,$serverrequest) = @_;
    my $result_ = { _type => $CORBA::_tc_float };
    my $arg_list = [
          { 'argument'  =>
            { _type  => $CORBA::_tc_string0 },
            'arg_modes' => 2,
          },
          { 'argument'  =>
            { _type  => $CORBA::_tc_float },
            'arg_modes' => 0,
          },
          { 'argument'  =>
            { _type  => $CORBA::_tc_float },
            'arg_modes' => 0,
          },
    ];
    $serverrequest->params($arg_list);
    $serverrequest->result($result_);
    $result_->{_value} = $self->{impl}->flop(
        \$arg_list->[0]{argument}{_value},
        $arg_list->[1]{argument}{_value},
        $arg_list->[2]{argument}{_value},
    );
}

# operation dflop (IDL:smop.org/Test/Test2/dflop:1.0)

sub dflop ($$) {
    my($self,$serverrequest) = @_;
    my $arg_list = [
          { 'argument'  =>
            { _type  => $CORBA::_tc_string0 },
            'arg_modes' => 2,
          },
          { 'argument'  =>
            { _type  => $CORBA::_tc_double },
            'arg_modes' => 2,
          },
          { 'argument'  =>
            { _type  => $CORBA::_tc_double },
            'arg_modes' => 0,
          },
    ];
    $serverrequest->params($arg_list);
    $self->{impl}->dflop(
        \$arg_list->[0]{argument}{_value},
        \$arg_list->[1]{argument}{_value},
        $arg_list->[2]{argument}{_value},
    );
}

# operation addem (IDL:smop.org/Test/Test2/addem:1.0)

sub addem ($$) {
    my($self,$serverrequest) = @_;
    my $result_ = { _type => $CORBA::_tc_longlong };
    my $arg_list = [
          { 'argument'  =>
            { _type  => $CORBA::_tc_longlong },
            'arg_modes' => 0,
          },
          { 'argument'  =>
            { _type  => $CORBA::_tc_longlong },
            'arg_modes' => 0,
          },
    ];
    $serverrequest->params($arg_list);
    $serverrequest->result($result_);
    $result_->{_value} = $self->{impl}->addem(
        $arg_list->[0]{argument}{_value},
        $arg_list->[1]{argument}{_value},
    );
}

# operation ratio (IDL:smop.org/Test/Test2/ratio:1.0)

sub ratio ($$) {
    my($self,$serverrequest) = @_;
    my $result_ = { _type => $CORBA::_tc_float };
    my $arg_list = [
          { 'argument'  =>
            { _type  => $CORBA::_tc_ulonglong },
            'arg_modes' => 0,
          },
          { 'argument'  =>
            { _type  => $CORBA::_tc_ulonglong },
            'arg_modes' => 0,
          },
    ];
    $serverrequest->params($arg_list);
    $serverrequest->result($result_);
    $result_->{_value} = $self->{impl}->ratio(
        $arg_list->[0]{argument}{_value},
        $arg_list->[1]{argument}{_value},
    );
}

# operation incrll (IDL:smop.org/Test/Test2/incrll:1.0)

sub incrll ($$) {
    my($self,$serverrequest) = @_;
    my $arg_list = [
          { 'argument'  =>
            { _type  => $CORBA::_tc_longlong },
            'arg_modes' => 2,
          },
    ];
    $serverrequest->params($arg_list);
    $self->{impl}->incrll(
        \$arg_list->[0]{argument}{_value},
    );
}

1;