| line |
true |
false |
branch |
|
35
|
0 |
3 |
ref $_[0] ? : |
|
36
|
0 |
3 |
@_ == 1 ? : |
|
40
|
0 |
3 |
unless (defined $prop->{'server_type'} and @{$prop->{'server_type'};}) |
|
41
|
0 |
0 |
if (my $ref = $self->can('default_server_type') && $self->default_server_type) |
|
42
|
0 |
0 |
ref $ref ? : |
|
45
|
0 |
3 |
unless $prop->{'server_type'} |
|
46
|
0 |
3 |
if $type eq "MultiType" |
|
47
|
3 |
0 |
$type =~ /^(\w+)$/ ? : |
|
49
|
0 |
3 |
$type =~ /::/ ? : |
|
52
|
0 |
3 |
if ($@) |
|
58
|
0 |
3 |
if ($pkg->isa("Net::Server::MultiType")) |
|
60
|
0 |
0 |
$type =~ /^(\w+)$/ ? : |
|
61
|
0 |
0 |
$type =~ /::/ ? : |
|
64
|
0 |
0 |
unless eval {
do {
require $file
}
} |
|
65
|
0 |
0 |
if $_pkg->isa($pkg) |