| line |
true |
false |
branch |
|
477
|
0 |
0 |
unless $status |
|
482
|
0 |
0 |
if ($self->logmode and $log_on) |
|
484
|
0 |
0 |
defined $args->{'logfile'} ? : |
|
485
|
0 |
0 |
if defined $args->{'logfacility'} |
|
486
|
0 |
0 |
if ($args->{'logfd'}) { } |
|
489
|
0 |
0 |
if defined $logfile and length $logfile |
|
493
|
0 |
0 |
defined $args->{'ident'} ? : |
|
496
|
0 |
0 |
defined $args->{'loglevel'} ? : |
|
497
|
0 |
0 |
unless ($self->logger_init(%$logopts)) |
|
512
|
0 |
0 |
exists $method_registry{$registry_key} ? : |
|
526
|
0 |
0 |
if ref $class |
|
533
|
0 |
0 |
unless exists $method_registry{$registry_key} |
|
538
|
0 |
0 |
unless grep {$_ eq $meth;} keys %{{DELETE => 1, GET => 1, PATCH => 1, POST => 1, PUT => 1};} |
|
541
|
0 |
0 |
unless length $path |
|
546
|
0 |
0 |
$info{'attrs'} && is_hash($info{'attrs'}) ? : |
|
547
|
0 |
0 |
$info{'returns'} && is_hash($info{'returns'}) ? : |
|
554
|
0 |
0 |
if ($methods->{$key}) |
|
556
|
0 |
0 |
if $tname ne $name |
|
575
|
0 |
0 |
unless $meth |
|
576
|
0 |
0 |
if $meth eq 'HEAD' |
|
578
|
0 |
0 |
$meths->{$meth} ? : |
|
589
|
0 |
0 |
unless defined $name |
|
590
|
0 |
0 |
unless defined $meta->{$name} |
|
596
|
0 |
0 |
unless defined $value |
|
603
|
0 |
0 |
unless defined $value |
|
610
|
0 |
0 |
unless defined $struct |
|
617
|
0 |
0 |
unless defined $struct |
|
628
|
0 |
0 |
if $meth eq 'HEAD' |
|
629
|
0 |
0 |
unless ($self->check_http_method($meth)) |
|
638
|
0 |
0 |
unless length $path |
|
647
|
0 |
0 |
if $methods->{$key} and $methods->{$key}{'name'} and $methods->{$key}{'code'} |
|
654
|
0 |
0 |
if $methods->{$ikey} and $methods->{$ikey}{'deep'} and $methods->{$ikey}{'name'} and $methods->{$key}{'code'} |
|
667
|
0 |
0 |
unless my $method = $self->lookup_method($meth, $path) |
|
668
|
0 |
0 |
unless (ref $method eq 'HASH') |
|
677
|
0 |
0 |
unless defined $k |
|
678
|
0 |
0 |
if ($k eq 'code') { } |
|
|
0 |
0 |
elsif ($k eq 'name') { } |
|
690
|
0 |
0 |
if (ref $func eq 'CODE') { } |
|
699
|
0 |
0 |
unless (&HTTP::Status::status_message($rc)) |
|
731
|
0 |
0 |
if $rc =~ /^(1\d\d|[23]04)$/ |
|
732
|
0 |
0 |
if (utf8::is_utf8($content)) |
|
737
|
0 |
0 |
if $self->origin->{'nph'} |
|
741
|
0 |
0 |
if (is_void($head)) { } |
|
|
0 |
0 |
elsif (is_hash($head)) { } |
|
749
|
0 |
0 |
if $cl and not $h->header('Content-Length') |
|
752
|
0 |
0 |
$self->{'request_method'} && $self->{'request_method'} eq 'HEAD' ? : |
|
753
|
0 |
0 |
$cl && !$ishead ? : |
|
758
|
0 |
0 |
$cl && !$ishead ? : |
|
|
0 |
0 |
$self->origin->{'nph'} ? : |
|
763
|
0 |
0 |
if length $p and $p ne '/' |
|
765
|
0 |
0 |
if length $p |