| line |
true |
false |
branch |
|
13
|
196 |
176 |
$_[1] ? : |
|
|
372 |
259 |
$_[0] ? : |
|
15
|
18 |
1 |
keys %{_all($_[0]);} ? : |
|
25
|
12 |
25 |
$options->{'recursive'} ? : |
|
26
|
6 |
146 |
unless $$file =~ s/\.pm$//u |
|
37
|
109 |
164 |
/^(.+)::$/u ? : |
|
44
|
7 |
996 |
unless ($class || '') =~ /^\w(?:[\w:']*\w)?$/u |
|
47
|
878 |
118 |
if $class->can("new") or eval "require $class; 1" |
|
50
|
106 |
12 |
if $@ =~ /^Can't locate \Q@{[class_to_path($class)];}\E in \@INC/u |
|
61
|
13 |
1 |
unless my $e = load_class($module) |
|
62
|
1 |
13 |
if ref $e |
|
71
|
295 |
96 |
if $CACHE{$class} |
|
74
|
59 |
37 |
unless fileno $handle |
|
91
|
2 |
153 |
$name =~ s/\s*\(\s*base64\s*\)$//u && ++$BIN{$class}{$name} ? : |