| line |
true |
false |
branch |
|
501
|
0 |
0 |
unless $status |
|
506
|
0 |
0 |
if ($self->logmode and $log_on) |
|
508
|
0 |
0 |
defined $args->{'logfile'} ? : |
|
509
|
0 |
0 |
if defined $args->{'logfacility'} |
|
510
|
0 |
0 |
if ($args->{'logfd'}) { } |
|
513
|
0 |
0 |
if defined $logfile and length $logfile |
|
517
|
0 |
0 |
defined $args->{'ident'} ? : |
|
520
|
0 |
0 |
defined $args->{'loglevel'} ? : |
|
521
|
0 |
0 |
unless ($self->logger_init(%$logopts)) |
|
536
|
0 |
0 |
exists $method_registry{$registry_key} ? : |
|
550
|
0 |
0 |
if ref $class |
|
557
|
0 |
0 |
unless exists $method_registry{$registry_key} |
|
562
|
0 |
0 |
unless grep {$_ eq $meth;} keys %{{DELETE => 1, GET => 1, PATCH => 1, POST => 1, PUT => 1};} |
|
565
|
0 |
0 |
unless length $path |
|
570
|
0 |
0 |
$info{'attrs'} && is_hash($info{'attrs'}) ? : |
|
571
|
0 |
0 |
$info{'returns'} && is_hash($info{'returns'}) ? : |
|
578
|
0 |
0 |
if ($methods->{$key}) |
|
580
|
0 |
0 |
if $tname ne $name |
|
599
|
0 |
0 |
unless $meth |
|
600
|
0 |
0 |
if $meth eq 'HEAD' |
|
602
|
0 |
0 |
$meths->{$meth} ? : |
|
613
|
0 |
0 |
unless defined $name |
|
614
|
0 |
0 |
unless defined $meta->{$name} |
|
620
|
0 |
0 |
unless defined $value |
|
627
|
0 |
0 |
unless defined $value |
|
634
|
0 |
0 |
unless defined $struct |
|
641
|
0 |
0 |
unless defined $struct |
|
652
|
0 |
0 |
if $meth eq 'HEAD' |
|
653
|
0 |
0 |
unless ($self->check_http_method($meth)) |
|
662
|
0 |
0 |
unless length $path |
|
671
|
0 |
0 |
if $methods->{$key} and $methods->{$key}{'name'} and $methods->{$key}{'code'} |
|
678
|
0 |
0 |
if $methods->{$ikey} and $methods->{$ikey}{'deep'} and $methods->{$ikey}{'name'} and $methods->{$ikey}{'code'} |
|
691
|
0 |
0 |
unless my $method = $self->lookup_method($meth, $path) |
|
692
|
0 |
0 |
unless (ref $method eq 'HASH') |
|
701
|
0 |
0 |
unless defined $k |
|
702
|
0 |
0 |
if ($k eq 'code') { } |
|
|
0 |
0 |
elsif ($k eq 'name') { } |
|
716
|
0 |
0 |
if ($rc and not &is_success($rc)) { } |
|
|
0 |
0 |
elsif (ref $func eq 'CODE') { } |
|
727
|
0 |
0 |
unless (&HTTP::Status::status_message($rc)) |
|
763
|
0 |
0 |
if $rc =~ /^(1\d\d|[23]04)$/ |
|
764
|
0 |
0 |
if (utf8::is_utf8($content)) |
|
769
|
0 |
0 |
if $self->origin->{'nph'} |
|
773
|
0 |
0 |
if (is_void($head)) { } |
|
|
0 |
0 |
elsif (is_hash($head)) { } |
|
781
|
0 |
0 |
if $cl and not $h->header('Content-Length') |
|
784
|
0 |
0 |
$self->{'request_method'} && $self->{'request_method'} eq 'HEAD' ? : |
|
785
|
0 |
0 |
$cl && !$ishead ? : |
|
790
|
0 |
0 |
$cl && !$ishead ? : |
|
|
0 |
0 |
$self->origin->{'nph'} ? : |
|
795
|
0 |
0 |
if length $p and $p ne '/' |
|
797
|
0 |
0 |
if length $p |