| line |
true |
false |
branch |
|
275
|
0 |
0 |
if ($App::trace) |
|
286
|
0 |
0 |
if ($subroutine =~ /^(.*)::([^:]+)$/) |
|
292
|
0 |
0 |
if ($#_ >= 0) |
|
294
|
0 |
0 |
if ($class) { } |
|
296
|
0 |
0 |
if $class ne 'ARRAY' and $class ne 'HASH' |
|
300
|
0 |
0 |
if ($class =~ /^[A-Z][A-Za-z0-9_:]*$/ and $class->isa($package)) { } |
|
309
|
0 |
0 |
if (%App::scope) |
|
310
|
0 |
0 |
if ($App::scope_exclusive) { } |
|
311
|
0 |
0 |
if $App::scope{$package} or $App::scope{"$package.$sub"} |
|
314
|
0 |
0 |
unless $App::scope{$package} or $App::scope{"$package.$sub"} |
|
318
|
0 |
0 |
if ($method) { } |
|
319
|
0 |
0 |
if (ref $obj) { } |
|
320
|
0 |
0 |
if ($obj->isa('App::Service')) { } |
|
330
|
0 |
0 |
$class eq $package ? : |
|
341
|
0 |
0 |
if $narg > $firstarg |
|
342
|
0 |
0 |
if (not defined $_[$narg]) { } |
|
|
0 |
0 |
elsif (ref $_[$narg] eq '') { } |
|
|
0 |
0 |
elsif (ref $_[$narg] eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $_[$narg] eq 'HASH') { } |
|
349
|
0 |
0 |
defined $_ ? : |
|
352
|
0 |
0 |
defined $_ ? : |
|
363
|
0 |
0 |
if ($App::trace_width) { } |
|
364
|
0 |
0 |
if ($text_len + $trailer_len > $App::trace_width) { } |
|
|
0 |
0 |
elsif ($App::trace_justify) { } |
|
366
|
0 |
0 |
if $len < 1 |
|
371
|
0 |
0 |
if $len < 0 |
|
401
|
0 |
0 |
if ($App::trace) |
|
412
|
0 |
0 |
if ($subroutine =~ /^(.*)::([^:]+)$/) |
|
417
|
0 |
0 |
if %App::scope and not $App::scope{$package} and not $App::scope{"$package.$sub"} |
|
423
|
0 |
0 |
$narg ? : |
|
425
|
0 |
0 |
if (not defined $arg) { } |
|
|
0 |
0 |
elsif (ref $arg eq '') { } |
|
|
0 |
0 |
elsif (ref $arg eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $arg eq 'HASH') { } |
|
432
|
0 |
0 |
defined $_ ? : |
|
435
|
0 |
0 |
defined $_ ? : |
|
438
|
0 |
0 |
defined $arg ? : |
|
442
|
0 |
0 |
if ($App::trace_width and length $text > $App::trace_width) { } |
|
482
|
0 |
0 |
if ($App::debug) |
|
493
|
0 |
0 |
if ($subroutine =~ /^(.*)::([^:]+)$/) |
|
498
|
0 |
0 |
if (%App::scope) |
|
499
|
0 |
0 |
if ($App::scope_exclusive) { } |
|
500
|
0 |
0 |
if $App::scope{$package} or $App::scope{"$package.$sub"} |
|
503
|
0 |
0 |
unless $App::scope{$package} or $App::scope{"$package.$sub"} |