| line |
true |
false |
branch |
|
132
|
0 |
6 |
if $App::trace |
|
141
|
0 |
6 |
if $App::trace |
|
171
|
0 |
5 |
if $App::trace |
|
173
|
0 |
5 |
if $App::trace |
|
217
|
0 |
22 |
if $App::trace |
|
219
|
16 |
6 |
unless (defined $name) |
|
220
|
6 |
10 |
if ($service =~ /^([A-Z][^.]*)\.(.+)/) { } |
|
228
|
2 |
14 |
if ($name =~ /^([a-zA-Z0-9_\.-]+)([\{\}\[\]].*)$/) { } |
|
|
8 |
6 |
elsif ($name =~ /^([a-zA-Z0-9_\.-]+)\.([a-zA-Z0-9_]+)$/) { } |
|
244
|
18 |
4 |
if (not $var =~ /[\[\]\{\}]/) { } |
|
|
2 |
2 |
elsif ($var =~ /^\{([^\}]+)\}$/) { } |
|
|
2 |
0 |
elsif ($var =~ /^[\{\}\[\]].*$/) { } |
|
246
|
5 |
13 |
if (not defined $value and defined $default) |
|
248
|
1 |
4 |
if ($setdefault) |
|
250
|
0 |
1 |
unless defined $$self{'cache'}{$service}{$name} |
|
254
|
0 |
18 |
if $App::DEBUG and $self->dbg(3) |
|
261
|
0 |
2 |
if (not defined $value and defined $default) |
|
263
|
0 |
0 |
if ($setdefault) |
|
265
|
0 |
0 |
unless defined $$self{'cache'}{$service}{$name} |
|
269
|
0 |
2 |
if $App::DEBUG and $self->dbg(3) |
|
275
|
1 |
1 |
unless defined $$self{'cache'}{$service}{$name} |
|
280
|
0 |
2 |
if $@ |
|
281
|
0 |
2 |
if $App::DEBUG and $self->dbg(3) |
|
285
|
0 |
2 |
if $App::trace |
|
321
|
0 |
11 |
if $App::trace |
|
323
|
4 |
7 |
unless (defined $value) |
|
327
|
7 |
4 |
unless (defined $name) |
|
328
|
4 |
3 |
if ($service =~ /^([A-Z][^.]*)\.(.+)/) { } |
|
336
|
2 |
5 |
if ($name =~ /^([a-zA-Z0-9_\.-]+)([\{\}\[\]].*)$/) { } |
|
|
3 |
2 |
elsif ($name =~ /^([a-zA-Z0-9_\.-]+)\.([a-zA-Z0-9_]+)$/) { } |
|
350
|
0 |
11 |
if ($value eq '{:delete:}') |
|
355
|
0 |
11 |
if $App::DEBUG and $self->dbg(3) |
|
358
|
7 |
4 |
if (not $var =~ /[\[\]\{\}]/) { } |
|
|
2 |
2 |
elsif ($var =~ /^\{([^\}]+)\}$/) { } |
|
|
2 |
0 |
elsif ($var =~ /^\{/) { } |
|
374
|
1 |
1 |
if defined $$self{'cache'}{$service}{$name} |
|
378
|
0 |
2 |
if $@ |
|
381
|
0 |
2 |
if $App::trace |
|
412
|
0 |
0 |
if $App::trace |
|
415
|
0 |
0 |
if $App::trace |
|
444
|
0 |
0 |
if $App::trace |
|
446
|
0 |
0 |
unless (defined $name) |
|
447
|
0 |
0 |
if ($service =~ /^([A-Z][^.]*)\.(.+)/) { } |
|
455
|
0 |
0 |
if ($name =~ /^([a-zA-Z0-9_\.-]+)([\{\}\[\]].*)$/) { } |
|
|
0 |
0 |
elsif ($name =~ /^([a-zA-Z0-9_\.-]+)\.([a-zA-Z0-9_]+)$/) { } |
|
471
|
0 |
0 |
if $App::DEBUG and $self->dbg(3) |
|
474
|
0 |
0 |
if (not defined $var or $var eq '') |
|
475
|
0 |
0 |
if ($name =~ /^([a-zA-Z0-9_\.-]+)([\{\}\[\]].*)$/) { } |
|
|
0 |
0 |
elsif ($name =~ /^([a-zA-Z0-9_\.-]+)\.([a-zA-Z0-9_]+)$/) { } |
|
489
|
0 |
0 |
if (not $var =~ /[\[\]\{\}]/) { } |
|
|
0 |
0 |
elsif ($var =~ /^\{([^\}]+)\}$/) { } |
|
|
0 |
0 |
elsif ($var =~ /^\{/) { } |
|
491
|
0 |
0 |
if defined $$self{'cache'}{$service}{$name} |
|
498
|
0 |
0 |
if defined $$self{'cache'}{$service}{$name} |
|
507
|
0 |
0 |
if defined $$self{'cache'}{$service}{$name} |
|
511
|
0 |
0 |
if $@ |
|
515
|
0 |
0 |
if $App::trace |
|
542
|
0 |
0 |
if $App::trace |
|
545
|
0 |
0 |
unless ($session_id) |
|
549
|
0 |
0 |
if $App::trace |
|
576
|
0 |
0 |
if $App::trace |
|
581
|
0 |
0 |
if $seq > 1 |
|
582
|
0 |
0 |
if $App::trace |
|
616
|
0 |
0 |
if $App::trace |
|
621
|
0 |
0 |
if $App::trace |
|
647
|
0 |
0 |
if $App::trace |
|
649
|
0 |
0 |
unless $ref |
|
654
|
0 |
0 |
if $App::trace |