| line |
true |
false |
branch |
| 66 |
0 |
3 |
if (@_ == 1) |
| 77 |
0 |
3 |
if defined $url |
| 81 |
0 |
3 |
if ($path) { } |
| 87 |
0 |
0 |
$server_type eq 'Ace::SocketServer' ? : |
| 88 |
3 |
0 |
unless defined $query_timeout |
| 89 |
3 |
0 |
if $port < 100000 |
| 90 |
0 |
3 |
if $port >= 100000 |
| 94 |
0 |
3 |
unless eval "require $server_type" |
| 95 |
0 |
3 |
if ($path) { } |
| 101 |
0 |
3 |
unless ($database) |
| 122 |
0 |
3 |
if $cache |
| 129 |
0 |
0 |
if $self->ping |
| 132 |
0 |
0 |
if ($$self{'path'}) { } |
| 138 |
0 |
0 |
unless ($database) |
| 149 |
0 |
346 |
if @_ |
| 158 |
214 |
0 |
if (my $selector = $self->class) |
| 159 |
0 |
214 |
if (ref $selector eq 'HASH') { } |
| |
0 |
214 |
elsif ($selector->can('class_for')) { } |
| |
214 |
0 |
elsif (not ref $selector) { } |
| 175 |
0 |
214 |
unless $selected_class->can('new') |
| 186 |
0 |
0 |
if ($url) |
| 188 |
0 |
0 |
if (m[^rpcace://([^:]+):(\d+)$]) { } |
| |
0 |
0 |
elsif (m[^sace://([\w:]+)\@([^:]+):(\d+)$]) { } |
| |
0 |
0 |
elsif (m[^sace://([^:]+):(\d+)$]) { } |
| |
0 |
0 |
elsif (m[^tace:(/.+)$]) { } |
| |
0 |
0 |
elsif (m[^(/.+)$]) { } |
| 208 |
0 |
0 |
if ($user =~ /:/) |
| 231 |
4 |
19 |
unless ($$self{'models'}{$model}) |
| 249 |
3 |
6 |
if $obj |
| 252 |
0 |
6 |
unless $obj = $self->_acedb_get($class, $name, $fill) |
| 259 |
0 |
6 |
unless $self->count($class, $name) >= 1 |
| 262 |
6 |
0 |
unless $filltag |
| 264 |
0 |
0 |
if (defined $filltag and $filltag eq '1') { } |
| 281 |
200 |
123 |
unless defined $MEMORY_CACHE{$key} |
| 282 |
0 |
123 |
if 'Ace'->debug |
| 289 |
0 |
234 |
unless @_ == 1 |
| 292 |
42 |
192 |
if exists $MEMORY_CACHE{$key} |
| 293 |
0 |
192 |
if 'Ace'->debug |
| 304 |
0 |
0 |
unless my $obj = shift @_ |
| 315 |
200 |
0 |
unless my $cache = $self->cache |
| 317 |
0 |
0 |
if ($obj and not exists $$obj{'.root'}) |
| 324 |
0 |
0 |
$obj ? : |
| |
0 |
0 |
if 'Ace'->debug |
| 325 |
0 |
0 |
if $obj |
| 336 |
195 |
0 |
unless my $cache = $self->cache |
| 338 |
0 |
0 |
if 'Ace'->debug |
| 339 |
0 |
0 |
if ($key eq ':') |
| 349 |
2 |
0 |
unless my $cache = $self->cache |
| 351 |
0 |
0 |
if 'Ace'->debug |
| 365 |
8 |
4 |
if (defined $class and defined $pattern and not $pattern =~ /[\?\*]/) |
| 376 |
1 |
3 |
if (defined $query) { } |
| |
3 |
0 |
elsif (defined $class) { } |
| 377 |
1 |
0 |
unless $query =~ /^query\s/ |
| 388 |
0 |
4 |
if defined $total |
| 392 |
1 |
3 |
if not wantarray and $pattern =~ /(?:[^\\]|^)[*?]/ |
| 395 |
0 |
3 |
if ($filltag) { } |
| 398 |
0 |
3 |
$filled ? : |
| 401 |
3 |
0 |
wantarray ? : |
| 407 |
0 |
405 |
if @_ |
| 414 |
0 |
0 |
if $params and not ref $params |
| 416 |
0 |
0 |
unless eval {
|
| 432 |
27 |
1221 |
unless defined $name |
| 435 |
3 |
1218 |
if @_ |
| 443 |
0 |
0 |
unless $class and $pattern |
| 449 |
0 |
0 |
if (defined $r and $r =~ /write access/im) |
| 454 |
0 |
0 |
unless ($r =~ /($class)\s+"([^"]+)"$/im) |
| 467 |
0 |
0 |
if ($r =~ /(AQL error.*)/) |
| 473 |
0 |
0 |
if m[^//] |
| 474 |
0 |
0 |
if /^\0/ |
| 499 |
0 |
1 |
unless $self->count($class, $pattern) |
| 503 |
0 |
1 |
$$self{'timestamps'} ? : |
| 506 |
0 |
1 |
unless ($result =~ /(\d+) object dumped/m) |
| 515 |
0 |
76 |
unless $$self{'database'} |
| 520 |
76 |
0 |
if defined $data |
| 528 |
72 |
3 |
unless $no_alert |
| 529 |
2 |
73 |
$parse ? : |
| 536 |
0 |
0 |
if defined $_[0] |
| 544 |
0 |
0 |
if $self->auto_save |
| 553 |
0 |
0 |
if caller() =~ /^Cache::/ |
| 554 |
0 |
0 |
if 'Ace'->debug |
| 563 |
4 |
519 |
unless @param |
| 566 |
0 |
519 |
if (ref $param[0] eq 'HASH') { } |
| 569 |
474 |
45 |
unless defined $param[0] and substr($param[0], 0, 1) eq '-' |
| 586 |
135 |
124 |
if (ref $key eq 'ARRAY') { } |
| 588 |
29 |
241 |
if defined $value |
| 598 |
0 |
45 |
if %param |
| 615 |
6 |
7 |
if defined $offset |
| 616 |
2 |
11 |
if defined $count |
| 621 |
78 |
314 |
unless $class and $name |
| 624 |
194 |
120 |
unless ($obj) |
| 639 |
1 |
0 |
unless defined $tag |
| 641 |
0 |
1 |
if $$self{'timestamps'} |
| 642 |
1 |
0 |
if defined $start |
| 643 |
1 |
0 |
if defined $count |
| 649 |
0 |
1 |
if ($tag) |
| 658 |
0 |
20 |
if (my $obj = $self->memory_cache_store($_)) { } |
| 659 |
0 |
0 |
unless $obj->filled |
| 665 |
1 |
0 |
wantarray ? : |
| 670 |
1 |
1 |
unless $$self{'database'}->status == 1 |
| 676 |
1 |
20 |
if m[^//] |
| 677 |
0 |
20 |
unless /\S/ |
| 687 |
41 |
0 |
if $$self{'iterators'}{$_} |
| 694 |
0 |
2311 |
if $$self{'path'} |
| 695 |
2311 |
0 |
$self->db && $self->db->isa('Ace::SocketServer') ? : |
| 696 |
2311 |
0 |
if $$self{'host'} |
| 703 |
0 |
0 |
if (ref $arg and $arg->isa('Ace')) { } |
| 708 |
0 |
0 |
$reversed ? : |
| 723 |
13 |
1 |
unless defined $query |
| 724 |
1 |
13 |
unless defined $pattern |
| 725 |
1 |
13 |
unless defined $class |
| 728 |
1 |
13 |
if (defined $$self{'active_list'} and defined $$self{'active_list'}{$active_tag}) |
| 733 |
1 |
12 |
if ($query) { } |
| 734 |
1 |
0 |
unless $query =~ /^query\s/ |
| 743 |
0 |
13 |
unless ($result =~ /(\d+) Active Objects/m) |
| 1824 |
1 |
397 |
if @_ |
| 1837 |
0 |
1 |
unless $result |
| 1838 |
0 |
1 |
if $result =~ /broken connection|client time out/ |
| 1839 |
0 |
1 |
unless $$self{'database'}->status == 0 |
| 1853 |
0 |
15 |
if defined $_[0] |
| 2035 |
1 |
0 |
unless $query =~ /^find/i |
| 2037 |
0 |
1 |
if defined $total |
| 2038 |
0 |
1 |
unless wantarray |
| 2039 |
0 |
1 |
$filled ? : |
| 2068 |
2 |
2 |
unless $self->count($class, $item) >= 1 |
| 2073 |
0 |
2 |
$$self{'timestamps'} ? : |
| 2075 |
0 |
2 |
unless ($result =~ /(\d+) object dumped/m) |
| 2106 |
472 |
0 |
unless $ts |
| 2113 |
0 |
1 |
defined $invisible && $invisible ? : |
| 2132 |
0 |
3 |
if (defined $query) { } |
| |
3 |
0 |
elsif (defined $class) { } |
| 2133 |
0 |
0 |
unless $query =~ /^query\s/ |
| 2157 |
0 |
3 |
unless $$self{'iterators'}{$iterator} |
| 2159 |
0 |
3 |
if grep {$_ eq $iterator;} @{$$self{'iterator_stack'};} |