| line |
true |
false |
branch |
|
40
|
0 |
0 |
if ($presumed_tag) { } |
|
|
0 |
0 |
elsif ($func_name =~ /^[A-Z]/ and $self->isTag) { } |
|
41
|
0 |
0 |
if $self->db and $self->model and not $self->model->valid_tag($func_name) |
|
46
|
0 |
0 |
if (defined $_[0]) |
|
47
|
0 |
0 |
if ($_[0] eq '@') { } |
|
|
0 |
0 |
elsif ($_[0] =~ /^\d+$/) { } |
|
55
|
0 |
0 |
if not $no_dereference || $self->isRoot and $self->db |
|
57
|
0 |
0 |
unless $self |
|
59
|
0 |
0 |
if wantarray |
|
60
|
0 |
0 |
@_ ? : |
|
64
|
0 |
0 |
unless defined $obj |
|
67
|
0 |
0 |
if $no_dereference |
|
70
|
0 |
0 |
if defined $_[0] and $_[0] =~ /\d+/ |
|
74
|
0 |
0 |
if $obj->isObject and not $obj->isRoot |
|
89
|
0 |
0 |
unless defined $$self{'class'} |
|
90
|
0 |
0 |
if (caller()) =~ /^(Cache\:\:|DB)/ |
|
91
|
0 |
0 |
unless my $db = $self->db |
|
92
|
0 |
0 |
if $$self{'.nocache'} |
|
93
|
0 |
0 |
unless $self->isRoot |
|
95
|
0 |
0 |
if ($self->_dirty) |
|
96
|
0 |
0 |
if 'Ace'->debug |
|
114
|
0 |
0 |
if ref $pack |
|
118
|
0 |
0 |
if $self->isObject |
|
119
|
0 |
0 |
if defined $isRoot and $isRoot |
|
127
|
0 |
0 |
if ref $pack |
|
131
|
0 |
0 |
unless $_ |
|
146
|
0 |
0 |
if defined $_[0] |
|
154
|
0 |
0 |
defined $_[0] ? : |
|
171
|
0 |
0 |
unless (UNIVERSAL::isa($b, 'Ace::Object')) |
|
175
|
0 |
0 |
if $a->name eq $b->name and $a->class eq $b->class and $a->db eq $b->db |
|
194
|
0 |
0 |
if (@_) |
|
209
|
0 |
0 |
unless $tag |
|
214
|
0 |
0 |
if (not defined $pos and $tag =~ /(.*?)\[(\d+)\]$/) |
|
226
|
0 |
0 |
unless defined $o |
|
228
|
0 |
0 |
if $return_parent |
|
229
|
0 |
0 |
defined $pos ? : |
|
|
0 |
0 |
unless wantarray |
|
239
|
0 |
0 |
defined $pos ? : |
|
252
|
0 |
0 |
unless defined $pos |
|
253
|
0 |
0 |
unless $pos >= 0 |
|
255
|
0 |
0 |
unless $pos > 0 |
|
259
|
0 |
0 |
if ($pos == 1) { } |
|
266
|
0 |
0 |
unless defined(my $right = $o->right($pos - 2)) |
|
277
|
0 |
0 |
unless $_[0] =~ /^-/ |
|
285
|
0 |
0 |
if ($filled) |
|
286
|
0 |
0 |
unless my(@node) = $self->search($tag) |
|
288
|
0 |
0 |
if defined $_ |
|
289
|
0 |
0 |
wantarray ? : |
|
295
|
0 |
0 |
if (exists $$self{'.PATHS'}) |
|
298
|
0 |
0 |
if exists $$self{'.PATHS'}{$lctag} |
|
302
|
0 |
0 |
if $m |
|
305
|
0 |
0 |
if $tree = $$self{'.PATHS'}{lc $_} |
|
307
|
0 |
0 |
if ($tree) |
|
318
|
0 |
0 |
unless ($self->filled) |
|
323
|
0 |
0 |
if ($subobject) { } |
|
335
|
0 |
0 |
unless $_->isTag |
|
336
|
0 |
0 |
if (lc $_ eq $lctag) |
|
346
|
0 |
0 |
unless $_->isTag |
|
347
|
0 |
0 |
if (my $r = $_->search($tag)) |
|
361
|
0 |
0 |
unless $t |
|
363
|
0 |
0 |
if (defined $subtag) |
|
364
|
0 |
0 |
if ($subtag =~ /^\d+$/) { } |
|
367
|
0 |
0 |
if $t->isObject or defined $t->right and $t->right->isObject |
|
373
|
0 |
0 |
defined $pos ? : |
|
|
0 |
0 |
unless wantarray |
|
388
|
0 |
0 |
if (lc $subobject->right eq $lctag) { } |
|
399
|
0 |
0 |
if @_ and $self->isRoot |
|
419
|
0 |
0 |
unless $needs_escaping |
|
431
|
0 |
0 |
unless defined $pos |
|
432
|
0 |
0 |
unless $pos >= 0 |
|
436
|
0 |
0 |
unless defined($node = $node->right) |
|
445
|
0 |
0 |
unless defined $pos |
|
448
|
0 |
0 |
unless defined($node = $node->down) |
|
457
|
0 |
0 |
if defined $tag |
|
458
|
0 |
0 |
$self->isTag && defined $self->right ? : |
|
459
|
0 |
0 |
unless $thing_to_pick->isObject |
|
460
|
0 |
0 |
if $self->db |
|
471
|
0 |
0 |
unless $self->db |
|
472
|
0 |
0 |
unless $tag |
|
476
|
0 |
0 |
if ($filled) |
|
477
|
0 |
0 |
$filled =~ /^[a-zA-Z]/ ? : |
|
493
|
0 |
0 |
if $self->class eq 'tag' |
|
506
|
0 |
0 |
unless $self->db and $self->isObject |
|
542
|
0 |
0 |
if $self->filled |
|
543
|
0 |
0 |
unless $self->db and $self->isObject |
|
546
|
0 |
0 |
unless $data |
|
559
|
0 |
0 |
unless my $raw = $$self{'.raw'} |
|
568
|
0 |
0 |
unless $$raw[$r][$col] ne '' |
|
574
|
0 |
0 |
if (defined $obj_right) |
|
578
|
0 |
0 |
if $obj_right->isComment |
|
580
|
0 |
0 |
unless defined($obj_right = $self->_fromRaw($raw, $row++, $col + 1, $r - 1, $db)) |
|
587
|
0 |
0 |
if $ts and $timestamp |
|
597
|
0 |
0 |
if (defined $obj_right) |
|
601
|
0 |
0 |
if $obj_right->isComment |
|
603
|
0 |
0 |
unless defined($obj_right = $self->_fromRaw($raw, $row++, $col + 1, $$self{'.end_row'}, $db)) |
|
607
|
0 |
0 |
if $changed |
|
618
|
0 |
0 |
if ref $db |
|
619
|
0 |
0 |
unless defined $$raw[$start_row][$col] |
|
633
|
0 |
0 |
if defined $ts |
|
645
|
0 |
0 |
if ($tag =~ /(.*?)\[(\d+)\]$/) |
|
652
|
0 |
0 |
if lc $o eq lc $tag |
|
665
|
0 |
0 |
unless defined $class and defined $name |
|
666
|
0 |
0 |
$class eq 'date' ? : |
|
671
|
0 |
0 |
unless defined $_[0] |