| line |
true |
false |
branch |
|
31
|
3 |
0 |
unless ref $self |
|
34
|
0 |
3 |
if (defined $Perlilog::interface_rec) { } |
|
36
|
0 |
0 |
unless defined $name |
|
38
|
0 |
0 |
unless $name =~ /^[a-zA-Z_]\w*$/ |
|
43
|
0 |
3 |
unless defined $name |
|
45
|
0 |
3 |
unless $name =~ /^[a-zA-Z_]\w*$/ |
|
49
|
0 |
3 |
if exists $Perlilog::objects{$name} |
|
52
|
0 |
3 |
if lc $_ eq $lc |
|
57
|
0 |
3 |
if ref $papa |
|
70
|
0 |
0 |
if ref $papa |
|
80
|
0 |
0 |
unless $self->isobject($who) |
|
87
|
0 |
0 |
if Perlilog::definedclass($r) == 2 |
|
103
|
0 |
0 |
unless (defined $bulk) |
|
120
|
0 |
8 |
ref $prop ? : |
|
131
|
5 |
3 |
if (ref $final) |
|
132
|
1 |
4 |
if wantarray |
|
141
|
0 |
3 |
if wantarray |
|
163
|
0 |
4 |
if (ref $val eq 'HASH') { } |
|
|
0 |
4 |
elsif (ref $val eq 'ARRAY') { } |
|
177
|
4 |
4 |
ref $prop ? : |
|
183
|
0 |
8 |
if (defined $pre) { } |
|
184
|
0 |
0 |
unless ref $pre eq 'PL_const' |
|
193
|
0 |
0 |
if (ref $eq eq 'CODE') { } |
|
195
|
0 |
0 |
unless &{$eq;}($pre[$i], $newval[$i]) |
|
199
|
0 |
0 |
unless $pre[$i] eq $newval[$i] |
|
203
|
0 |
0 |
unless ($areeq) |
|
204
|
0 |
0 |
if ($#path == 2 and $path[0] eq 'vars' and $path[2] eq 'dim') { } |
|
226
|
0 |
8 |
if ($Perlilog::callbacksdepth) |
|
234
|
8 |
0 |
unless ref $cbref eq 'PL_settable' |
|
250
|
0 |
3 |
ref $prop ? : |
|
256
|
0 |
3 |
if defined $pre and $ppp ne 'PL_settable' |
|
266
|
11 |
0 |
if defined do {
$newval
}->[0] or $#{$newval;} > 0 |
|
268
|
11 |
0 |
if ($def) { } |
|
277
|
0 |
0 |
ref $prop ? : |
|
279
|
0 |
0 |
unless ref $eq eq 'CODE' |
|
287
|
0 |
0 |
ref $prop ? : |
|
290
|
0 |
0 |
if (not defined $self->get([@path])) { } |
|
302
|
1 |
0 |
if (defined $phase) |
|
303
|
1 |
0 |
if $phase eq 'noreg' |
|
304
|
0 |
0 |
if $phase eq 'begin' |
|
305
|
0 |
0 |
if $phase eq 'end' |
|
313
|
0 |
0 |
ref $prop ? : |
|
315
|
0 |
0 |
if (ref $pre eq 'PL_settable') { } |
|
318
|
0 |
0 |
if defined $pre |
|
327
|
0 |
0 |
ref $prop ? : |
|
329
|
0 |
0 |
if (ref $pre eq 'PL_settable') { } |
|
332
|
0 |
0 |
if defined $pre |
|
341
|
0 |
0 |
ref $prop ? : |
|
346
|
0 |
0 |
if (ref $pre eq 'PL_settable') { } |
|
349
|
0 |
0 |
defined $pre ? : |
|
356
|
0 |
0 |
ref $prop ? : |
|
361
|
0 |
0 |
if (ref $pre eq 'PL_settable') { } |
|
364
|
0 |
0 |
defined $pre ? : |
|
374
|
0 |
0 |
if $papa->get('static') |
|
389
|
0 |
0 |
if (not @_) { } |
|
399
|
0 |
0 |
unless ($self->isobject($obj)) |
|
401
|
0 |
0 |
if (defined $r) { } |
|
414
|
0 |
0 |
if $path[0] eq 'plPROP' |
|
424
|
0 |
0 |
unless ($#path < $#prefix) |
|
428
|
0 |
0 |
if ($prefix[$i] ne $path[$i]) |
|
432
|
0 |
0 |
if $last |
|
452
|
0 |
0 |
ref $valref ? : |
|
473
|
0 |
0 |
if (@a > $MaxListToPrint) |
|
480
|
0 |
0 |
unless defined $_ |
|
481
|
0 |
0 |
if (ref $_) { } |
|
482
|
0 |
0 |
if ($Perlilog::classes{ref $_}) |
|
493
|
0 |
0 |
if $MaxStrLen and $MaxStrLen < length $_ |
|
497
|
0 |
0 |
unless /^-?[\d.]+$/ |
|
505
|
0 |
0 |
$#a != 0 ? : |
|
531
|
0 |
0 |
unless $self->isobject($next) |
|
536
|
0 |
0 |
if ($beenthere{$next}) |
|
571
|
0 |
0 |
unless $self->isobject($child) |
|
578
|
0 |
0 |
unless ($reflection eq $self) |
|
590
|
0 |
0 |
unless $child eq $Perlilog::objects{$child->get('name')} |
|
617
|
0 |
0 |
if (ref $papa) |
|
628
|
0 |
0 |
unless ref do {
$tpr
}->{$_} |