| line |
true |
false |
branch |
|
111
|
187 |
0 |
if $parms |
|
123
|
66 |
120 |
if (my $string = $$parms{'string'}) |
|
151
|
366 |
1760 |
if (/indicator|transind/) { } |
|
|
180 |
1580 |
elsif (/date/) { } |
|
|
156 |
1424 |
elsif (/user/) { } |
|
|
463 |
961 |
elsif (not defined $value) { } |
|
154
|
4 |
362 |
unless $value =~ /$regx/ |
|
164
|
1 |
179 |
unless defined $value |
|
165
|
1 |
178 |
unless length $value == $len |
|
172
|
55 |
101 |
unless (defined $value) |
|
174
|
1 |
54 |
unless defined $value |
|
178
|
1 |
154 |
if length $try > $len |
|
181
|
1 |
153 |
unless $try =~ /$regx/ |
|
188
|
4 |
454 |
if (/transnum|keynum|reclen|thisfnum|thisseek/ or /prevfnum|prevseek/ and $transind =~ /[$update$delete]/ or /nextfnum|nextseek/ and $indicator =~ /[$oldupd$olddel]/) |
|
198
|
4 |
957 |
if (/prevfnum|prevseek/ and $indicator =~ /[$create]/ or /nextfnum|nextseek/ and $indicator =~ /[$update$delete]/) |
|
203
|
219 |
738 |
/fnum/ ? : |
|
204
|
9 |
948 |
if length $try > $len |
|
206
|
216 |
732 |
/fnum/ ? : |
|
212
|
1 |
152 |
unless $string =~ $datastore->regx |
|
254
|
152 |
178 |
if @_ > 1 |
|
255
|
184 |
46 |
if @_ > 1 |
|
256
|
184 |
3 |
if @_ > 1 |
|
257
|
186 |
20 |
if @_ > 1 |
|
258
|
178 |
3 |
if @_ > 1 |
|
259
|
153 |
41 |
if @_ > 1 |
|
261
|
174 |
55 |
if @_ > 1 |
|
262
|
172 |
65 |
if @_ > 1 |
|
263
|
176 |
3 |
if @_ > 1 |
|
264
|
170 |
27 |
if @_ > 1 |
|
265
|
168 |
27 |
if @_ > 1 |
|
266
|
39 |
3 |
if @_ > 1 |
|
267
|
37 |
3 |
if @_ > 1 |
|
268
|
7 |
2 |
if @_ > 1 |
|
269
|
5 |
2 |
if @_ > 1 |
|
313
|
59 |
119 |
if (/yyyy/) { } |
|
317
|
0 |
59 |
if ((my $pos = index($format, 'tttttt')) > -1) |
|
332
|
118 |
1 |
if ((my $pos = index($format, 'ttt')) > -1) |