| line |
true |
false |
branch |
|
42
|
15 |
7 |
if (($ch, $sym) = /^([\$\@\%])(.+)/) { } |
|
45
|
0 |
15 |
if ($sym =~ /\W/) |
|
47
|
0 |
0 |
if ($sym =~ /^\w+[[{].*[]}]$/) { } |
|
|
0 |
0 |
elsif (warnings::enabled() and length $sym == 1 and not $sym =~ tr/A-Za-z//) { } |
|
|
0 |
0 |
elsif ($^H &= strict::bits('vars')) { } |
|
59
|
15 |
0 |
unless $sym =~ /::/ |
|
60
|
0 |
15 |
unless $callpack eq 'main' |
|
65
|
1 |
0 |
$ch eq '%' ? : |
|
|
5 |
1 |
$ch eq '@' ? : |
|
|
9 |
6 |
$ch eq '$' ? : |
|
70
|
0 |
15 |
if ($@) |
|
76
|
1 |
6 |
if ($_ =~ /^(ttl|timeout)$/i) |
|
78
|
0 |
1 |
if $opts{'ttl'} =~ s/\s*\b(\d+)(s|\s*seconds)\b\s*// |
|
79
|
0 |
0 |
$opts{'ttl'} ? : |
|
|
0 |
1 |
if $opts{'ttl'} =~ s/\s*\b(\d+)(d|\s*days)\b\s*// |
|
82
|
6 |
0 |
if ($_ =~ /^path$/i) |
|
86
|
0 |
0 |
if ($_ =~ /^key$/i) |
|
96
|
4 |
7 |
if (not $imps) |
|
97
|
3 |
1 |
if $opts{'path'} |
|
98
|
0 |
4 |
if $opts{'ttl'} |
|
99
|
0 |
4 |
if $opts{'key'} |
|
160
|
9 |
14 |
unless ($db = $DBS{$tid}{$path}) |
|
163
|
9 |
0 |
if ($db) { } |
|
208
|
19 |
1 |
unless (defined $$self{'ttl'}) |
|
209
|
19 |
0 |
unless $callpack |
|
214
|
11 |
0 |
unless ($$self{'path'} or $$self{'key'}) |
|
215
|
0 |
11 |
unless $callpack |
|
219
|
0 |
20 |
if ($$self{'key'}) |
|
225
|
11 |
9 |
unless ($$self{'path'}) |
|
226
|
0 |
11 |
unless $callpack |
|
232
|
18 |
2 |
if ($$self{'sym'}) { } |
|
|
2 |
0 |
elsif ($$self{'table'}) { } |
|
233
|
0 |
18 |
if $DEBUG |
|
234
|
1 |
17 |
if ($$self{'ttl'}) |
|
239
|
0 |
1 |
if ($up == 0) |
|
245
|
0 |
2 |
if ($$self{'type'} eq '$') |
|
249
|
0 |
2 |
if $DEBUG |
|
264
|
0 |
1 |
if $DEBUG |
|
265
|
1 |
0 |
if ($styp eq '$') { } |
|
|
0 |
0 |
elsif ($styp eq '%') { } |
|
|
0 |
0 |
elsif ($styp eq '@') { } |
|
287
|
4 |
1 |
if ($$self{'sym'}) { } |
|
|
1 |
0 |
elsif ($$self{'table'}) { } |
|
301
|
5 |
1 |
if ($$self{'sym'}) { } |
|
|
1 |
0 |
elsif ($$self{'table'}) { } |
|
319
|
3 |
0 |
if ($$self{'sym'}) { } |
|
325
|
0 |
3 |
if ($$self{'type'} eq '%') { } |
|
|
0 |
3 |
elsif ($$self{'type'} eq '@') { } |
|
338
|
4 |
0 |
if ($$self{'sym'}) { } |
|
351
|
4 |
8 |
unless ($row) |
|
357
|
0 |
8 |
if (wantarray) { } |
|
368
|
5 |
1 |
if ($$self{'sym'}) { } |
|
369
|
0 |
5 |
if ($$self{'type'} eq '%') { } |
|
|
5 |
0 |
elsif ($$self{'type'} eq '@') { } |
|
383
|
0 |
4 |
unless defined $offset |
|
384
|
0 |
4 |
unless defined $length |
|
401
|
2 |
2 |
if ($n <= $#new) { } |
|
|
2 |
0 |
elsif ($length > 0) { } |
|
404
|
2 |
2 |
if ($$self{'sym'}) { } |
|
417
|
1 |
1 |
if ($$self{'sym'}) { } |
|
426
|
1 |
1 |
if ($$self{'sym'}) { } |
|
438
|
2 |
2 |
wantarray ? : |
|
450
|
0 |
0 |
if ($$self{'type'} eq '%') { } |
|
451
|
0 |
0 |
if ($$self{'sym'}) { } |
|
465
|
19 |
14 |
if ($$self{'sym'}) { } |
|
471
|
29 |
4 |
defined $ind ? : |
|
478
|
6 |
0 |
if ($count >= 0) |
|
479
|
5 |
1 |
if ($$self{'sym'}) { } |
|
493
|
1 |
1 |
if ($$self{'sym'}) { } |
|
508
|
5 |
1 |
if ($$self{'sym'}) { } |
|
540
|
23 |
36 |
if ($$self{'type'} eq '$') { } |
|
|
10 |
26 |
elsif ($$self{'type'} eq '%') { } |
|
|
26 |
0 |
elsif ($$self{'type'} eq '@') { } |
|
543
|
8 |
2 |
if ($$self{'sym'}) { } |
|
550
|
15 |
11 |
if ($$self{'sym'}) { } |
|
562
|
1 |
58 |
if (defined $act and $act eq 'EXISTS') |
|
573
|
8 |
50 |
unless defined $vtyp |
|
575
|
45 |
5 |
if ($vtyp eq '$') |
|
579
|
5 |
0 |
if ($vtyp eq '*') |
|
580
|
5 |
0 |
unless defined $key |
|
581
|
4 |
1 |
if ($$self{'ref'}{$key}) { } |
|
587
|
0 |
1 |
if ($val eq '$') { } |
|
|
1 |
0 |
elsif ($val eq '%') { } |
|
|
0 |
0 |
elsif ($val eq '@') { } |
|
604
|
0 |
1 |
unless ref $val |
|
617
|
8 |
17 |
if ($$self{'type'} eq '$') { } |
|
625
|
2 |
23 |
if (ref $val) { } |
|
626
|
2 |
0 |
unless defined $key |
|
631
|
0 |
2 |
if (ref $val eq 'SCALAR') { } |
|
|
2 |
0 |
elsif (ref $val eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $val eq 'ARRAY') { } |
|
634
|
0 |
0 |
if defined $sav |
|
639
|
0 |
2 |
if %sav |
|
644
|
0 |
0 |
if @sav |
|
654
|
0 |
25 |
if ($DEBUG) |
|
659
|
1 |
24 |
if ($$self{'ttl'}) |
|
665
|
8 |
17 |
if ($$self{'type'} eq '$') { } |
|
|
7 |
10 |
elsif ($$self{'type'} eq '%') { } |
|
|
10 |
0 |
elsif ($$self{'type'} eq '@') { } |
|
666
|
2 |
6 |
if (not defined $val) { } |
|
671
|
2 |
4 |
if ($up == 0) |
|
677
|
5 |
2 |
if ($$self{'sym'}) { } |
|
678
|
0 |
5 |
if (not defined $val) { } |
|
683
|
0 |
5 |
if ($up == 0) |
|
689
|
0 |
2 |
if (not defined $val) { } |
|
693
|
0 |
2 |
if ($up == 0) |
|
700
|
7 |
3 |
if ($$self{'sym'}) { } |
|
703
|
2 |
5 |
if ($up == 0) |
|
709
|
2 |
1 |
if ($up == 0) |
|
723
|
163 |
2 |
$$self{'db'} ? : |
|
725
|
127 |
38 |
if ($name) { } |
|
726
|
54 |
73 |
unless ($st = ($$db{'private_ipc_lite_prep'} || {})->{$name}) |
|
733
|
103 |
62 |
if ($ok and $$st{'NUM_OF_FIELDS'}) { } |
|
752
|
1 |
10 |
unless ($DEFAULT_PATH{$callpack}) |
|
783
|
3 |
159 |
if ($tid != $$self{'tid'}) |
|
798
|
0 |
185 |
if (not $tid and $^O =~ /win32/i) |
|
805
|
185 |
0 |
unless ($tid) |