# $Id: Test2_impl.pm 1206 2006-05-31 07:11:53Z rvosa $

# Generated on Wed Aug 12 08:58:41 1998 with the following command:
# /usr/home/irving/bin/idl2perl -o COPE --impl ../Test.idl
# Modified several times since.

use COPE::Test::Test2_types;
use COPE::Test::Test2_skel;

# IDL:smop.org/Test/Test2:1.0
package Test::Test2_impl;
use COPE::CORBA::Servant;
use Exception::Class::TCF;

@Test::Test2_impl::ISA=qw(CORBA::BOA::_Servant);
sub _skelname($) { 'Test::Test2_skel' }

# IDL:smop.org/Test/Test2/check:1.0
sub check ($) {
    my($self) = @_;
    return 'ok';
}

# IDL:smop.org/Test/Test2/etest:1.0
package Test::Test2_impl;
sub etest ($) {
    my($self) = @_;
    throw new Test::Test2::AnException why => 'because', minor => 1;
}

# IDL:smop.org/Test/Test2/help_brother:1.0
sub help_brother ($$$) {
    my($self,$counter,$my_brother) = @_;
    print "help_brother with counter=$$counter\n";
    if (--$$counter > 0) {
	$my_brother->help_brother($counter, $self);
    }
}

# IDL:smop.org/Test/Test2/anattr:1.0
sub anattr ($;$) {
    my($self,$newval) = @_;
    if (defined $newval) {
        $self->{'anattr'} = $newval;
    } else {
        return $self->{'anattr'};
    }
}

# IDL:smop.org/Test/Test2/count:1.0
sub count ($) {
    my($self) = @_;
    15;
}
# operation flop (IDL:smop.org/Test/Test2/flop:1.0)

sub flop ($$$$) {
    my($self,$exp_err,$a,$b) = @_;
    my $result = 0;

    eval '$result = ' . $$exp_err;
    $$exp_err = $!;
    return $result;
}

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

sub dflop ($$$$) {
    my($self,$exp_err,$a,$b) = @_;
    my ($result, $a_ref) = (0, $a);

    $a = $$a;
    eval '$result = ' . $$exp_err;
    $$a_ref = $result;
    $$exp_err = $!;
}

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

sub addem ($$$) {
    my($self,$a,$b) = @_;

    use Math::BigInt;
    return $a + $b;
}

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

sub ratio ($$$) {
    my($self,$a,$b) = @_;

    use Math::BigInt;
    return $a / $b;
}

# operation incrll

sub incrll($$) {
    my ($self, $a) = @_;

    ++$$a;
}

1;