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
|
3 |
0 |
unless ($database) |
122
|
0 |
0 |
if $cache |
129
|
0 |
0 |
if $self->ping |
132
|
0 |
0 |
if ($$self{'path'}) { } |
138
|
0 |
0 |
unless ($database) |
149
|
0 |
0 |
if @_ |
158
|
0 |
0 |
if (my $selector = $self->class) |
159
|
0 |
0 |
if (ref $selector eq 'HASH') { } |
|
0 |
0 |
elsif ($selector->can('class_for')) { } |
|
0 |
0 |
elsif (not ref $selector) { } |
175
|
0 |
0 |
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
|
0 |
0 |
unless ($$self{'models'}{$model}) |
249
|
0 |
0 |
if $obj |
252
|
0 |
0 |
unless $obj = $self->_acedb_get($class, $name, $fill) |
259
|
0 |
0 |
unless $self->count($class, $name) >= 1 |
262
|
0 |
0 |
unless $filltag |
264
|
0 |
0 |
if (defined $filltag and $filltag eq '1') { } |
281
|
0 |
0 |
unless defined $MEMORY_CACHE{$key} |
282
|
0 |
0 |
if 'Ace'->debug |
289
|
0 |
0 |
unless @_ == 1 |
292
|
0 |
0 |
if exists $MEMORY_CACHE{$key} |
293
|
0 |
0 |
if 'Ace'->debug |
304
|
0 |
0 |
unless my $obj = shift() |
315
|
0 |
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 |
335
|
0 |
0 |
unless $obj->name |
338
|
0 |
0 |
unless my $cache = $self->cache |
340
|
0 |
0 |
if 'Ace'->debug |
341
|
0 |
0 |
if ($key eq ':') |
351
|
0 |
0 |
unless my $cache = $self->cache |
353
|
0 |
0 |
if 'Ace'->debug |
367
|
0 |
0 |
if (defined $class and defined $pattern and not $pattern =~ /[\?\*]/) |
378
|
0 |
0 |
if (defined $query) { } |
|
0 |
0 |
elsif (defined $class) { } |
379
|
0 |
0 |
unless $query =~ /^query\s/ |
390
|
0 |
0 |
if defined $total |
394
|
0 |
0 |
if not wantarray and $pattern =~ /(?:[^\\]|^)[*?]/ |
397
|
0 |
0 |
if ($filltag) { } |
400
|
0 |
0 |
$filled ? : |
403
|
0 |
0 |
wantarray ? : |
409
|
0 |
0 |
if @_ |
416
|
0 |
0 |
if $params and not ref $params |
418
|
0 |
0 |
unless eval {
do {
require Cache::SizeAwareFileCache
}
} |
434
|
0 |
0 |
unless defined $name |
437
|
0 |
0 |
if @_ |
445
|
0 |
0 |
unless $class and $pattern |
451
|
0 |
0 |
if (defined $r and $r =~ /write access/im) |
456
|
0 |
0 |
unless ($r =~ /($class)\s+\"([^\"]+)\"$/im) |
469
|
0 |
0 |
if ($r =~ /(AQL error.*)/) |
475
|
0 |
0 |
if m[^//] |
476
|
0 |
0 |
if /^\0/ |
501
|
0 |
0 |
unless $self->count($class, $pattern) |
505
|
0 |
0 |
$$self{'timestamps'} ? : |
508
|
0 |
0 |
unless ($result =~ /(\d+) object dumped/m) |
517
|
0 |
0 |
unless $$self{'database'} |
522
|
0 |
0 |
if defined $data |
530
|
0 |
0 |
unless $no_alert |
531
|
0 |
0 |
$parse ? : |
538
|
0 |
0 |
if defined $_[0] |
546
|
0 |
0 |
if $self->auto_save |
555
|
0 |
0 |
if (caller()) =~ /^Cache\:\:/ |
556
|
0 |
0 |
if 'Ace'->debug |
565
|
0 |
7 |
unless @param |
568
|
0 |
7 |
if (ref $param[0] eq 'HASH') { } |
571
|
4 |
3 |
unless defined $param[0] and substr($param[0], 0, 1) eq '-' |
588
|
3 |
27 |
if (ref $key eq 'ARRAY') { } |
590
|
0 |
6 |
if defined $value |
600
|
0 |
3 |
if %param |
617
|
0 |
0 |
if defined $offset |
618
|
0 |
0 |
if defined $count |
623
|
0 |
0 |
unless $class and $name |
626
|
0 |
0 |
unless ($obj) |
641
|
0 |
0 |
unless defined $tag |
643
|
0 |
0 |
if $$self{'timestamps'} |
644
|
0 |
0 |
if defined $start |
645
|
0 |
0 |
if defined $count |
651
|
0 |
0 |
if ($tag) |
660
|
0 |
0 |
if (my $obj = $self->memory_cache_store($_)) { } |
661
|
0 |
0 |
unless $obj->filled |
667
|
0 |
0 |
wantarray ? : |
672
|
0 |
0 |
unless $$self{'database'}->status == 1 |
678
|
0 |
0 |
if m[^//] |
679
|
0 |
0 |
unless /\S/ |
689
|
0 |
0 |
if $$self{'iterators'}{$_} |
696
|
0 |
0 |
if $$self{'path'} |
697
|
0 |
0 |
$self->db && $self->db->isa('Ace::SocketServer') ? : |
698
|
0 |
0 |
if $$self{'host'} |
705
|
0 |
0 |
if (ref $arg and $arg->isa('Ace')) { } |
710
|
0 |
0 |
$reversed ? : |
725
|
0 |
0 |
unless defined $query |
726
|
0 |
0 |
unless defined $pattern |
727
|
0 |
0 |
unless defined $class |
730
|
0 |
0 |
if (defined $$self{'active_list'} and defined $$self{'active_list'}{$active_tag}) |
735
|
0 |
0 |
if ($query) { } |
736
|
0 |
0 |
unless $query =~ /^query\s/ |
745
|
0 |
0 |
unless ($result =~ /(\d+) Active Objects/m) |
1826
|
1 |
0 |
if @_ |