| 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(\&Drogo::Guts::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 ? : |
|
421
|
0 |
0 |
if ($request_data{'request_parts'}) { } |
|
426
|
0 |
0 |
if $part->{'fh'} |
|
428
|
0 |
0 |
if ($lookup_key) { } |
|
431
|
0 |
0 |
if $lookup_key eq $part->{'name'} |
|
435
|
0 |
0 |
if $seen_hash{$part->{'name'}}++ |
|
447
|
0 |
0 |
if ($lookup_key) { } |
|
449
|
0 |
0 |
if $lookup_key eq $key |
|
454
|
0 |
0 |
if $seen_hash{$key}++ |
|
460
|
0 |
0 |
unless @values |
|
462
|
0 |
0 |
scalar @values == 1 ? : |
|
479
|
0 |
0 |
if $param_hash{$key} |
|
483
|
0 |
0 |
if (scalar @params == 1) { } |
|
511
|
0 |
0 |
unless $request_data{'request_parts'} |
|
528
|
0 |
0 |
unless $request_data{'post_args'} |
|
536
|
0 |
5 |
unless $request_data{'post_args'} |
|
544
|
0 |
0 |
if (ref $r ne $request_meta_data{'server_class'}) |
|
554
|
0 |
0 |
if (not $r->args and substr($request_body, 0, 1) ne '{' and index($request_body, "\n") == -1) { } |
|
563
|
0 |
0 |
if substr($request_body, 0, 1) eq "-" |
|
591
|
15 |
0 |
$bless ? : |
|
594
|
15 |
0 |
if (UNIVERSAL::can($class, $method)) { } |
|
600
|
0 |
15 |
if (UNIVERSAL::can($init_class, "init") and not $method eq "error") |
|
605
|
0 |
0 |
if ($bless) { } |
|
616
|
0 |
0 |
if ($@ and $@ ne "drogo-exit\n") |
|
618
|
0 |
0 |
if ($method eq "error") |
|
641
|
0 |
0 |
if ($bless) { } |
|
652
|
0 |
0 |
if ($@ and $@ ne "drogo-exit\n") { } |
|
654
|
0 |
0 |
if ($method eq "error") |
|
664
|
0 |
0 |
if __PACKAGE__->auto_header and __PACKAGE__->dispatching |
|
678
|
15 |
0 |
if (__PACKAGE__->dispatching) |
|
685
|
0 |
15 |
if $error |
|
687
|
15 |
0 |
if ($bless) { } |
|
697
|
0 |
15 |
if ($@ and $@ ne "drogo-exit\n") { } |
|
699
|
0 |
0 |
if ($method eq "error") |
|
722
|
0 |
0 |
if ($bless) { } |
|
733
|
0 |
0 |
if ($@ and $@ ne "drogo-exit\n") { } |
|
735
|
0 |
0 |
if ($method eq "error") |
|
745
|
0 |
0 |
if __PACKAGE__->auto_header and __PACKAGE__->dispatching |
|
758
|
15 |
0 |
if __PACKAGE__->auto_header and __PACKAGE__->dispatching |
|
763
|
15 |
0 |
if (UNIVERSAL::can($cleanup_class, "cleanup") and $method ne "error" and __PACKAGE__->dispatching) |
|
769
|
15 |
0 |
if ($bless) { } |
|
843
|
0 |
0 |
if $error eq "drogo-exit\n" |
|
899
|
0 |
0 |
unless $sub =~ /error$/ |
|
951
|
0 |
15 |
unless $request_meta_data{'post_args'} |