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

use COPE::CORBA::Skel;
use COPE::Test::Test4_types;

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

package Test::Test4_skel;
use base qw(CORBA::_Skel);
unshift(@Test::Test4_skel::ISA, qw(Test::Test3_skel Test::Test1_skel));
$Test::Test4_skel::_id = 0;

$Test::Test4_skel::_interface = 'IDL:smop.org/Test/Test4:1.0';

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

1;