| line |
true |
false |
branch |
|
131
|
0 |
0 |
if (not defined $_[0] or ref $_[0])
|
|
135
|
0 |
0 |
unless $src
|
|
137
|
0 |
0 |
if ($log_file) { }
|
|
139
|
0 |
0 |
unless open my $fh, ">>", $log_file
|
|
140
|
0 |
0 |
$src ? :
|
|
145
|
0 |
0 |
$src ? :
|
|
164
|
0 |
0 |
if ($debug1)
|
|
167
|
0 |
0 |
if $debug1
|
|
177
|
0 |
0 |
$req->is_dap ? :
|
|
181
|
0 |
0 |
if ($method =~ m[^(\w+)/(\w+)$]u) { }
|
|
|
0 |
0 |
elsif ($method =~ /^(\w+)$/u) { }
|
|
|
0 |
0 |
elsif ($method =~ m[^\$/(\w+)$]u) { }
|
|
198
|
0 |
0 |
$req->type eq 'dbgint' ? :
|
|
|
0 |
0 |
if $req->is_dap
|
|
202
|
0 |
0 |
if $module
|
|
206
|
0 |
0 |
unless (exists $INC{$fn} and exists $self->roles->{$fn})
|
|
215
|
0 |
0 |
if ($req->is_dap) { }
|
|
221
|
0 |
0 |
defined $id ? :
|
|
223
|
0 |
0 |
if $debug1
|
|
224
|
0 |
0 |
unless $self->can($perlmethod)
|
|
243
|
0 |
0 |
if $debug1
|
|
249
|
0 |
0 |
$type ? :
|
|
250
|
0 |
0 |
defined $id ? :
|
|
|
0 |
0 |
unless $type
|
|
251
|
0 |
0 |
if $debug1
|
|
252
|
0 |
0 |
$is_dap ? :
|
|
261
|
0 |
0 |
unless $rsp
|
|
262
|
0 |
0 |
if ($req->is_dap) { }
|
|
264
|
0 |
0 |
$rsp ? :
|
|
268
|
0 |
0 |
if $rsp
|
|
270
|
0 |
0 |
if $outjson
|
|
272
|
0 |
0 |
if ($@)
|
|
275
|
0 |
0 |
if ($req->is_dap) { }
|
|
283
|
0 |
0 |
if $outjson
|
|
286
|
0 |
0 |
if (defined $id)
|
|
297
|
0 |
0 |
if $cnt <= 0
|
|
301
|
0 |
0 |
if ($debug1)
|
|
327
|
0 |
0 |
if $debug2
|
|
328
|
0 |
0 |
if ($loop)
|
|
331
|
0 |
0 |
if $debug2
|
|
332
|
0 |
0 |
if $cnt < 0
|
|
333
|
0 |
0 |
if $cnt == 0
|
|
339
|
0 |
0 |
if $debug2
|
|
340
|
0 |
0 |
if $line eq ""
|
|
341
|
0 |
0 |
if $line =~ /(.+?):\s*(.+)/d
|
|
347
|
0 |
0 |
if $len == 0
|
|
355
|
0 |
0 |
if $cnt < 0
|
|
356
|
0 |
0 |
if $cnt == 0
|
|
358
|
0 |
0 |
if ($len == length $buffer) { }
|
|
|
0 |
0 |
elsif ($len < length $buffer) { }
|
|
372
|
0 |
0 |
if $debug2
|
|
373
|
0 |
0 |
if $debug2
|
|
376
|
0 |
0 |
if $data
|
|
377
|
0 |
0 |
if ($debug1)
|
|
381
|
0 |
0 |
$reqdata->{'type'} ? :
|
|
396
|
0 |
0 |
if ($listen_port)
|
|
420
|
0 |
0 |
if $quit
|
|
422
|
0 |
0 |
if $@
|
|
423
|
0 |
0 |
if ($fh)
|
|
428
|
0 |
0 |
if ($quit or $exit)
|
|
437
|
0 |
0 |
if (not $@) { }
|
|
446
|
0 |
0 |
if (not $guard and $@ =~ /Address already in use/u)
|
|
452
|
0 |
0 |
if $fh
|
|
474
|
0 |
0 |
if ($opt eq '--debug') { }
|
|
|
0 |
0 |
elsif ($opt eq '--log-level') { }
|
|
|
0 |
0 |
elsif ($opt eq '--log-file') { }
|
|
|
0 |
0 |
elsif ($opt eq '--port') { }
|
|
|
0 |
0 |
elsif ($opt eq '--nostdio') { }
|
|
|
0 |
0 |
elsif ($opt eq '--heartbeat') { }
|
|
|
0 |
0 |
elsif ($opt eq '--version') { }
|
|
481
|
0 |
0 |
$debug1 > 1 ? :
|
|
514
|
0 |
0 |
if ($heartbeat or $debug2)
|
|
524
|
0 |
0 |
unless ($no_stdio)
|