| line |
true |
false |
branch |
|
139
|
15 |
0 |
unless ($method eq 'error') |
|
145
|
0 |
15 |
!$error && $r && $r->can('process_request_method') && $r->process_request_method(\&handle_request_body) ? : |
|
153
|
0 |
30 |
if ($request_data{'request_parts'}) |
|
157
|
0 |
0 |
unless $$part{'fh'} |
|
263
|
0 |
15 |
if (defined $arg) |
|
265
|
0 |
0 |
if ($arg) { } |
|
288
|
0 |
45 |
if (defined $arg) |
|
290
|
0 |
0 |
if ($arg) { } |
|
361
|
2 |
15 |
if ($status) { } |
|
392
|
0 |
0 |
if ($request_data{'request_parts'}) |
|
396
|
0 |
0 |
if $lookup_key eq $$part{'name'} |
|
400
|
0 |
0 |
unless @values |
|
401
|
0 |
0 |
scalar @values == 1 ? : |
|
418
|
0 |
0 |
if ($request_data{'request_parts'}) { } |
|
423
|
0 |
0 |
if $$part{'fh'} |
|
425
|
0 |
0 |
if ($lookup_key) { } |
|
427
|
0 |
0 |
if $lookup_key eq $$part{'name'} |
|
432
|
0 |
0 |
if $seen_hash{$$part{'name'}}++ |
|
444
|
0 |
0 |
if ($lookup_key) { } |
|
446
|
0 |
0 |
if $lookup_key eq $key |
|
451
|
0 |
0 |
if $seen_hash{$key}++ |
|
457
|
0 |
0 |
unless @values |
|
459
|
0 |
0 |
scalar @values == 1 ? : |
|
476
|
0 |
0 |
if $param_hash{$key} |
|
480
|
0 |
0 |
if (scalar @params == 1) { } |
|
508
|
0 |
0 |
unless $request_data{'request_parts'} |
|
525
|
0 |
0 |
unless $request_data{'post_args'} |
|
533
|
0 |
5 |
unless $request_data{'post_args'} |
|
541
|
0 |
0 |
if (ref $r ne $request_meta_data{'server_class'}) |
|
551
|
0 |
0 |
if (not $r->args and substr($request_body, 0, 1) ne '{' and index($request_body, "\n") == -1) { } |
|
560
|
0 |
0 |
if substr($request_body, 0, 1) eq '-' |
|
588
|
15 |
0 |
$bless ? : |
|
591
|
15 |
0 |
if (UNIVERSAL::can($class, $method)) { } |
|
597
|
0 |
15 |
if (UNIVERSAL::can($init_class, 'init') and not $method eq 'error') |
|
602
|
0 |
0 |
if ($bless) { } |
|
613
|
0 |
0 |
if ($@ and $@ ne "drogo-exit\n") |
|
615
|
0 |
0 |
if ($method eq 'error') |
|
638
|
0 |
0 |
if ($bless) { } |
|
649
|
0 |
0 |
if ($@ and $@ ne "drogo-exit\n") { } |
|
651
|
0 |
0 |
if ($method eq 'error') |
|
661
|
0 |
0 |
if 'Drogo::Guts'->auto_header and 'Drogo::Guts'->dispatching |
|
675
|
15 |
0 |
if ('Drogo::Guts'->dispatching) |
|
682
|
0 |
15 |
if $error |
|
684
|
15 |
0 |
if ($bless) { } |
|
694
|
0 |
15 |
if ($@ and $@ ne "drogo-exit\n") { } |
|
696
|
0 |
0 |
if ($method eq 'error') |
|
719
|
0 |
0 |
if ($bless) { } |
|
730
|
0 |
0 |
if ($@ and $@ ne "drogo-exit\n") { } |
|
732
|
0 |
0 |
if ($method eq 'error') |
|
742
|
0 |
0 |
if 'Drogo::Guts'->auto_header and 'Drogo::Guts'->dispatching |
|
755
|
15 |
0 |
if 'Drogo::Guts'->auto_header and 'Drogo::Guts'->dispatching |
|
760
|
15 |
0 |
if (UNIVERSAL::can($cleanup_class, 'cleanup') and $method ne 'error' and 'Drogo::Guts'->dispatching) |
|
766
|
15 |
0 |
if ($bless) { } |
|
834
|
0 |
2 |
if $error eq "drogo-exit\n" |
|
890
|
0 |
0 |
unless $sub =~ /error$/ |
|
942
|
0 |
15 |
unless $request_meta_data{'post_args'} |