| line |
true |
false |
branch |
|
27
|
13 |
0 |
unless defined &DB::DB |
|
28
|
11 |
2 |
unless defined $Class::Autouse::DEBUG |
|
114
|
0 |
1 |
if $Class::Autouse::DEVEL++ |
|
132
|
0 |
0 |
if $Class::Autouse::SUPERLOAD++ |
|
142
|
1 |
0 |
if $_[0] eq 'Class::Autouse' |
|
145
|
0 |
1 |
unless @_ |
|
151
|
0 |
1 |
unless (ref $callback eq 'CODE') |
|
171
|
2130 |
0 |
if $_[0] eq 'Class::Autouse' |
|
174
|
6 |
2124 |
unless @_ |
|
179
|
1157 |
971 |
if (ref $class) |
|
180
|
0 |
1157 |
unless (ref $class eq 'Regexp' or ref $class eq 'CODE') |
|
199
|
1 |
970 |
if (substr($class, 0, 1) eq ':') |
|
200
|
0 |
1 |
if ($class eq ':superloader') { } |
|
|
1 |
0 |
elsif ($class eq ':devel') { } |
|
|
0 |
0 |
elsif ($class eq ':nostat') { } |
|
|
0 |
0 |
elsif ($class eq ':noprebless') { } |
|
|
0 |
0 |
elsif ($class eq ':staticisa') { } |
|
221
|
0 |
970 |
if ($Class::Autouse::DEVEL or $Class::Autouse::BAD{$class}) |
|
228
|
378 |
592 |
if exists $INC{$file} |
|
229
|
0 |
592 |
unless ($Class::Autouse::NOSTAT or &_file_exists($file)) |
|
236
|
0 |
592 |
if $Class::Autouse::SUPERLOAD |
|
243
|
16 |
576 |
unless $Class::Autouse::HOOKS++ |
|
265
|
0 |
576 |
unless my $class = $_[1] |
|
266
|
0 |
576 |
if $Class::Autouse::LOADED{$class} |
|
272
|
121 |
454 |
wantarray ? : |
|
279
|
1 |
1 |
unless _namespace_occupied($_[1]) |
|
289
|
0 |
0 |
unless _namespace_occupied($_[1]) |
|
300
|
1 |
1 |
if $Class::Autouse::DEVEL |
|
303
|
0 |
1 |
if $Class::Autouse::SUPERLOAD |
|
336
|
0 |
121 |
unless my $method = $Class::Autouse::AUTOLOAD |
|
337
|
0 |
121 |
if ++$Class::Autouse::TRIED_METHOD{$method} > 10 |
|
341
|
0 |
121 |
if $Class::Autouse::SPECIAL{$class} |
|
350
|
64 |
57 |
if $found |
|
354
|
57 |
62 |
if (defined *{"${c}::AUTOLOAD";}{'CODE'}) |
|
371
|
0 |
241 |
unless my $method = $Class::Autouse::AUTOLOAD |
|
372
|
0 |
241 |
if ++$Class::Autouse::TRIED_METHOD{$method} > 10 |
|
376
|
0 |
241 |
if $Class::Autouse::SPECIAL{$class} |
|
379
|
0 |
241 |
if ($Class::Autouse::SUPERLOAD) |
|
387
|
241 |
0 |
unless (@search) |
|
390
|
236 |
5 |
if (_try_loaders($class, $function, @_)) |
|
392
|
120 |
116 |
if ($fref) { } |
|
402
|
0 |
121 |
if $found |
|
406
|
114 |
126 |
if (defined *{"${c}::AUTOLOAD";}{'CODE'}) |
|
415
|
3 |
0 |
if $rv |
|
430
|
0 |
423 |
if ref $_[0] and $Class::Autouse::NOPREBLESS |
|
434
|
196 |
426 |
unless ($Class::Autouse::TRIED_CLASS{$class} or $Class::Autouse::LOADED{$class}) |
|
444
|
0 |
12594 |
if ref $_[0] and $Class::Autouse::NOPREBLESS |
|
448
|
214 |
12582 |
unless ($Class::Autouse::TRIED_CLASS{$class} or $Class::Autouse::LOADED{$class}) |
|
467
|
3 |
2125 |
unless ($class and $class =~ /^[^\W\d]\w*(?:(?:\'|::)[^\W]\w*)*$/o) |
|
474
|
453 |
1672 |
if (defined $INC{$file} and $INC{$file} eq 'Class::Autouse') { } |
|
|
1672 |
0 |
elsif (not $Class::Autouse::SUPERLOAD) { } |
|
|
0 |
0 |
elsif (&_namespace_occupied($class)) { } |
|
492
|
453 |
1672 |
if $load |
|
494
|
1431 |
693 |
unless ($Class::Autouse::LOADED{$class}) |
|
496
|
38 |
1393 |
unless ($Class::Autouse::LOADED{$class}) |
|
497
|
1 |
37 |
if (&_namespace_occupied($class)) |
|
518
|
506 |
1166 |
if (&_namespace_occupied($class)) |
|
527
|
645621 |
0 |
if ($ref) { } |
|
528
|
275587 |
370034 |
if ($ref eq 'Regexp') { } |
|
|
370034 |
0 |
elsif ($ref eq 'CODE') { } |
|
529
|
275001 |
586 |
unless $class =~ /$loader/ |
|
531
|
27 |
559 |
unless grep {-e $_ . '/' . $file;} @INC |
|
535
|
0 |
559 |
if $@ |
|
538
|
369470 |
564 |
unless (&$loader($class, $function, @optional_args)) |
|
566
|
0 |
2204 |
if ($Class::Autouse::STATICISA) |
|
590
|
22 |
5437 |
if $seen{$c}++ |
|
594
|
597 |
4840 |
if ($load and not $Class::Autouse::LOADED{$c}) |
|
612
|
0 |
597 |
unless my $class = shift() |
|
615
|
0 |
597 |
if $Class::Autouse::SPECIAL{$class} |
|
619
|
596 |
1 |
if (defined $INC{$file}) { } |
|
|
0 |
1 |
elsif (not &_file_exists($file)) { } |
|
622
|
22 |
574 |
if ($INC{$file} ne 'Class::Autouse') |
|
635
|
0 |
0 |
if (&_namespace_occupied($class)) |
|
641
|
0 |
0 |
if (_try_loaders($class)) |
|
655
|
1 |
574 |
if $@ |
|
658
|
14 |
560 |
unless --$Class::Autouse::HOOKS |
|
674
|
0 |
2 |
unless my $inc_path = &List::Util::first(sub {
-f 'File::Spec'->catfile($_, $base_file);
}
, @INC) |
|
680
|
0 |
2 |
unless -d $child_path_full and -r _ |
|
691
|
0 |
3 |
unless opendir FILELIST, $full_dir |
|
702
|
1 |
4 |
if (-d $full_file and -r _) |
|
708
|
0 |
4 |
unless substr($file, length($file) - 3) eq '.pm' |
|
709
|
0 |
4 |
unless -f _ |
|
733
|
0 |
594 |
unless my $file = shift() |
|
734
|
0 |
594 |
if $file =~ /(?:\012|\015)/o |
|
737
|
1 |
593 |
if $file =~ /::/o |
|
741
|
0 |
604 |
if ref $_ eq 'CODE' |
|
742
|
593 |
11 |
if -f 'File::Spec'->catfile($_, $file) |
|
753
|
0 |
1712 |
unless my $class = shift() |
|
754
|
327 |
1385 |
if @{"${class}::ISA";} |
|
758
|
2 |
1512 |
if substr($_, -2) eq '::' |
|
761
|
181 |
1331 |
if (defined *{"${class}::$_";}{'CODE'}) |
|
762
|
0 |
181 |
if ($_ eq 'AUTOLOAD' and \&{"${class}::$_";} == \&_AUTOLOAD) |
|
789
|
439 |
7 |
if (@call) |
|
790
|
5 |
88 |
if $call[3] eq '(eval)' |
|
791
|
21 |
434 |
if $call[3] =~ /^Class::Autouse::\w+\z/ |
|
796
|
449 |
83 |
$spaces ? : |
|
813
|
91 |
0 |
defined $_ ? : |
|
|
9 |
64 |
if $method |
|
|
71 |
2 |
@mapped ? : |
|
|
73 |
2 |
if (ref $args) |
|
844
|
103 |
16 |
$Class::Autouse::HOOKS ? : |
|
845
|
21 |
14 |
$Class::Autouse::HOOKS ? : |
|
850
|
1152 |
6 |
if \&UNIVERSAL::AUTOLOAD == \&_UNIVERSAL_AUTOLOAD |
|
862
|
5 |
1 |
unless $Class::Autouse::HOOKS++ |
|
869
|
13 |
0 |
if ($@) { } |
|
872
|
0 |
13 |
if $ENV{'MOD_PERL'} |
|
878
|
0 |
0 |
if $@ |