Branch Coverage

blib/lib/Net/Server/MultiType.pm
Criterion Covered Total %
branch 9 30 30.0


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)