| line |
true |
false |
branch |
|
143
|
2578 |
15751 |
if ($c eq '"') { } |
|
|
512 |
15239 |
elsif ($c eq '#' and not $in_string) { } |
|
|
1219 |
14020 |
elsif ($c =~ /\s/s and not $in_string and defined $proto) { } |
|
145
|
1249 |
1329 |
if defined $proto or $in_string |
|
161
|
1006 |
13014 |
if $c =~ /\s/s and not $in_string |
|
167
|
80 |
678 |
if ($in_string) |
|
169
|
80 |
0 |
wantarray ? : |
|
175
|
143 |
535 |
if defined $proto |
|
178
|
60 |
618 |
unless (@tok) |
|
180
|
60 |
0 |
wantarray ? : |
|
188
|
4 |
614 |
unless (*{'DNS::BL' . "::cmds::${verb}::execute";}{'CODE'}) |
|
191
|
1 |
3 |
if ($@) |
|
193
|
1 |
0 |
wantarray ? : |
|
198
|
617 |
0 |
if (*{'DNS::BL' . "::cmds::${verb}::execute";}{'CODE'}) |
|
205
|
0 |
0 |
wantarray ? : |
|
287
|
36 |
2 |
unless $_[0]{'k'}{'_read'} |
|
288
|
6 |
2 |
unless $_[0]{'k'}{'_match'} |
|
289
|
6 |
2 |
unless $_[0]{'k'}{'_write'} |
|
290
|
4 |
2 |
unless $_[0]{'k'}{'_erase'} |
|
291
|
4 |
2 |
unless $_[0]{'k'}{'_commit'} |
|
292
|
46 |
10 |
wantarray ? : |
|
304
|
0 |
0 |
if (@_) { } |
|
313
|
0 |
0 |
wantarray ? : |