File Coverage

blib/lib/COPE/CORBA/Exception.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 12 83.3


line stmt bran cond sub pod time code
1             # $Id: Exception.pm,v 1.2 1997/07/31 11:03:53 schuller Exp $
2             # Copyright (c) 1997 Secure Computing Corporation
3             # Copyright (c) 1997 Lunatech Research
4             # See the file "Artistic" in the distribution for licensing and
5             # (lack of) warranties.
6              
7             # The standard CORBA exception types
8              
9 3     3   19 use strict;
  3         4  
  3         127  
10 3     3   16 use COPE::CORBA::TypeCode;
  3         6  
  3         28  
11              
12             # Re-export try, catch and throw
13             package COPE::CORBA::Exception;
14 3     3   3595 use Experimental::Exception;
  0            
  0            
15             @COPE::CORBA::Exception::ISA = qw(Experimental::Exception);
16             @COPE::CORBA::Exception::EXPORT = qw(&try &catch &throw);
17              
18             # The base exception type; every CORBA exception inherits from this
19             package CORBA::Exception;
20             @CORBA::Exception::ISA=qw(Experimental::Exception);
21             $CORBA::Exception::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/Exception:1.0', 'Exception', []);
22              
23              
24             # User exceptions. All IDL defined exceptions inherit from this.
25             package CORBA::UserException;
26             @CORBA::UserException::ISA=qw(CORBA::Exception);
27             $CORBA::UserException::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/UserException:1.0', 'UserException', []);
28              
29              
30             # System exceptions. These correspond to the IDL definition:
31             #
32             # module CORBA {
33             # enum CompletionStatus {COMPLETED_YES, COMPLETED_NO, COMPLETED_MAYBE};
34             # exception SystemException : Exception {
35             # ulong minor; // impl. defined minor number
36             # CompletionStatus completed;
37             # };
38              
39             package CORBA::CompletionStatus;
40             $CORBA::CompletionStatus::_tc = CORBA::TypeCode::_create_enum_tc('IDL:omg.org/CORBA/CompletionStatus:1.0', 'CompletionStatus', ['COMPLETED_YES', 'COMPLETED_NO', 'COMPLETED_MAYBE']);
41             sub COMPLETED_YES () {0}
42             sub COMPLETED_NO () {1}
43             sub COMPLETED_MAYBE () {2}
44              
45             package CORBA::SystemException;
46             @CORBA::SystemException::ISA=qw(CORBA::Exception);
47             $CORBA::SystemException::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/SystemException:1.0', 'SystemException', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
48              
49              
50             # The defined CORBA system exceptions
51             package CORBA::UNKNOWN;
52             @CORBA::UNKNOWN::ISA=qw(CORBA::SystemException);
53             $CORBA::UNKNOWN::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/UNKNOWN:1.0', 'UNKNOWN', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
54              
55             package CORBA::BAD_PARAM;
56             @CORBA::BAD_PARAM::ISA=qw(CORBA::SystemException);
57             $CORBA::BAD_PARAM::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/BAD_PARAM:1.0', 'BAD_PARAM', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
58              
59             package CORBA::NO_MEMORY;
60             @CORBA::NO_MEMORY::ISA=qw(CORBA::SystemException);
61             $CORBA::NO_MEMORY::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/NO_MEMORY:1.0', 'NO_MEMORY', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
62              
63             package CORBA::IMP_LIMIT;
64             @CORBA::IMP_LIMIT::ISA=qw(CORBA::SystemException);
65             $CORBA::IMP_LIMIT::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/IMP_LIMIT:1.0', 'IMP_LIMIT', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
66              
67             package CORBA::COMM_FAILURE;
68             @CORBA::COMM_FAILURE::ISA=qw(CORBA::SystemException);
69             $CORBA::COMM_FAILURE::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/COMM_FAILURE:1.0', 'COMM_FAILURE', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
70              
71             package CORBA::INV_OBJREF;
72             @CORBA::INV_OBJREF::ISA=qw(CORBA::SystemException);
73             $CORBA::INV_OBJREF::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/INV_OBJREF:1.0', 'INV_OBJREF', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
74              
75             package CORBA::NO_PERMISSION;
76             @CORBA::NO_PERMISSION::ISA=qw(CORBA::SystemException);
77             $CORBA::NO_PERMISSION::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/NO_PERMISSION:1.0', 'NO_PERMISSION', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
78              
79             package CORBA::INTERNAL;
80             @CORBA::INTERNAL::ISA=qw(CORBA::SystemException);
81             $CORBA::INTERNAL::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/INTERNAL:1.0', 'INTERNAL', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
82              
83             package CORBA::MARSHAL;
84             @CORBA::MARSHAL::ISA=qw(CORBA::SystemException);
85             $CORBA::MARSHAL::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/MARSHAL:1.0', 'MARSHAL', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
86              
87             package CORBA::INITIALIZE;
88             @CORBA::INITIALIZE::ISA=qw(CORBA::SystemException);
89             $CORBA::INITIALIZE::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/INITIALIZE:1.0', 'INITIALIZE', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
90              
91             package CORBA::NO_IMPLEMENT;
92             @CORBA::NO_IMPLEMENT::ISA=qw(CORBA::SystemException);
93             $CORBA::NO_IMPLEMENT::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/NO_IMPLEMENT:1.0', 'NO_IMPLEMENT', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
94              
95             package CORBA::BAD_TYPECODE;
96             @CORBA::BAD_TYPECODE::ISA=qw(CORBA::SystemException);
97             $CORBA::BAD_TYPECODE::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/BAD_TYPECODE:1.0', 'BAD_TYPECODE', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
98              
99             package CORBA::BAD_OPERATION;
100             @CORBA::BAD_OPERATION::ISA=qw(CORBA::SystemException);
101             $CORBA::BAD_OPERATION::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/BAD_OPERATION:1.0', 'BAD_OPERATION', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
102              
103             package CORBA::NO_RESOURCES;
104             @CORBA::NO_RESOURCES::ISA=qw(CORBA::SystemException);
105             $CORBA::NO_RESOURCES::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/NO_RESOURCES:1.0', 'NO_RESOURCES', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
106              
107             package CORBA::NO_RESPONSE;
108             @CORBA::NO_RESPONSE::ISA=qw(CORBA::SystemException);
109             $CORBA::NO_RESPONSE::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/NO_RESPONSE:1.0', 'NO_RESPONSE', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
110              
111             package CORBA::PERSIST_STORE;
112             @CORBA::PERSIST_STORE::ISA=qw(CORBA::SystemException);
113             $CORBA::PERSIST_STORE::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/PERSIST_STORE:1.0', 'PERSIST_STORE', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
114              
115             package CORBA::BAD_INV_ORDER;
116             @CORBA::BAD_INV_ORDER::ISA=qw(CORBA::SystemException);
117             $CORBA::BAD_INV_ORDER::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/BAD_INV_ORDER:1.0', 'BAD_INV_ORDER', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
118              
119             package CORBA::TRANSIENT;
120             @CORBA::TRANSIENT::ISA=qw(CORBA::SystemException);
121             $CORBA::TRANSIENT::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/TRANSIENT:1.0', 'TRANSIENT', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
122              
123             package CORBA::FREE_MEM;
124             @CORBA::FREE_MEM::ISA=qw(CORBA::SystemException);
125             $CORBA::FREE_MEM::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/FREE_MEM:1.0', 'FREE_MEM', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
126              
127             package CORBA::INV_IDENT;
128             @CORBA::INV_IDENT::ISA=qw(CORBA::SystemException);
129             $CORBA::INV_IDENT::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/INV_IDENT:1.0', 'INV_IDENT', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
130              
131             package CORBA::INV_FLAG;
132             @CORBA::INV_FLAG::ISA=qw(CORBA::SystemException);
133             $CORBA::INV_FLAG::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/INV_FLAG:1.0', 'INV_FLAG', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
134              
135             package CORBA::INTF_REPOS;
136             @CORBA::INTF_REPOS::ISA=qw(CORBA::SystemException);
137             $CORBA::INTF_REPOS::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/INTF_REPOS:1.0', 'INTF_REPOS', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
138              
139             package CORBA::BAD_CONTEXT;
140             @CORBA::BAD_CONTEXT::ISA=qw(CORBA::SystemException);
141             $CORBA::BAD_CONTEXT::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/BAD_CONTEXT:1.0', 'BAD_CONTEXT', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
142              
143             package CORBA::OBJ_ADAPTER;
144             @CORBA::OBJ_ADAPTER::ISA=qw(CORBA::SystemException);
145             $CORBA::OBJ_ADAPTER::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/OBJ_ADAPTER:1.0', 'OBJ_ADAPTER', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
146              
147             package CORBA::DATA_CONVERSION;
148             @CORBA::DATA_CONVERSION::ISA=qw(CORBA::SystemException);
149             $CORBA::DATA_CONVERSION::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/DATA_CONVERSION:1.0', 'DATA_CONVERSION', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
150              
151             package CORBA::OBJECT_NOT_EXIST;
152             @CORBA::OBJECT_NOT_EXIST::ISA=qw(CORBA::SystemException);
153             $CORBA::OBJECT_NOT_EXIST::_tc = CORBA::TypeCode::_create_exception_tc('IDL:omg.org/CORBA/OBJECT_NOT_EXIST:1.0', 'OBJECT_NOT_EXIST', ['minor' => $CORBA::_tc_ulong, 'completed' => $CORBA::CompletionStatus::_tc]);
154              
155              
156             1;