File Coverage

lib/Net/EGTS/Codes.pm
Criterion Covered Total %
statement 246 246 100.0
branch n/a
condition n/a
subroutine 82 82 100.0
pod n/a
total 328 328 100.0


line stmt bran cond sub pod time code
1 14     14   71 use utf8;
  14         20  
  14         89  
2              
3             package Net::EGTS::Codes;
4 14     14   1977 use namespace::autoclean;
  14         55539  
  14         66  
5 14     14   665 use Mouse;
  14         51  
  14         70  
6             extends qw(Exporter);
7              
8             =head1 NAME
9              
10             Net::EGTS::Codes - Constants.
11              
12             =cut
13              
14             our @EXPORT;
15              
16             # Packet types
17 14     14   4706 use constant EGTS_PT_RESPONSE => 0;
  14         64  
  14         851  
18 14     14   67 use constant EGTS_PT_APPDATA => 1;
  14         43  
  14         567  
19 14     14   58 use constant EGTS_PT_SIGNED_APPDATA => 2;
  14         20  
  14         815  
20             push @EXPORT, qw(
21             EGTS_PT_RESPONSE
22             EGTS_PT_APPDATA
23             EGTS_PT_SIGNED_APPDATA
24             );
25              
26             # Result codes
27 14     14   74 use constant EGTS_PC_OK => 0;
  14         16  
  14         677  
28 14     14   61 use constant EGTS_PC_IN_PROGRESS => 1;
  14         18  
  14         553  
29 14     14   60 use constant EGTS_PC_UNS_PROTOCOL => 128;
  14         22  
  14         541  
30 14     14   57 use constant EGTS_PC_DECRYPT_ERROR => 129;
  14         16  
  14         527  
31 14     14   57 use constant EGTS_PC_PROC_DENIED => 130;
  14         16  
  14         576  
32 14     14   72 use constant EGTS_PC_INC_HEADERFORM => 131;
  14         43  
  14         541  
33 14     14   76 use constant EGTS_PC_INC_DATAFORM => 132;
  14         16  
  14         816  
34 14     14   63 use constant EGTS_PC_UNS_TYPE => 133;
  14         28  
  14         487  
35 14     14   62 use constant EGTS_PC_NOTEN_PARAMS => 134;
  14         31  
  14         502  
36 14     14   55 use constant EGTS_PC_DBL_PROC => 135;
  14         23  
  14         534  
37 14     14   61 use constant EGTS_PC_PROC_SRC_DENIED => 136;
  14         29  
  14         514  
38 14     14   58 use constant EGTS_PC_HEADERCRC_ERROR => 137;
  14         16  
  14         538  
39 14     14   56 use constant EGTS_PC_DATACRC_ERROR => 138;
  14         16  
  14         573  
40 14     14   84 use constant EGTS_PC_INVDATALEN => 139;
  14         30  
  14         561  
41 14     14   64 use constant EGTS_PC_ROUTE_NFOUND => 140;
  14         16  
  14         525  
42 14     14   70 use constant EGTS_PC_ROUTE_CLOSED => 141;
  14         24  
  14         487  
43 14     14   55 use constant EGTS_PC_ROUTE_DENIED => 142;
  14         19  
  14         498  
44 14     14   58 use constant EGTS_PC_INVADDR => 143;
  14         18  
  14         537  
45 14     14   57 use constant EGTS_PC_TTLEXPIRED => 144;
  14         18  
  14         512  
46 14     14   55 use constant EGTS_PC_NO_ACK => 145;
  14         18  
  14         471  
47 14     14   63 use constant EGTS_PC_OBJ_NFOUND => 146;
  14         25  
  14         550  
48 14     14   68 use constant EGTS_PC_EVNT_NFOUND => 147;
  14         23  
  14         541  
49 14     14   69 use constant EGTS_PC_SRVC_NFOUND => 148;
  14         18  
  14         513  
50 14     14   64 use constant EGTS_PC_SRVC_DENIED => 149;
  14         20  
  14         597  
51 14     14   167 use constant EGTS_PC_SRVC_UNKN => 150;
  14         30  
  14         533  
52 14     14   53 use constant EGTS_PC_AUTH_DENIED => 151;
  14         70  
  14         608  
53 14     14   77 use constant EGTS_PC_ALREADY_EXISTS => 152;
  14         16  
  14         583  
54 14     14   60 use constant EGTS_PC_ID_NFOUND => 153;
  14         30  
  14         503  
55 14     14   55 use constant EGTS_PC_INC_DATETIME => 154;
  14         18  
  14         545  
56 14     14   75 use constant EGTS_PC_IO_ERROR => 155;
  14         23  
  14         573  
57 14     14   59 use constant EGTS_PC_NO_RES_AVAIL => 156;
  14         16  
  14         565  
58 14     14   70 use constant EGTS_PC_MODULE_FAULT => 157;
  14         19  
  14         552  
59 14     14   67 use constant EGTS_PC_MODULE_PWR_FLT => 158;
  14         15  
  14         536  
60 14     14   55 use constant EGTS_PC_MODULE_PROC_FLT => 159;
  14         17  
  14         479  
61 14     14   60 use constant EGTS_PC_MODULE_SW_FLT => 160;
  14         24  
  14         545  
62 14     14   62 use constant EGTS_PC_MODULE_FW_FLT => 161;
  14         19  
  14         579  
63 14     14   85 use constant EGTS_PC_MODULE_IO_FLT => 162;
  14         19  
  14         594  
64 14     14   76 use constant EGTS_PC_MODULE_MEM_FLT => 163;
  14         24  
  14         577  
65 14     14   59 use constant EGTS_PC_TEST_FAILED => 164;
  14         42  
  14         999  
66             push @EXPORT, qw(
67             EGTS_PC_OK
68             EGTS_PC_IN_PROGRESS
69             EGTS_PC_UNS_PROTOCOL
70             EGTS_PC_DECRYPT_ERROR
71             EGTS_PC_PROC_DENIED
72             EGTS_PC_INC_HEADERFORM
73             EGTS_PC_INC_DATAFORM
74             EGTS_PC_UNS_TYPE
75             EGTS_PC_NOTEN_PARAMS
76             EGTS_PC_DBL_PROC
77             EGTS_PC_PROC_SRC_DENIED
78             EGTS_PC_HEADERCRC_ERROR
79             EGTS_PC_DATACRC_ERROR
80             EGTS_PC_INVDATALEN
81             EGTS_PC_ROUTE_NFOUND
82             EGTS_PC_ROUTE_CLOSED
83             EGTS_PC_ROUTE_DENIED
84             EGTS_PC_INVADDR
85             EGTS_PC_TTLEXPIRED
86             EGTS_PC_NO_ACK
87             EGTS_PC_OBJ_NFOUND
88             EGTS_PC_EVNT_NFOUND
89             EGTS_PC_SRVC_NFOUND
90             EGTS_PC_SRVC_DENIED
91             EGTS_PC_SRVC_UNKN
92             EGTS_PC_AUTH_DENIED
93             EGTS_PC_ALREADY_EXISTS
94             EGTS_PC_ID_NFOUND
95             EGTS_PC_INC_DATETIME
96             EGTS_PC_IO_ERROR
97             EGTS_PC_NO_RES_AVAIL
98             EGTS_PC_MODULE_FAULT
99             EGTS_PC_MODULE_PWR_FLT
100             EGTS_PC_MODULE_PROC_FLT
101             EGTS_PC_MODULE_SW_FLT
102             EGTS_PC_MODULE_FW_FLT
103             EGTS_PC_MODULE_IO_FLT
104             EGTS_PC_MODULE_MEM_FLT
105             EGTS_PC_TEST_FAILED
106             );
107              
108             # Service type
109 14     14   125 use constant EGTS_AUTH_SERVICE => 1;
  14         19  
  14         709  
110 14     14   104 use constant EGTS_TELEDATA_SERVICE => 2;
  14         66  
  14         564  
111 14     14   101 use constant EGTS_COMMANDS_SERVICE => 3;
  14         21  
  14         479  
112 14     14   54 use constant EGTS_FIRMWARE_SERVICE => 4;
  14         34  
  14         536  
113             # .. 63 reserved
114 14     14   70 use constant EGTS_USER_SERVICE => 64;
  14         30  
  14         741  
115             push @EXPORT, qw(
116             EGTS_AUTH_SERVICE
117             EGTS_TELEDATA_SERVICE
118             EGTS_COMMANDS_SERVICE
119             EGTS_FIRMWARE_SERVICE
120              
121             EGTS_USER_SERVICE
122             );
123              
124             # Service state
125 14     14   64 use constant EGTS_SST_IN_SERVICE => 0;
  14         14  
  14         693  
126 14     14   62 use constant EGTS_SST_OUT_OF_SERVICE => 128;
  14         16  
  14         491  
127 14     14   61 use constant EGTS_SST_DENIDED => 129;
  14         17  
  14         467  
128 14     14   58 use constant EGTS_SST_NO_CONF => 130;
  14         26  
  14         487  
129 14     14   52 use constant EGTS_SST_TEMP_UNAVAIL => 131;
  14         30  
  14         1045  
130             push @EXPORT, qw(
131             EGTS_SST_IN_SERVICE
132             EGTS_SST_OUT_OF_SERVICE
133             EGTS_SST_DENIDED
134             EGTS_SST_NO_CONF
135             EGTS_SST_TEMP_UNAVAIL
136             );
137              
138             # Source Data codes (custom names)
139 14     14   63 use constant EGTS_SRCD_TIMER => 0;
  14         17  
  14         550  
140 14     14   56 use constant EGTS_SRCD_DISTANCE => 1;
  14         31  
  14         565  
141 14     14   92 use constant EGTS_SRCD_ANGLE => 2;
  14         29  
  14         591  
142 14     14   76 use constant EGTS_SRCD_RESPONSE => 3;
  14         34  
  14         547  
143             #...
144 14     14   58 use constant EGTS_SRCD_EXTERNAL => 16;
  14         17  
  14         492  
145             #...
146 14     14   53 use constant EGTS_SRCD_CHANGE_MODE => 35;
  14         16  
  14         711  
147             push @EXPORT, qw(
148             EGTS_SRCD_TIMER
149             EGTS_SRCD_DISTANCE
150             EGTS_SRCD_ANGLE
151             EGTS_SRCD_RESPONSE
152              
153             EGTS_SRCD_EXTERNAL
154              
155             EGTS_SRCD_CHANGE_MODE
156             );
157              
158             # Subrecord types common
159 14     14   62 use constant EGTS_SR_RECORD_RESPONSE => 0;
  14         22  
  14         549  
160             # Subrecord types for EGTS_AUTH_SERVICE
161 14     14   56 use constant EGTS_SR_TERM_IDENTITY => 1;
  14         16  
  14         518  
162 14     14   94 use constant EGTS_SR_MODULE_DATA => 2;
  14         16  
  14         514  
163 14     14   77 use constant EGTS_SR_VEHICLE_DATA => 3;
  14         19  
  14         562  
164 14     14   57 use constant EGTS_SR_DISPATCHER_IDENTITY => 5;
  14         15  
  14         527  
165 14     14   66 use constant EGTS_SR_AUTH_PARAMS => 6;
  14         16  
  14         540  
166 14     14   70 use constant EGTS_SR_AUTH_INFO => 7;
  14         17  
  14         585  
167 14     14   72 use constant EGTS_SR_SERVICE_INFO => 8;
  14         32  
  14         578  
168 14     14   65 use constant EGTS_SR_RESULT_CODE => 9;
  14         14  
  14         566  
169             # Subrecord types for EGTS_TELEDATA_SERVICE
170 14     14   58 use constant EGTS_SR_POS_DATA => 16;
  14         17  
  14         635  
171 14     14   63 use constant EGTS_SR_EXT_POS_DATA => 17;
  14         15  
  14         530  
172 14     14   73 use constant EGTS_SR_AD_SENSORS_DATA => 18;
  14         19  
  14         585  
173 14     14   61 use constant EGTS_SR_COUNTERS_DATA => 19;
  14         31  
  14         528  
174 14     14   62 use constant EGTS_SR_STATE_DATA => 20;
  14         21  
  14         590  
175 14     14   92 use constant EGTS_SR_LOOPIN_DATA => 22;
  14         20  
  14         515  
176 14     14   61 use constant EGTS_SR_ABS_DIG_SENS_DATA => 23;
  14         20  
  14         552  
177 14     14   59 use constant EGTS_SR_ABS_AN_SENS_DATA => 24;
  14         15  
  14         524  
178 14     14   56 use constant EGTS_SR_ABS_CNTR_DATA => 25;
  14         26  
  14         841  
179 14     14   57 use constant EGTS_SR_ABS_LOOPIN_DATA => 26;
  14         27  
  14         552  
180 14     14   58 use constant EGTS_SR_LIQUID_LEVEL_SENSOR => 27;
  14         22  
  14         522  
181 14     14   57 use constant EGTS_SR_PASSENGERS_COUNTERS => 28;
  14         19  
  14         1389  
182             push @EXPORT, qw(
183             EGTS_SR_RECORD_RESPONSE
184              
185             EGTS_SR_TERM_IDENTITY
186             EGTS_SR_MODULE_DATA
187             EGTS_SR_VEHICLE_DATA
188             EGTS_SR_DISPATCHER_IDENTITY
189             EGTS_SR_AUTH_PARAMS
190             EGTS_SR_AUTH_INFO
191             EGTS_SR_SERVICE_INFO
192             EGTS_SR_RESULT_CODE
193              
194             EGTS_SR_POS_DATA
195             EGTS_SR_EXT_POS_DATA
196             EGTS_SR_AD_SENSORS_DATA
197             EGTS_SR_COUNTERS_DATA
198             EGTS_SR_STATE_DATA
199             EGTS_SR_LOOPIN_DATA
200             EGTS_SR_ABS_DIG_SENS_DATA
201             EGTS_SR_ABS_AN_SENS_DATA
202             EGTS_SR_ABS_CNTR_DATA
203             EGTS_SR_ABS_LOOPIN_DATA
204             EGTS_SR_LIQUID_LEVEL_SENSOR
205             EGTS_SR_PASSENGERS_COUNTERS
206             );
207              
208             __PACKAGE__->meta->make_immutable();