| line |
true |
false |
branch |
|
214
|
0 |
1 |
if $ENV{'MOD_PERL'} |
|
215
|
1 |
0 |
unless $name |
|
216
|
0 |
0 |
unless $name =~ /^[a-z][0-9a-zA-Z_]{0,63}$/ |
|
248
|
1 |
0 |
unless defined $json |
|
251
|
0 |
0 |
if ($type eq 'HASH' or $type eq 'ARRAY') |
|
257
|
0 |
0 |
if ($type eq '') |
|
263
|
0 |
0 |
unless ($@) |
|
286
|
0 |
0 |
if ($@) |
|
287
|
0 |
0 |
if $self->{'_debug'} |
|
298
|
0 |
0 |
unless (&reftype($self) // '') eq 'HASH' and $self->{'_is_root_element'} |
|
311
|
0 |
0 |
$curdir =~ m[(/.*)] ? : |
|
314
|
0 |
0 |
unless $self->{'_aaa_sub'} |
|
320
|
0 |
0 |
if utf8::is_utf8($params{$_}) |
|
327
|
0 |
0 |
if ($contype =~ m[application/json] and scalar keys %params == 1) { } |
|
329
|
0 |
0 |
if ($method eq 'POST') { } |
|
|
0 |
0 |
elsif ($method eq 'PUT') { } |
|
339
|
0 |
0 |
unless ($success) |
|
347
|
0 |
0 |
unless ((&reftype(scalar $self->params) // '') eq 'HASH') |
|
352
|
0 |
0 |
if ($self->{'_rest'}) |
|
366
|
0 |
0 |
if ($self->{'_authenticated'}) { } |
|
367
|
0 |
0 |
unless $self->graft('session', $session) |
|
377
|
0 |
0 |
unless ($sid and not $isloginsub) |
|
380
|
0 |
0 |
if $self->{'_insecure_session'} |
|
381
|
0 |
0 |
unless $self->{'_insecure_session'} |
|
394
|
0 |
0 |
if $self->{'_session_expiration'} |
|
398
|
0 |
0 |
if (not !$session and defined &$map or $isloginsub) { } |
|
|
0 |
0 |
elsif (not $req) { } |
|
403
|
0 |
0 |
if $isloginsub |
|
406
|
0 |
0 |
if ($@) |
|
407
|
0 |
0 |
if $self->{'_debug'} |
|
412
|
0 |
0 |
if ($self->{'_authenticated'} and $method eq 'POST' || $method eq 'PUT') |
|
435
|
0 |
0 |
$self->{'_authenticated'} ? : |
|
444
|
0 |
0 |
if binmode $ofh |
|
445
|
0 |
0 |
if ($self->{'_passthrough'}) { } |
|
446
|
0 |
0 |
if $self->{'_request_method'} eq 'GET' |
|
447
|
0 |
0 |
if ($callback) |
|
448
|
0 |
0 |
$callback =~ /^([a-z][0-9a-zA-Z_]{1,63})$/ ? : |
|
449
|
0 |
0 |
unless $callback |
|
452
|
0 |
0 |
$callback ? : |
|
455
|
0 |
0 |
if $callback |
|
457
|
0 |
0 |
if $callback |
|
460
|
0 |
0 |
if ($self->{'_html'}) { } |
|
464
|
0 |
0 |
if ($self->{'_inline'}) { } |
|
467
|
0 |
0 |
($self->{'_sendfile'} // '') =~ m[([^/]+)$] ? : |
|
473
|
0 |
0 |
if $self->{'_delete_after_download'} |
|
479
|
0 |
0 |
if ($self->{'_mod_perl'}) |
|
491
|
0 |
0 |
unless $filename and -e -f -r $filename |
|
503
|
0 |
0 |
unless ((&reftype($_[1]) // '') eq 'HASH') |
|
508
|
0 |
0 |
unless (scalar keys %{$_[1];}) |
|
517
|
0 |
0 |
if ((&reftype($_[1]{$_}) // '') ne 'HASH' or (&reftype($_[2]{$_}) // '') ne 'HASH') |
|
518
|
0 |
0 |
defined $_[2]{$_} ? : |
|
539
|
0 |
0 |
unless (&reftype($self) // '') eq 'HASH' and $self->{'_is_root_element'} |
|
560
|
0 |
0 |
unless (&reftype($self) // '') eq 'HASH' and $self->{'_is_root_element'} |
|
578
|
0 |
0 |
unless (&reftype($self) // '') eq 'HASH' and $self->{'_is_root_element'} |
|
601
|
0 |
0 |
unless (&reftype($self) // '') eq 'HASH' |
|
602
|
0 |
0 |
defined $switch ? : |
|
622
|
0 |
0 |
unless (&reftype($self) // '') eq 'HASH' |
|
623
|
0 |
0 |
defined $switch ? : |
|
636
|
0 |
0 |
unless (&reftype($self) // '') eq 'HASH' |
|
637
|
0 |
0 |
defined $switch ? : |
|
650
|
0 |
0 |
unless (&reftype($self) // '') eq 'HASH' |
|
651
|
0 |
0 |
defined $switch ? : |
|
664
|
0 |
0 |
unless (&reftype($self) // '') eq 'HASH' |
|
678
|
0 |
0 |
$param ? : |
|
690
|
0 |
0 |
unless (&reftype($self) // '') eq 'HASH' |
|
691
|
0 |
0 |
defined $switch ? : |
|
704
|
0 |
0 |
if (ref $sub eq 'CODE') { } |
|
711
|
0 |
0 |
unless defined &$map |
|
726
|
0 |
0 |
if (ref $sub eq 'CODE') { } |
|
733
|
0 |
0 |
unless defined &$map |
|
748
|
0 |
0 |
if (ref $sub eq 'CODE') { } |
|
755
|
0 |
0 |
unless defined &$map |
|
770
|
0 |
2 |
unless (&reftype($self) // '') eq 'HASH' |
|
772
|
1 |
1 |
(&reftype($message) // '') eq 'ARRAY' ? : |
|
773
|
1 |
1 |
if defined $code |
|
793
|
0 |
0 |
unless (&reftype($self) // '') eq 'HASH' |
|
800
|
0 |
0 |
if $@ |
|
830
|
0 |
0 |
unless (&reftype($self) // '') eq 'ARRAY' |
|
836
|
0 |
0 |
if $@ |
|
865
|
0 |
0 |
unless (&reftype($self) // '') eq 'ARRAY' |
|
906
|
0 |
0 |
unless $refself eq 'ARRAY' |
|
915
|
0 |
0 |
if ($index < $size) { } |
|
921
|
0 |
0 |
if $reftype eq 'HASH' or $reftype eq 'ARRAY' |
|
956
|
0 |
0 |
(&reftype($self) // '') eq 'HASH' && $self->{'_pretty'} ? : |
|
957
|
0 |
0 |
unless eval {
do {
local $SIG{'__DIE__'};
$out = 'JSON'->new->pretty($pretty)->allow_unknown->allow_blessed->convert_blessed->encode($self)
}
} |
|
976
|
0 |
0 |
unless (&reftype($self) // '') eq 'HASH' and $self->{'_is_root_element'} |
|
977
|
0 |
0 |
unless $path |
|
993
|
0 |
0 |
unless (&reftype($self) // '') eq 'HASH' and $self->{'_is_root_element'} |
|
994
|
0 |
0 |
unless $path |
|
996
|
0 |
0 |
$path ? : |
|
1001
|
0 |
0 |
unless (&reftype($self) // '') eq 'HASH' and $self->{'_is_root_element'} |
|
1005
|
0 |
0 |
if (@$mkdirerr) |
|
1023
|
93 |
90 |
if $refnode eq $class |
|
1027
|
65 |
25 |
unless $refnode eq 'HASH' or $refnode eq 'ARRAY' |
|
1029
|
17 |
8 |
if ($refnode eq 'HASH') |
|
1032
|
8 |
17 |
if ($refnode eq 'ARRAY') |
|
1042
|
0 |
0 |
if (&reftype($self) // '') eq 'ARRAY' |
|
1048
|
0 |
0 |
unless ($self->{'_debug'}) |
|
1049
|
0 |
0 |
if ($self->{'_is_root_element'}) |
|
1050
|
0 |
0 |
if $_ =~ /_sub$/ |
|
1051
|
0 |
0 |
if $_ eq 'session' |
|
1052
|
0 |
0 |
if $_ eq 'params' |
|
1054
|
0 |
0 |
if $_ =~ /^_/ |
|
1057
|
0 |
0 |
if $skip |
|
1072
|
0 |
149 |
unless $key |
|
1074
|
0 |
149 |
if $arraynode and not $key =~ /^\d+$/ |
|
1075
|
86 |
63 |
want('OBJECT') ? : |
|
1076
|
0 |
149 |
$arraynode ? : |
|
1078
|
0 |
149 |
if want('RVALUE') and not defined $retval |
|
1079
|
0 |
0 |
if want('BOOL') and (&reftype($retval) // '') eq 'SCALAR' and $$retval == $$retval % 2 |
|
1081
|
0 |
149 |
if ($arraynode) { } |