| line |
true |
false |
branch |
|
25
|
2 |
10 |
unless defined $other |
|
28
|
0 |
10 |
if defined $reftype_other and $reftype_self ne $reftype_other |
|
30
|
4 |
6 |
unless ($reftype_other) |
|
35
|
2 |
2 |
if $@ |
|
39
|
2 |
6 |
if (&blessed($other) and $other->isa('JSONP')) { } |
|
276
|
0 |
1 |
if $ENV{'MOD_PERL'} |
|
277
|
1 |
0 |
unless $name |
|
278
|
0 |
0 |
unless $name =~ /^[a-z][0-9a-zA-Z_]{0,63}$/ |
|
310
|
1 |
3 |
unless defined $json |
|
313
|
3 |
0 |
if ($type eq "HASH" or $type eq "ARRAY") |
|
319
|
0 |
0 |
if ($type eq "") |
|
325
|
0 |
0 |
unless ($@) |
|
350
|
0 |
0 |
if ($@) |
|
351
|
0 |
0 |
if $self->{'_debug'} |
|
362
|
0 |
0 |
unless (&reftype($self) // "") eq "HASH" and $self->{'_is_root_element'} |
|
375
|
0 |
0 |
$curdir =~ m[(/.*)] ? : |
|
378
|
0 |
0 |
unless $self->{'_aaa_sub'} |
|
385
|
0 |
0 |
if utf8::is_utf8($params{$_}) |
|
392
|
0 |
0 |
if ($contype =~ m[application/json] and scalar keys %params == 1) { } |
|
394
|
0 |
0 |
if ($method eq 'POST') { } |
|
|
0 |
0 |
elsif ($method eq 'PUT') { } |
|
404
|
0 |
0 |
unless ($success) |
|
412
|
0 |
0 |
unless ((&reftype(scalar $self->params) // "") eq "HASH") |
|
417
|
0 |
0 |
if ($self->{'_rest'}) |
|
431
|
0 |
0 |
if ($self->{'_authenticated'}) { } |
|
432
|
0 |
0 |
unless $self->graft("session", $session) |
|
440
|
0 |
0 |
unless ($sid and not $isloginsub) |
|
443
|
0 |
0 |
if $self->{'_insecure_session'} |
|
444
|
0 |
0 |
unless $self->{'_insecure_session'} |
|
457
|
0 |
0 |
if $self->{'_session_expiration'} |
|
461
|
0 |
0 |
if (not !$session and defined &$map or $isloginsub) { } |
|
|
0 |
0 |
elsif (not $req) { } |
|
466
|
0 |
0 |
if $isloginsub |
|
469
|
0 |
0 |
if ($@) |
|
470
|
0 |
0 |
if $self->{'_debug'} |
|
475
|
0 |
0 |
if ($self->{'_authenticated'} and $method eq 'POST' || $method eq 'PUT') |
|
498
|
0 |
0 |
$self->{'_authenticated'} ? : |
|
508
|
0 |
0 |
if binmode $ofh |
|
509
|
0 |
0 |
if ($self->{'_passthrough'}) { } |
|
510
|
0 |
0 |
if $self->{'_request_method'} eq "GET" |
|
511
|
0 |
0 |
if ($callback) |
|
512
|
0 |
0 |
$callback =~ /^([a-z][0-9a-zA-Z_]{1,63})$/ ? : |
|
513
|
0 |
0 |
unless $callback |
|
516
|
0 |
0 |
$callback ? : |
|
519
|
0 |
0 |
if $callback |
|
521
|
0 |
0 |
if $callback |
|
524
|
0 |
0 |
if $self->{'_blobsize'} |
|
525
|
0 |
0 |
if ($self->{'_html'}) { } |
|
|
0 |
0 |
elsif ($self->{'_sendblob'}) { } |
|
529
|
0 |
0 |
if ($self->{'_inline'}) { } |
|
539
|
0 |
0 |
if ($self->{'_inline'}) { } |
|
542
|
0 |
0 |
($self->{'_sendfile'} // '') =~ m[([^/]+)$] ? : |
|
548
|
0 |
0 |
if $self->{'_delete_after_download'} |
|
554
|
0 |
0 |
if ($self->{'_mod_perl'}) |
|
568
|
0 |
0 |
unless $filename and -e -f -r $filename |
|
580
|
0 |
0 |
unless ((&reftype($_[1]) // "") eq "HASH") |
|
585
|
0 |
0 |
unless (scalar keys %{$_[1];}) |
|
594
|
0 |
0 |
if ((&reftype($_[1]{$_}) // "") ne "HASH" or (&reftype($_[2]{$_}) // "") ne "HASH") |
|
595
|
0 |
0 |
defined $_[2]{$_} ? : |
|
616
|
0 |
0 |
unless (&reftype($self) // "") eq "HASH" and $self->{'_is_root_element'} |
|
637
|
0 |
0 |
unless (&reftype($self) // "") eq "HASH" and $self->{'_is_root_element'} |
|
661
|
0 |
0 |
unless (&reftype($self) // "") eq "HASH" and $self->{'_is_root_element'} |
|
679
|
0 |
0 |
unless (&reftype($self) // "") eq "HASH" and $self->{'_is_root_element'} |
|
702
|
0 |
0 |
unless (&reftype($self) // "") eq "HASH" |
|
703
|
0 |
0 |
defined $switch ? : |
|
723
|
0 |
0 |
unless (&reftype($self) // "") eq "HASH" |
|
724
|
0 |
0 |
defined $switch ? : |
|
737
|
0 |
0 |
unless (&reftype($self) // "") eq "HASH" |
|
738
|
0 |
0 |
defined $switch ? : |
|
751
|
0 |
0 |
unless (&reftype($self) // "") eq "HASH" |
|
752
|
0 |
0 |
defined $switch ? : |
|
765
|
0 |
0 |
unless (&reftype($self) // "") eq "HASH" |
|
779
|
0 |
0 |
$param ? : |
|
791
|
0 |
0 |
unless (&reftype($self) // "") eq "HASH" |
|
792
|
0 |
0 |
defined $switch ? : |
|
805
|
0 |
0 |
if (ref $sub eq 'CODE') { } |
|
812
|
0 |
0 |
unless defined &$map |
|
827
|
0 |
0 |
if (ref $sub eq 'CODE') { } |
|
834
|
0 |
0 |
unless defined &$map |
|
849
|
0 |
0 |
if (ref $sub eq 'CODE') { } |
|
856
|
0 |
0 |
unless defined &$map |
|
871
|
0 |
2 |
unless (&reftype($self) // "") eq "HASH" |
|
873
|
1 |
1 |
(&reftype($message) // '') eq 'ARRAY' ? : |
|
874
|
1 |
1 |
if defined $code |
|
875
|
0 |
2 |
if defined $customHeaders |
|
896
|
0 |
0 |
unless (&reftype($self) // "") eq "HASH" |
|
903
|
0 |
0 |
if $@ |
|
933
|
0 |
0 |
unless (&reftype($self) // "") eq "ARRAY" |
|
939
|
0 |
0 |
if $@ |
|
968
|
0 |
0 |
unless (&reftype($self) // "") eq "ARRAY" |
|
1009
|
0 |
0 |
unless $refself eq "ARRAY" |
|
1018
|
0 |
0 |
if ($index < $size) { } |
|
1024
|
0 |
0 |
if $reftype eq "HASH" or $reftype eq "ARRAY" |
|
1067
|
0 |
10 |
(&reftype($self) // '') eq 'HASH' && $self->{'_pretty'} ? : |
|
1070
|
0 |
10 |
unless eval {
do {
local $SIG{'__DIE__'};
$out = "JSON"->new->canonical($canonical)->pretty($pretty)->allow_unknown->allow_blessed->convert_blessed->encode($self)
}
} |
|
1089
|
0 |
0 |
unless (&reftype($self) // "") eq "HASH" and $self->{'_is_root_element'} |
|
1090
|
0 |
0 |
unless $path |
|
1106
|
0 |
0 |
unless (&reftype($self) // "") eq "HASH" and $self->{'_is_root_element'} |
|
1107
|
0 |
0 |
unless $path |
|
1109
|
0 |
0 |
$path ? : |
|
1114
|
0 |
0 |
unless (&reftype($self) // "") eq "HASH" and $self->{'_is_root_element'} |
|
1118
|
0 |
0 |
if (@$mkdirerr) |
|
1136
|
93 |
90 |
if $refnode eq $class |
|
1140
|
65 |
25 |
unless $refnode eq "HASH" or $refnode eq "ARRAY" |
|
1142
|
17 |
8 |
if ($refnode eq "HASH") |
|
1145
|
8 |
17 |
if ($refnode eq "ARRAY") |
|
1155
|
2 |
8 |
if (&reftype($self) // "") eq "ARRAY" |
|
1161
|
24 |
0 |
unless ($self->{'_debug'}) |
|
1162
|
0 |
24 |
if ($self->{'_is_root_element'}) |
|
1163
|
0 |
0 |
if $_ =~ /_sub$/ |
|
1164
|
0 |
0 |
if $_ eq "session" |
|
1165
|
0 |
0 |
if $_ eq "params" |
|
1167
|
0 |
24 |
if $_ =~ /^_/ |
|
1170
|
0 |
24 |
if $skip |
|
1185
|
0 |
149 |
unless $key |
|
1187
|
0 |
149 |
if $arraynode and not $key =~ /^\d+$/ |
|
1188
|
86 |
63 |
want('OBJECT') ? : |
|
1189
|
0 |
149 |
$arraynode ? : |
|
1191
|
0 |
149 |
if want("RVALUE") and not defined $retval |
|
1192
|
0 |
0 |
if want("BOOL") and (&reftype($retval) // "") eq "SCALAR" and $$retval == $$retval % 2 |
|
1194
|
0 |
149 |
if ($arraynode) { } |