| line |
true |
false |
branch |
|
21
|
0 |
3 |
if $file |
|
30
|
0 |
0 |
unless $file or $self->{'file'} |
|
33
|
0 |
11 |
unless $file |
|
41
|
2 |
9 |
if ($file =~ /\.gz$/) { } |
|
43
|
0 |
2 |
unless $gz |
|
54
|
0 |
9 |
unless $fh |
|
62
|
0 |
11 |
if ($@) |
|
82
|
0 |
0 |
if ($@) |
|
99
|
1674 |
10266 |
if ($S->{'key'}) |
|
100
|
313 |
1361 |
if ($line =~ /^\*/ and $S->{'value'} =~ /^".*"\s*$/s) { } |
|
110
|
514 |
10065 |
if $line =~ /^\*%/ |
|
112
|
374 |
9691 |
if ($line =~ /^\*End\s*$/) |
|
118
|
28 |
9663 |
if ($line =~ /^\*OpenGroup:\s*(.+)/) |
|
125
|
28 |
9635 |
if ($line =~ /^\*CloseGroup:\s*(.+)/) |
|
132
|
161 |
9474 |
if ($line =~ /^\*(?:JCL)?OpenUI\s*\*(.+?):\s*(.+)/) |
|
139
|
161 |
9313 |
if ($line =~ /^\*(?:JCL)?CloseUI:?\s*\*(.+)/) |
|
147
|
0 |
9313 |
if ($line =~ /^(\*zh_([^:]+)\s+)""$/) |
|
156
|
8867 |
446 |
if ($line =~ /^(\*\s*([^:]+):\s*)/) |
|
167
|
446 |
0 |
unless $line =~ /\S/ |
|
179
|
8867 |
1361 |
unless $S->{'value'} |
|
182
|
5880 |
4348 |
if ($line =~ /^"(.*)" *$/) { } |
|
|
441 |
3907 |
elsif ($line =~ /^"/) { } |
|
|
0 |
3907 |
elsif ($line eq "*End\n") { } |
|
|
1297 |
2610 |
elsif (not $S->{'first'}) { } |
|
195
|
377 |
64 |
if $S->{'first'} |
|
216
|
87 |
10141 |
if ($line =~ s/&&\s*$//) |
|
222
|
8554 |
1674 |
if ($exit) |
|
233
|
9619 |
8867 |
unless $S->{'key'} |
|
235
|
2610 |
6257 |
unless $S->{'quoted'} |
|
238
|
6603 |
2264 |
if ($S->{'key'} =~ m[^([^ ]+)\s+(.+(/.+)?)$]) { } |
|
244
|
1487 |
777 |
if ($C->{$k}) { } |
|
245
|
29 |
1458 |
unless ref $C->{$k} |
|
262
|
41 |
8826 |
if ($v eq 'False') { } |
|
|
3610 |
5216 |
elsif ($v =~ s/"(.+)"\s*/$1/s) { } |
|
276
|
1088 |
7968 |
unless $C->{$key} |
|
289
|
5751 |
852 |
if ($C->{$key}) { } |
|
290
|
1 |
5750 |
unless ("HASH" eq ref $C->{$key}) |
|
333
|
28 |
0 |
if ("HASH" eq ref $data) |
|
334
|
0 |
28 |
if ("group" ne $data->{'__type'}) |
|
403
|
0 |
189 |
unless $current->{'__name'} |
|
407
|
0 |
189 |
unless $current->{'__name'} eq $name |
|
418
|
3 |
23 |
if $AUTOLOAD eq "DESTROY" |
|
425
|
1 |
30 |
if (@_ == 2) |
|
430
|
0 |
31 |
unless exists $D->{$name} |
|
432
|
10 |
21 |
if (ref $ret) |
|
433
|
1 |
7 |
if (not $subkey and "HASH" eq ref $ret and $ret->{'_'}) |
|
436
|
2 |
8 |
if ($subkey) |
|
441
|
9 |
1 |
if "HASH" eq ref $ret |
|
455
|
0 |
7 |
if ($name eq "_default") |
|
465
|
0 |
2 |
unless $self->{'__group_sorted'} |
|
466
|
0 |
2 |
if $self->{'__UI_sorted'} |
|
467
|
1 |
1 |
if wantarray |
|
488
|
0 |
62 |
unless defined $subkey |
|
495
|
0 |
2 |
unless $self->{'__subkey'} |
|
502
|
29 |
98 |
if $self->{'value'} |
|
521
|
2 |
2 |
unless wantarray |
|
537
|
62 |
9 |
if $AUTOLOAD eq "DESTROY" |
|
544
|
0 |
4 |
unless $self->{'__UI_sorted'} |
|
545
|
2 |
2 |
if wantarray |
|
558
|
39 |
19 |
if (@_ == 2) |
|
563
|
9 |
49 |
if ($name =~ s/^UI\.//) |
|
567
|
1 |
57 |
unless exists $D->{$name} |
|
569
|
53 |
4 |
if (ref $ret) |
|
570
|
0 |
53 |
if ($subkey) |
|
573
|
53 |
0 |
if "HASH" eq ref $ret |