| line |
true |
false |
branch |
|
134
|
0 |
10 |
unless my $proto = $arg_for->{'class'} |
|
136
|
0 |
10 |
if (exists $arg_for->{'ignore'} and 'Regexp' ne ref $arg_for->{'ignore'}) |
|
232
|
0 |
2 |
unless my $namespace = delete $arg_for->{'namespace'} |
|
235
|
2 |
0 |
'Regexp' eq ref $namespace ? : |
|
239
|
0 |
2 |
if (defined $ignore) |
|
240
|
0 |
0 |
'Regexp' eq ref $ignore ? : |
|
250
|
0 |
685 |
if $seen{$symbol_name}++ |
|
251
|
7 |
678 |
if ($symbol_name =~ /$namespace/) |
|
252
|
0 |
7 |
if defined $ignore and $symbol_name =~ /$ignore/ |
|
255
|
5 |
2 |
unless ($class->_is_real_package($symbol_name)) |
|
287
|
1 |
0 |
@sniffs ? : |
|
318
|
26 |
33 |
if exists $self->{'classes'}{$class} |
|
325
|
0 |
69 |
unless my $coderef = $class->can($method) |
|
328
|
2 |
67 |
if ($package ne $class) { } |
|
339
|
1 |
65 |
if ($length > $self->method_length) |
|
396
|
9 |
16 |
if @$classes > 1 |
|
456
|
0 |
3 |
if @paths == 1 |
|
472
|
5 |
16 |
if ($method_found) |
|
477
|
11 |
26 |
if $curr_class eq $class |
|
478
|
13 |
13 |
unless ($method_found and $curr_class->can($method)) |
|
542
|
26 |
21 |
unless @_ |
|
611
|
2 |
2 |
if (@$methods > 1) |
|
702
|
1 |
17 |
unless (exists $self->{'classes'}{$class}) |
|
758
|
1 |
0 |
if ($report) |
|
771
|
1 |
0 |
if (@duplicate) |
|
789
|
1 |
0 |
if (%$overridden) |
|
805
|
1 |
0 |
if (my(@unreachable) = $self->unreachable) |
|
821
|
1 |
0 |
if (my(@multis) = $self->multiple_inheritance) |
|
833
|
1 |
0 |
if (my(@classes) = sort(keys %$exported)) |
|
841
|
1 |
0 |
if length $class > $longest_c |
|
842
|
0 |
1 |
if length $sub > $longest_m |
|
849
|
0 |
1 |
if $longest_c > $third |
|
850
|
0 |
1 |
if $longest_m > $third |
|
869
|
1 |
0 |
if (my(@methods) = sort(keys %long_methods)) |
|
883
|
0 |
5 |
unless (@$strings1 == @$strings2) |
|
902
|
4 |
4 |
if $length > $longest |
|
904
|
0 |
5 |
if $longest > $width / 2 |
|
918
|
6 |
10 |
unless @_ |
|
920
|
0 |
10 |
unless ($number =~ /^\d+$/ and $number >= 40) |
|
981
|
0 |
1 |
unless ($sniff->isa(ref $self)) |
|
1079
|
1 |
3 |
unless (exists $self->{'classes'}{$class}) |
|
1103
|
4 |
3 |
unless (exists $self->{'classes'}{$class}) |
|
1111
|
14 |
87 |
if $class eq 'UNIVERSAL' or not $self->_is_real_package($class) |
|
1115
|
0 |
87 |
if ($self->universal and not @parents) |
|
1118
|
7 |
80 |
if (my $ignore = $self->ignore) |
|
1128
|
0 |
108 |
if 'UNIVERSAL' eq $class |
|
1130
|
19 |
89 |
unless eval {
do {
scalar grep({defined *{$_;}{'CODE'};} values %{"${class}::";}) unless defined *{do {
"${class}::"
}->{'ISA'};}{'ARRAY'}
}
} |
|
1132
|
0 |
89 |
unless defined *{do {
"${class}::"
}->{'ISA'};}{'ARRAY'} |
|
1140
|
4 |
34 |
if (my $ignore = $self->ignore) |
|
1141
|
0 |
4 |
if $class =~ /$ignore/ |
|
1143
|
4 |
34 |
if ($self->clean) |
|
1144
|
0 |
4 |
if $class =~ /::(?:SUPER|ISA::CACHE)$/ |
|
1146
|
17 |
21 |
unless my(@parents) = $self->_get_parents($class) |
|
1169
|
21 |
12 |
if ($path->[-1] eq $class) { } |
|
1171
|
0 |
28 |
if (grep {$parent eq $_;} @$path) |
|
1184
|
21 |
0 |
if $do_chg |
|
1194
|
23 |
5 |
unless grep {$_ eq $parent;} @{$$self{'list_classes'};} |
|
1217
|
27 |
1 |
unless (grep {$child eq $_;} @$children) |