| line |
true |
false |
branch |
|
51
|
2 |
0 |
if Lim::OBJ_DEBUG() |
|
57
|
2 |
0 |
if Lim::OBJ_DEBUG() |
|
87
|
0 |
12 |
if (exists $$self{'protocol'}{$module}) |
|
88
|
0 |
0 |
if Lim::WARN() |
|
92
|
12 |
0 |
if ($module =~ /^([\w:]+)$/ou) { } |
|
102
|
4 |
8 |
if $@ |
|
106
|
4 |
8 |
if ($@) |
|
107
|
4 |
0 |
if Lim::WARN() |
|
116
|
0 |
8 |
unless ($name =~ /^[a-z0-9_\-\.]+$/ou) |
|
117
|
0 |
0 |
if Lim::WARN() |
|
126
|
0 |
8 |
if (exists $$self{'protocol_name'}{$name}) |
|
127
|
0 |
0 |
if Lim::WARN() |
|
151
|
2 |
0 |
if (defined $name) |
|
155
|
2 |
5 |
if ($$self{'protocol'}{$_}{'loaded'} and $$self{'protocol'}{$_}{'name'} eq $name) |
|
161
|
2 |
0 |
if (defined $module) |
|
166
|
0 |
2 |
if ($@) { } |
|
167
|
0 |
0 |
if Lim::WARN() |