| line |
true |
false |
branch |
|
408
|
0 |
33 |
if $App::trace |
|
411
|
31 |
2 |
unless (defined $used{$class}) |
|
420
|
2 |
29 |
if (%{*{"${class}::";};}) { } |
|
|
29 |
0 |
elsif ($class =~ /^([A-Za-z0-9_:]+)$/) { } |
|
425
|
2 |
27 |
if ($@) |
|
437
|
0 |
31 |
if $trace |
|
442
|
0 |
0 |
if $App::trace |
|
446
|
0 |
0 |
if ($dir) |
|
447
|
0 |
0 |
unless -d $dir |
|
450
|
0 |
0 |
unless -d $dir |
|
453
|
0 |
0 |
if $App::trace |
|
478
|
0 |
0 |
if $narg |
|
479
|
0 |
0 |
if (ref $_[$narg] eq '') { } |
|
|
0 |
0 |
elsif (ref $_[$narg] eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $_[$narg] eq 'HASH') { } |
|
484
|
0 |
0 |
if ($depth <= 1) { } |
|
494
|
0 |
0 |
if ($depth <= 1) { } |
|
549
|
0 |
19 |
if $App::trace |
|
551
|
0 |
19 |
if ($#_ == -1) |
|
553
|
0 |
0 |
if $App::trace |
|
557
|
19 |
0 |
if ($class =~ /^([A-Za-z0-9:_]+)$/) |
|
559
|
19 |
0 |
unless ($used{$class}) |
|
562
|
19 |
0 |
$#_ > -1 ? : |
|
563
|
0 |
19 |
if (wantarray) { } |
|
565
|
0 |
0 |
if $App::trace |
|
570
|
0 |
19 |
if $App::trace |
|
575
|
0 |
0 |
if $App::trace |
|
640
|
0 |
8 |
if $App::trace |
|
644
|
3 |
5 |
if ($#_ == -1) { } |
|
645
|
1 |
2 |
%App::options ? : |
|
649
|
0 |
5 |
if (ref $_[0] eq 'HASH') { } |
|
656
|
0 |
5 |
if $#_ % 2 == 0 |
|
657
|
5 |
0 |
$#_ > -1 ? : |
|
659
|
5 |
0 |
unless $name |
|
660
|
5 |
0 |
unless $name |
|
663
|
6 |
2 |
unless (defined $context{$name}) |
|
665
|
5 |
1 |
unless ($$options{'context_class'}) |
|
666
|
0 |
5 |
if (defined $ENV{'APP_CONTEXT_CLASS'}) { } |
|
670
|
0 |
5 |
if ($ENV{'MOD_PERL'}) { } |
|
|
0 |
5 |
elsif ($ENV{'HTTP_USER_AGENT'}) { } |
|
681
|
6 |
0 |
unless ($$options{'prefix'}) |
|
682
|
0 |
6 |
if ($ENV{'PREFIX'}) |
|
691
|
0 |
8 |
if $App::trace |
|
696
|
0 |
1 |
if $App::trace |
|
698
|
1 |
0 |
unless defined $name |
|
699
|
1 |
0 |
if defined $context{$name} |
|
701
|
0 |
1 |
if $App::trace |
|
730
|
0 |
2 |
if $App::trace |
|
733
|
0 |
2 |
if $App::trace |
|
754
|
0 |
0 |
if $App::trace |
|
757
|
0 |
0 |
if $App::trace |
|
791
|
0 |
0 |
if ($App::trace) |
|
802
|
0 |
0 |
if ($subroutine =~ /^(.*)::([^:]+)$/) |
|
808
|
0 |
0 |
if ($#_ >= 0) |
|
810
|
0 |
0 |
if ($class) { } |
|
812
|
0 |
0 |
if $class ne 'ARRAY' and $class ne 'HASH' |
|
816
|
0 |
0 |
if ($class =~ /^[A-Z][A-Za-z0-9_:]*$/ and $class->isa($package)) { } |
|
825
|
0 |
0 |
if (%App::scope) |
|
826
|
0 |
0 |
if ($App::scope_exclusive) { } |
|
827
|
0 |
0 |
if $App::scope{$package} or $App::scope{"$package.$sub"} |
|
830
|
0 |
0 |
unless $App::scope{$package} or $App::scope{"$package.$sub"} |
|
834
|
0 |
0 |
if ($method) { } |
|
835
|
0 |
0 |
if (ref $obj) { } |
|
836
|
0 |
0 |
if ($obj->isa('App::Service')) { } |
|
846
|
0 |
0 |
$class eq $package ? : |
|
857
|
0 |
0 |
if $narg > $firstarg |
|
858
|
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') { } |
|
865
|
0 |
0 |
defined $_ ? : |
|
868
|
0 |
0 |
defined $_ ? : |
|
879
|
0 |
0 |
if ($App::trace_width) { } |
|
880
|
0 |
0 |
if ($text_len + $trailer_len > $App::trace_width) { } |
|
|
0 |
0 |
elsif ($App::trace_justify) { } |
|
882
|
0 |
0 |
if $len < 1 |
|
887
|
0 |
0 |
if $len < 0 |
|
917
|
0 |
0 |
if ($App::trace) |
|
928
|
0 |
0 |
if ($subroutine =~ /^(.*)::([^:]+)$/) |
|
933
|
0 |
0 |
if %App::scope and not $App::scope{$package} and not $App::scope{"$package.$sub"} |
|
939
|
0 |
0 |
$narg ? : |
|
941
|
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') { } |
|
948
|
0 |
0 |
defined $_ ? : |
|
951
|
0 |
0 |
defined $_ ? : |
|
954
|
0 |
0 |
defined $arg ? : |
|
958
|
0 |
0 |
if ($App::trace_width and length $text > $App::trace_width) { } |
|
998
|
0 |
0 |
if ($App::debug) |
|
1009
|
0 |
0 |
if ($subroutine =~ /^(.*)::([^:]+)$/) |
|
1014
|
0 |
0 |
if (%App::scope) |
|
1015
|
0 |
0 |
if ($App::scope_exclusive) { } |
|
1016
|
0 |
0 |
if $App::scope{$package} or $App::scope{"$package.$sub"} |
|
1019
|
0 |
0 |
unless $App::scope{$package} or $App::scope{"$package.$sub"} |