| line |
true |
false |
branch |
|
13
|
200 |
178 |
$_[1] ? : |
|
|
378 |
268 |
$_[0] ? : |
|
15
|
20 |
1 |
keys %{_all($_[0]);} ? : |
|
25
|
12 |
25 |
$options->{'recursive'} ? : |
|
26
|
6 |
146 |
unless $$file =~ s/\.pm$//u |
|
37
|
109 |
164 |
/^(.+)::$/u ? : |
|
44
|
7 |
1007 |
unless ($class || '') =~ /^\w(?:[\w:']*\w)?$/u |
|
47
|
887 |
120 |
if $class->can("new") or eval "require $class; 1" |
|
50
|
108 |
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
|
302 |
97 |
if $CACHE{$class} |
|
74
|
59 |
38 |
unless fileno $handle |
|
91
|
3 |
157 |
$name =~ s/\s*\(\s*base64\s*\)$//u && ++$BIN{$class}{$name} ? : |