File Coverage

blib/lib/HH/Unispool/Config/File/Token.pm
Criterion Covered Total %
statement 53 61 86.8
branch 8 26 30.7
condition 9 30 30.0
subroutine 13 13 100.0
pod 4 4 100.0
total 87 134 64.9


line stmt bran cond sub pod time code
1             package HH::Unispool::Config::File::Token;
2              
3 44     44   749 use 5.006;
  44         150  
  44         2197  
4 44     44   230 use base qw( Exporter );
  44         80  
  44         4040  
5 44     44   342 use strict;
  44         602  
  44         1719  
6 44     44   443 use warnings;
  44         80  
  44         1734  
7 44     44   33460 use AutoLoader qw(AUTOLOAD);
  44         59538  
  44         259  
8 44     44   34385 use Error qw(:try);
  44         273628  
  44         681  
9             require Exporter;
10              
11             our $USP_BCS_FRM = "B %s\n";
12              
13             our $USP_BCS_RX = '^\s*B\s+(\S+)\s*$';
14              
15             our $USP_CFG_DEV_FRM = "* Device configuration for [%s]\n";
16              
17             our $USP_CFG_DEV_RX = '^\s*\*\s*Device\s+configuration\s+for\s*\[(\S+)]\s*$';
18              
19             our $USP_CFG_GRP_FRM = "* Group configuration for [%s]\n";
20              
21             our $USP_CFG_GRP_RX = '^\s*\*\s*Group\s+configuration\s+for\s*\[(\S+)]\s*$';
22              
23             our $USP_CFG_MISC_FRM = "* Miscellaneous configuration items for [%s]\n";
24              
25             our $USP_CFG_MISC_RX = '^\s*\*\s*Miscellaneous\s+configuration\s+items\s+for\s*\[(\S+)]\s*$';
26              
27             our $USP_CFG_RSYS_FRM = "* Remote system configuration for [%s]\n";
28              
29             our $USP_CFG_RSYS_RX = '^\s*\*\s*Remote\s+system\s+configuration\s+for\s*\[(\S+)]\s*$';
30              
31             our $USP_CS_FRM = "C %s\n";
32              
33             our $USP_CS_INFO_FRM = "* Configuration server info for [%s]\n";
34              
35             our $USP_CS_INFO_RX = '^\s*\*\s*Configuration\s+server\s+info\s+for\s*\[(\S+)\]\s*$';
36              
37             our $USP_CS_RX = '^\s*C\s+(\S+)\s*$';
38              
39             our $USP_D0_FRM = "D %-4d;%-16s;0 ;%-9s; ; ; ; ; ; ;%-6s;%s\n";
40              
41             our $USP_D0_RX = '^\s*D\s+(\d+)\s*;\s*([^;]+)\s*;\s*0\b(.*)';
42              
43             our $USP_D1_FRM = "D %-4d;%-16s;1 ;%-9s; ;%-4d;%-3d;%-2d; ; ;%-6s;%s\n";
44              
45             our $USP_D1_RX = '^\s*D\s+(\d+)\s*;\s*([^;]+)\s*;\s*1\b(.*)';
46              
47             our $USP_D2_FRM = "D %-4d;%-16s;2 ;%-9s; ;%-4d;%-3d;%-2d; ; ;%-6s;%s\n";
48              
49             our $USP_D2_RX = '^\s*D\s+(\d+)\s*;\s*([^;]+)\s*;\s*2\b(.*)';
50              
51             our $USP_D3_FRM = "D %-4d;%-16s;3 ; ; ; ; ; ; ; ;%-6s;%s\n";
52              
53             our $USP_D3_RX = '^\s*D\s+(\d+)\s*;\s*([^;]+)\s*;\s*3\b(.*)';
54              
55             our $USP_D4_FRM = "D %-4d;%-16s;4 ; ; ; ; ; ; ;%-16s;%-6s;%s\n";
56              
57             our $USP_D4_RX = '^\s*D\s+(\d+)\s*;\s*([^;]+)\s*;\s*4\b(.*)';
58              
59             our $USP_D5_FRM = "D %-4d;%-16s;5 ; ; ; ; ; ;%-16s;%s\n";
60              
61             our $USP_D5_RX = '^\s*D\s+(\d+)\s*;\s*([^;]+)\s*;\s*5\b(.*)';
62              
63             our $USP_D6_FRM = "D %-4d;%-16s;6 ;%-9s; ;%-4d;%-3d; ; ; ;%-6s;%s\n";
64              
65             our $USP_D6_RX = '^\s*D\s+(\d+)\s*;\s*([^;]+)\s*;\s*6\b(.*)';
66              
67             our $USP_D7_FRM = "D %-4d;%-16s;7 ; ; ; ; ; ; ;%-16s;%-6s;%s\n";
68              
69             our $USP_D7_RX = '^\s*D\s+(\d+)\s*;\s*([^;]+)\s*;\s*7\b(.*)';
70              
71             our $USP_DATE_FRM = "* Dump date : %s, %s %d, %d, %2d:%02d %s\n";
72              
73             our $USP_DATE_RX = '^\s*\*\s+Dump\s+date\s*:\s*\S+\s*,\s*(\S+)\s+(\d+)\s*,\s*(\d+)\s*,\s*(\d+):\s*(\d+)\s*(\S+)\s*$';
74              
75             our $USP_FILTER_FRM = "F %s %s %s\n";
76              
77             our $USP_FILTER_INFO_FRM = "* Filter file info for [%s]\n";
78              
79             our $USP_FILTER_INFO_RX = '^\s*\*\s*Filter\s+file\s+info\s+for\s*\[(\S+)\]\s*$';
80              
81             our $USP_FILTER_RX = '^\s*F\s+(\S+)\s+(\S+)\s+(\S+)\s*$';
82              
83             our $USP_G_FRM = "G %-4d;%-17s;%-17s;%-17s;%s\n";
84              
85             our $USP_G_RX = '^\s*G\s+(\d+)(.*)';
86              
87             our $USP_H1_FRM = "H %s\n";
88              
89             our $USP_H2_FRM = "H %-50s;%s\n";
90              
91             our $USP_HEAD_FRM = "* UNISPOOL <%s> configuration dumped on host %s\n";
92              
93             our $USP_HEAD_RX = '^\s*\*\s+UNISPOOL\s+<(\S+)>\s+configuration\s+dumped\s+on\s+host\s+(\S+)\s*$';
94              
95             our $USP_H_RX = '^\s*H\s+([^\s;]+)\s*(.*)',
96              
97             our $USP_ID_FRM = "I %-4d;DEV;%s\n";
98              
99             our $USP_ID_RX = '^\s*I\s+(\d+)\s*;\s*DEV\b(.*)',
100              
101             our $USP_IS_FRM = "I %-4d;SYS;%s\n";
102              
103             our $USP_IS_RX = '^\s*I\s+(\d+)\s*;\s*SYS\b(.*)',
104              
105             our $USP_L_FRM = "L %-s\n";
106              
107             our $USP_L_RX = '^\s*L\s+(.+)';
108              
109             our $USP_M_FRM = "M %-16s;%-3s;%-5s;%-1s;%s;%-5s;%-10d;%-10d;%s\n";
110              
111             our $USP_M_RX = '^\s*M\s+([^\s;]+)\s*(.*)',
112              
113             our $USP_N2_FRM = "N %-4d;%s\n";
114              
115             our $USP_N3_FRM = "N %-4d;%-50s;%s\n";
116              
117             our $USP_N5_FRM = "N %-4d;%-50s;%-8s;%-4s;%s\n";
118              
119             our $USP_ND_FRM = "N %-4d;%-50s;%-3s;SERVER;%s\n";
120              
121             our $USP_N_RX = '^\s*N\s+(\d+)\s*;\s*(\S+)(.*)',
122              
123             our $USP_PD_FRM = "P %-4d;DEV;%s\n";
124              
125             our $USP_PD_RX = '^\s*P\s+(\d+)\s*;\s*DEV\b(.*)';
126              
127             our $USP_S3_FRM = "S %-4d;%-16s;3;%-8s;%-9s;%-9s; ;%-3s; ; ;%-4s;%s\n";
128              
129             our $USP_S3_RX = '^\s*S\s+(\d+)\s*;\s*([^;]+)\s*;\s*3\b(.*)';
130              
131             our $USP_S6_FRM = "S %-4d;%-16s;6; ; ; ; ; ; ;%-4d;%-4s;%s\n";
132              
133             our $USP_S6_RX = '^\s*S\s+(\d+)\s*;\s*([^;]+)\s*;\s*6\b(.*)';
134              
135             our $USP_S7_FRM = "S %-4d;%-16s;7; ; ; ; ; ; ;%-4d;%-4s;%s\n";
136              
137             our $USP_S7_RX = '^\s*S\s+(\d+)\s*;\s*([^;]+)\s*;\s*7\b(.*)';
138              
139             our $USP_S8_FRM = "S %-4d;%-16s;8; ; ; ; ; ; ;%-4d;%-4s;%s\n";
140              
141             our $USP_S8_RX = '^\s*S\s+(\d+)\s*;\s*([^;]+)\s*;\s*8\b(.*)';
142              
143             our $USP_SCOPE_FRM = "* Dump scope : %s\n";
144              
145             our $USP_SCOPE_RX = '^\s*\*\s*Dump\s+scope\s*:\s*(.*)\s*$';
146              
147             our $USP_TAIL_FRM = "* End of configuration dumped on host %s\n";
148              
149             our $USP_TAIL_RX = '^\s*\*\s*End\s+of\s+configuration\s+dumped\s+on\s+host\s*(\S+)\s*$';
150              
151             our $USP_X_FRM = "X %-4d;%-16s;%-16s;%-16s;%s\n";
152              
153             our $USP_X_RX = '^\s*X\s+(\d+)\s*(.*)';
154              
155             # Used by _value_is_allowed
156             our %ALLOW_ISA = (
157             );
158              
159             # Used by _value_is_allowed
160             our %ALLOW_REF = (
161             );
162              
163             # Used by _value_is_allowed
164             our %ALLOW_RX = (
165             'input_line_number' => [ '^\d*$' ],
166             );
167              
168             # Used by _value_is_allowed
169             our %ALLOW_VALUE = (
170             );
171              
172             # Exporter variable
173             our %EXPORT_TAGS = (
174             'frm' => [ qw(
175             $USP_BCS_FRM
176             $USP_CFG_DEV_FRM
177             $USP_CFG_GRP_FRM
178             $USP_CFG_MISC_FRM
179             $USP_CFG_RSYS_FRM
180             $USP_CS_FRM
181             $USP_CS_INFO_FRM
182             $USP_D0_FRM
183             $USP_D1_FRM
184             $USP_D2_FRM
185             $USP_D3_FRM
186             $USP_D4_FRM
187             $USP_D5_FRM
188             $USP_D6_FRM
189             $USP_D7_FRM
190             $USP_DATE_FRM
191             $USP_FILTER_FRM
192             $USP_FILTER_INFO_FRM
193             $USP_G_FRM
194             $USP_H1_FRM
195             $USP_H2_FRM
196             $USP_HEAD_FRM
197             $USP_ID_FRM
198             $USP_IS_FRM
199             $USP_L_FRM
200             $USP_M_FRM
201             $USP_N2_FRM
202             $USP_N3_FRM
203             $USP_N5_FRM
204             $USP_ND_FRM
205             $USP_PD_FRM
206             $USP_S3_FRM
207             $USP_S6_FRM
208             $USP_S7_FRM
209             $USP_S8_FRM
210             $USP_SCOPE_FRM
211             $USP_TAIL_FRM
212             $USP_X_FRM
213             ) ],
214             'rx' => [ qw(
215             $USP_BCS_RX
216             $USP_CFG_DEV_RX
217             $USP_CFG_GRP_RX
218             $USP_CFG_MISC_RX
219             $USP_CFG_RSYS_RX
220             $USP_CS_INFO_RX
221             $USP_CS_RX
222             $USP_D0_RX
223             $USP_D1_RX
224             $USP_D2_RX
225             $USP_D3_RX
226             $USP_D4_RX
227             $USP_D5_RX
228             $USP_D6_RX
229             $USP_D7_RX
230             $USP_DATE_RX
231             $USP_FILTER_INFO_RX
232             $USP_FILTER_RX
233             $USP_G_RX
234             $USP_HEAD_RX
235             $USP_H_RX
236             $USP_ID_RX
237             $USP_IS_RX
238             $USP_L_RX
239             $USP_M_RX
240             $USP_N_RX
241             $USP_PD_RX
242             $USP_S3_RX
243             $USP_S6_RX
244             $USP_S7_RX
245             $USP_S8_RX
246             $USP_SCOPE_RX
247             $USP_TAIL_RX
248             $USP_X_RX
249             ) ],
250             );
251              
252             # Package version
253             our ($VERSION) = '$Revision: 0.3 $' =~ /\$Revision:\s+([^\s]+)/;
254              
255             # Exporter variable
256             our @EXPORT = qw(
257             );
258              
259             # Exporter variable
260             our @EXPORT_OK = qw(
261             $USP_BCS_FRM
262             $USP_BCS_RX
263             $USP_CFG_DEV_FRM
264             $USP_CFG_DEV_RX
265             $USP_CFG_GRP_FRM
266             $USP_CFG_GRP_RX
267             $USP_CFG_MISC_FRM
268             $USP_CFG_MISC_RX
269             $USP_CFG_RSYS_FRM
270             $USP_CFG_RSYS_RX
271             $USP_CS_FRM
272             $USP_CS_INFO_FRM
273             $USP_CS_INFO_RX
274             $USP_CS_RX
275             $USP_D0_FRM
276             $USP_D0_RX
277             $USP_D1_FRM
278             $USP_D1_RX
279             $USP_D2_FRM
280             $USP_D2_RX
281             $USP_D3_FRM
282             $USP_D3_RX
283             $USP_D4_FRM
284             $USP_D4_RX
285             $USP_D5_FRM
286             $USP_D5_RX
287             $USP_D6_FRM
288             $USP_D6_RX
289             $USP_D7_FRM
290             $USP_D7_RX
291             $USP_DATE_FRM
292             $USP_DATE_RX
293             $USP_FILTER_FRM
294             $USP_FILTER_INFO_FRM
295             $USP_FILTER_INFO_RX
296             $USP_FILTER_RX
297             $USP_G_FRM
298             $USP_G_RX
299             $USP_H1_FRM
300             $USP_H2_FRM
301             $USP_HEAD_FRM
302             $USP_HEAD_RX
303             $USP_H_RX
304             $USP_ID_FRM
305             $USP_ID_RX
306             $USP_IS_FRM
307             $USP_IS_RX
308             $USP_L_FRM
309             $USP_L_RX
310             $USP_M_FRM
311             $USP_M_RX
312             $USP_N2_FRM
313             $USP_N3_FRM
314             $USP_N5_FRM
315             $USP_ND_FRM
316             $USP_N_RX
317             $USP_PD_FRM
318             $USP_PD_RX
319             $USP_S3_FRM
320             $USP_S3_RX
321             $USP_S6_FRM
322             $USP_S6_RX
323             $USP_S7_FRM
324             $USP_S7_RX
325             $USP_S8_FRM
326             $USP_S8_RX
327             $USP_SCOPE_FRM
328             $USP_SCOPE_RX
329             $USP_TAIL_FRM
330             $USP_TAIL_RX
331             $USP_X_FRM
332             $USP_X_RX
333             );
334              
335             1;
336              
337             __END__