# Automatically generated module code. DO NOT EDIT. # Generated on Wed May 10 20:28:17 2000 by idl2perl 2.7 with command: # bin/idl2perl -outdir t/COPE Test.idl use COPE::CORBA::TypeCode; # module Test (IDL:smop.org/Test:1.0) # struct TestStruct (IDL:smop.org/Test/TestStruct:1.0) package Test::TestStruct; @Test::TestStruct::ISA=qw(CORBA::_Struct); CORBA::TypeCode::_new_type_impl('Test::TestStruct', CORBA::TypeCode::_create_struct_tc('IDL:smop.org/Test/TestStruct:1.0', 'TestStruct', ['astring' => $CORBA::_tc_string0, 'ashort' => $CORBA::_tc_short])); # interface Test::Test1 (IDL:smop.org/Test/Test1:1.0) # interface Test::Test2 (IDL:smop.org/Test/Test2:1.0) # interface Test::Test3 (IDL:smop.org/Test/Test3:1.0) # interface Test::Test4 (IDL:smop.org/Test/Test4:1.0) 1;