| line |
true |
false |
branch |
|
31
|
2 |
0 |
unless ref $self |
|
37
|
2 |
0 |
if (defined $name) { } |
|
38
|
0 |
2 |
unless $name =~ /^[a-zA-Z_]\w*$/ |
|
41
|
0 |
2 |
if exists $Eobj::objects{$name} |
|
45
|
0 |
1 |
if lc $_ eq $lc |
|
79
|
0 |
0 |
unless $self->isobject($who) |
|
86
|
0 |
0 |
if Eobj::definedclass($r) == 2 |
|
102
|
0 |
0 |
unless (defined $bulk) |
|
119
|
0 |
7 |
ref $prop eq 'ARRAY' ? : |
|
130
|
7 |
0 |
if (ref $final) |
|
131
|
0 |
7 |
if wantarray |
|
140
|
0 |
0 |
if wantarray |
|
162
|
0 |
2 |
if (ref $val eq 'HASH') { } |
|
|
0 |
2 |
elsif (ref $val eq 'ARRAY') { } |
|
176
|
2 |
2 |
ref $prop eq 'ARRAY' ? : |
|
182
|
0 |
4 |
if (defined $pre) { } |
|
183
|
0 |
0 |
unless ref $pre eq 'PL_const' |
|
192
|
0 |
0 |
if (ref $eq eq 'CODE') { } |
|
194
|
0 |
0 |
unless &{$eq;}($pre[$i], $newval[$i]) |
|
198
|
0 |
0 |
unless $pre[$i] eq $newval[$i] |
|
202
|
0 |
0 |
unless ($areeq) |
|
203
|
0 |
0 |
if ($#path == 2 and $path[0] eq 'vars' and $path[2] eq 'dim') { } |
|
225
|
0 |
4 |
if ($Eobj::callbacksdepth) |
|
233
|
4 |
0 |
unless ref $cbref eq 'PL_settable' |
|
249
|
0 |
0 |
ref $prop eq 'ARRAY' ? : |
|
255
|
0 |
0 |
if defined $pre and $ppp ne 'PL_settable' |
|
265
|
4 |
0 |
if defined ${$newval;}[0] or $#{$newval;} > 0 |
|
267
|
4 |
0 |
if ($def) { } |
|
276
|
0 |
0 |
ref $prop eq 'ARRAY' ? : |
|
278
|
0 |
0 |
unless ref $eq eq 'CODE' |
|
286
|
0 |
0 |
ref $prop eq 'ARRAY' ? : |
|
289
|
0 |
0 |
if (not defined $self->get([@path])) { } |
|
301
|
0 |
0 |
ref $prop eq 'ARRAY' ? : |
|
303
|
0 |
0 |
if (ref $pre eq 'PL_settable') { } |
|
306
|
0 |
0 |
if defined $pre |
|
315
|
0 |
0 |
ref $prop eq 'ARRAY' ? : |
|
317
|
0 |
0 |
if (ref $pre eq 'PL_settable') { } |
|
320
|
0 |
0 |
if defined $pre |
|
329
|
0 |
0 |
ref $prop eq 'ARRAY' ? : |
|
334
|
0 |
0 |
if (ref $pre eq 'PL_settable') { } |
|
337
|
0 |
0 |
defined $pre ? : |
|
344
|
0 |
0 |
ref $prop eq 'ARRAY' ? : |
|
349
|
0 |
0 |
if (ref $pre eq 'PL_settable') { } |
|
352
|
0 |
0 |
defined $pre ? : |
|
369
|
0 |
0 |
if (not @_) { } |
|
379
|
0 |
0 |
unless ($self->isobject($obj)) |
|
381
|
0 |
0 |
if (defined $r) { } |
|
394
|
0 |
0 |
if $path[0] eq 'plPROP' |
|
404
|
0 |
0 |
unless ($#path < $#prefix) |
|
408
|
0 |
0 |
if ($prefix[$i] ne $path[$i]) |
|
412
|
0 |
0 |
if $last |
|
432
|
0 |
0 |
ref $valref ? : |
|
453
|
0 |
0 |
if (@a > $MaxListToPrint) |
|
460
|
0 |
0 |
unless defined $_ |
|
461
|
0 |
0 |
if (ref $_) { } |
|
462
|
0 |
0 |
if ($Eobj::classes{ref $_}) |
|
473
|
0 |
0 |
if $MaxStrLen and $MaxStrLen < length $_ |
|
477
|
0 |
0 |
unless /^-?[\d.]+$/ |
|
485
|
0 |
0 |
$#a != 0 ? : |