| line |
true |
false |
branch |
|
13
|
200 |
185 |
$_[1] ? : |
|
|
385 |
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 |
1025 |
unless ($class || '') =~ /^\w(?:[\w:']*\w)?$/u |
|
45
|
0 |
1025 |
if $class =~ /'/u |
|
50
|
907 |
118 |
if $class->can("new") or eval "require $class; 1" |
|
53
|
106 |
12 |
if $@ =~ /^Can't locate \Q@{[class_to_path($class)];}\E in \@INC/u |
|
64
|
13 |
1 |
unless my $e = load_class($module) |
|
65
|
1 |
13 |
if ref $e |
|
74
|
302 |
104 |
if $CACHE{$class} |
|
77
|
66 |
38 |
unless fileno $handle |
|
94
|
3 |
157 |
$name =~ s/\s*\(\s*base64\s*\)$//u && ++$BIN{$class}{$name} ? : |