| line |
true |
false |
branch |
|
95
|
0 |
0 |
eval {
do {
'JSON::PP'->VERSION('4.11');
1
}
} ? : |
|
|
46 |
0 |
eval {
do {
'Cpanel::JSON::XS'->VERSION('4.38');
1
}
} ? : |
|
105
|
113 |
87535 |
if ($type eq "null") |
|
108
|
11231 |
76304 |
if ($type eq "boolean") |
|
111
|
19901 |
56403 |
if ($type eq "object") |
|
114
|
14093 |
42310 |
if ($type eq "array") |
|
118
|
11971 |
16 |
if ($type eq "string" or $type eq "number" or $type eq "integer") |
|
119
|
20 |
42274 |
unless defined $value |
|
127
|
30307 |
11967 |
if ($type eq "string") |
|
136
|
8048 |
3919 |
if ($type eq "number") |
|
141
|
3919 |
0 |
if ($type eq "integer") |
|
142
|
17 |
3902 |
if ($$config{'legacy_ints'}) { } |
|
159
|
11 |
5 |
if ($type =~ /^reference to (.+)\z/u) |
|
171
|
74956 |
48478 |
if ref $value eq "HASH" |
|
172
|
11400 |
37078 |
if is_bool($value) |
|
173
|
644 |
36434 |
unless defined $value |
|
174
|
6025 |
30409 |
if ref $value eq "ARRAY" |
|
177
|
880 |
29529 |
if (length(my $ref = ref $value)) |
|
179
|
327 |
320 |
!$$config{'legacy_ints'} && $value->is_int ? : |
|
|
7 |
64 |
defined builtin::blessed($value) ? : |
|
|
647 |
71 |
$ref eq 'Math::BigFloat' ? : |
|
|
162 |
718 |
$ref eq 'Math::BigInt' ? : |
|
195
|
22589 |
15 |
if $flags & 1024 and !($flags & 768) || do {
BEGIN {${^WARNING_BITS} = "\xdd\x7f\xf7\xc3\xd7\xff\xf5\xff\xff\xff\xff\xff\xf5\xd7\xf4\xd7\x15\x51\x55\x15\x55\x55\x55"}
0 + $value eq $value
} |
|
197
|
316 |
6624 |
if ($$config{'legacy_ints'}) { } |
|
200
|
313 |
3 |
$flags & 256 && !($flags & 512) ? : |
|
|
316 |
0 |
if &created_as_number($value) |
|
207
|
6567 |
42 |
int $value == $value ? : |
|
|
6609 |
15 |
if &created_as_number($value) |
|
219
|
60114 |
4 |
unless builtin::is_bool($value) |
|
228
|
409 |
34374 |
unless ref $value eq "HASH" |
|
247
|
3 |
17315 |
if grep(($types[$_] eq "ambiguous type"), (0, 1)) |
|
250
|
88 |
17227 |
if ($$state{"scalarref_booleans"}) |
|
251
|
14 |
74 |
if $types[0] eq "reference to SCALAR" |
|
252
|
18 |
70 |
if $types[1] eq "reference to SCALAR" |
|
255
|
16 |
17299 |
if ($$state{"stringy_numbers"}) |
|
256
|
5 |
3 |
int 0 + $x == $x ? : |
|
|
8 |
8 |
if $types[0] eq "string" and &looks_like_number($x) |
|
259
|
4 |
1 |
int 0 + $y == $y ? : |
|
|
5 |
11 |
if $types[1] eq "string" and &looks_like_number($y) |
|
263
|
1405 |
15910 |
if $types[0] ne $types[1] |
|
264
|
36 |
15874 |
if $types[0] eq "null" |
|
265
|
9502 |
6372 |
if $types[0] eq "string" |
|
267
|
2106 |
4266 |
if grep(($types[0] eq $_), ("boolean", "number", "integer")) |
|
271
|
1828 |
2438 |
if ($types[0] eq "object") |
|
272
|
102 |
1726 |
if keys %$x != keys %$y |
|
275
|
11 |
1715 |
unless (is_equal(my $arr_x = [sort(keys %$x)], my $arr_y = [sort(keys %$y)], scalar(my $s = {}))) |
|
283
|
187 |
3835 |
unless is_equal($$x{$property}, $$y{$property}, $state) |
|
289
|
2438 |
0 |
if ($types[0] eq "array") |
|
290
|
11 |
2427 |
if @$x != @$y |
|
293
|
198 |
5469 |
unless is_equal($$x[$idx], $$y[$idx], $state) |
|
311
|
280 |
1843 |
if (is_equal($$array[$idx0], $$array[$idx1], $state)) |
|
312
|
280 |
0 |
if exists $$state{"equal_indices"} |
|
324
|
0 |
51664 |
if length $_[0] and substr($_[0], 0, 1) ne "/" |
|
330
|
0 |
0 |
if length $_[0] and substr($_[0], 0, 1) ne "/" |
|
344
|
3 |
0 |
ref $data eq 'ARRAY' ? : |
|
|
7 |
3 |
ref $data eq 'HASH' ? : |
|
|
11 |
10 |
ref $data eq '' ? : |
|
353
|
2 |
17410 |
unless grep((ref $data eq $_), ("HASH", "ARRAY")) or defined wantarray |
|
357
|
17412 |
56 |
unless (length $pointer) |
|
358
|
17410 |
2 |
if (not ref $data or ref $data ne ref $value) |
|
359
|
17408 |
2 |
if defined wantarray |
|
363
|
1 |
1 |
if (ref $value eq "HASH") |
|
364
|
0 |
1 |
unless ref $data |
|
367
|
1 |
1 |
if (ref $value eq "ARRAY") |
|
368
|
0 |
1 |
unless ref $data |
|
375
|
56 |
0 |
length $pointer ? : |
|
378
|
1 |
46 |
if @keys >= 2 and not $keys[1] =~ /^(?:\d+|-)\z/a and ref $data eq "ARRAY" and not defined wantarray |
|
386
|
45 |
68 |
if not ref $$curp or ref $$curp eq "ARRAY" and not $key =~ /^(?:\d+|-)\z/a |
|
393
|
25 |
2 |
$key =~ /^\d+\z/a ? : |
|
|
86 |
27 |
ref $$curp eq 'HASH' || !($key =~ /^(?:\d+|-)\z/a) ? : |
|
439
|
68 |
46 |
if (not $document and my $filename = get_schema_filename($uri)) |
|
441
|
0 |
68 |
unless -f $file |
|
453
|
0 |
68 |
if $document->has_errors |
|
463
|
11 |
103 |
unless $document |
|
501
|
2 |
209 |
unless defined $type and defined $subtype |
|
507
|
14 |
73 |
defined $3 ? : |
|
|
87 |
0 |
/^($TOKEN)=($TOKEN|$QUOTED_STRING)\z/u ? : |
|
517
|
0 |
209 |
if keys %$params > 64 |
|
519
|
71 |
138 |
keys %$params ? : |
|
538
|
4 |
21 |
if $media_type_string eq "application/json" |
|
545
|
0 |
21 |
if $media_type_string eq "application/octet-stream" |
|
556
|
2 |
3 |
$$parameters{'charset'} ? : |
|
561
|
2 |
0 |
$$parameters{'charset'} ? : |
|
564
|
2 |
19 |
if $media_type_string eq "text/*" |
|
578
|
2 |
17 |
if $media_type_string eq "application/x-www-form-urlencoded" |
|
601
|
2 |
15 |
if $media_type_string eq "application/x-ndjson" |
|
609
|
4 |
20 |
unless defined $matched_string |
|
613
|
5 |
15 |
unless exists $$definition{"decode"} |
|
619
|
0 |
16 |
if defined $decoder_sub and ref $decoder_sub ne "CODE" |
|
620
|
0 |
16 |
if defined $encoder_sub and ref $encoder_sub ne "CODE" |
|
623
|
1 |
15 |
unless $type |
|
626
|
15 |
0 |
unless exists $$MEDIA_TYPES{$media_type_string} |
|
628
|
1 |
14 |
if (CORE::any {is_equal($type, {%$_{"type", "subtype", "parameters"}});} values %$MEDIA_TYPES) |
|
629
|
1 |
0 |
if $owner_addr == 1 |
|
647
|
2 |
5 |
unless exists $$MEDIA_TYPES{$media_type_string} |
|
653
|
5 |
0 |
if $owner_addr == 1 or $$MEDIA_TYPES{$media_type_string}{"owner_addr"} = [grep(($_ != 1 && $_ != $owner_addr), @{$$MEDIA_TYPES{$media_type_string}{"owner_addr"}})] |
|
659
|
0 |
0 |
length ref $content_ref ? : |
|
|
0 |
30 |
if ref $content_ref ne "SCALAR" |
|
664
|
2 |
28 |
unless $matched_string |
|
668
|
5 |
23 |
unless exists $$definition{"decode"} |
|
670
|
1 |
27 |
unless $$definition{"decode"} |
|
678
|
0 |
9 |
if ref $content_ref ne "REF" and ref $content_ref ne "SCALAR" |
|
681
|
0 |
9 |
unless $matched_string |
|
685
|
0 |
9 |
unless exists $$definition{"encode"} |
|
687
|
1 |
8 |
unless $$definition{"encode"} |
|
696
|
0 |
90 |
unless length $media_type_string |
|
701
|
40 |
50 |
if @$media_types and CORE::any {$_ eq $media_type_string;} @$media_types or not @$media_types and exists $$MEDIA_TYPES{$media_type_string} |
|
704
|
1 |
49 |
unless $mt |
|
706
|
11 |
38 |
@$media_types ? : |
|
718
|
104 |
26 |
if not exists(($$mt{"parameters"} // {})->{$param}) or $$types{$candidate}{"parameters"}{$param} ne $$mt{"parameters"}{$param} |
|
723
|
28 |
391 |
if $candidate eq "*/*" |
|
726
|
35 |
356 |
if $$types{$candidate}{"subtype"} eq "*" and $$types{$candidate}{"type"} eq $$mt{"type"} |
|
729
|
80 |
276 |
if ($$types{$candidate}{"type"} eq $$mt{"type"}) |
|
731
|
24 |
56 |
if $$types{$candidate}{"subtype"} eq $$mt{"subtype"} |
|
735
|
2 |
54 |
if $$mt{"subtype"} =~ /^.+\+(.+)\z/u and $$types{$candidate}{"subtype"} eq $1 |
|
739
|
6 |
43 |
unless @matches |
|
758
|
21446 |
12799 |
unless @extra_path or length $$state{"keyword_path"} |
|
760
|
0 |
12799 |
@extra_path ? : |
|
761
|
0 |
12799 |
unless length $fragment |
|
782
|
0 |
13954 |
unless defined wantarray |
|
786
|
1 |
13953 |
defined $sps && ref $sps eq 'ARRAY' ? : |
|
806
|
266 |
13688 |
$$state{'traverse'} ? : |
|
|
7131 |
6823 |
@args ? : |
|
|
266 |
13688 |
$$state{'traverse'} ? : |
|
828
|
3686 |
8342 |
$$state{'specification_version'} =~ /^draft[467]\z/u ? : |
|
|
9390 |
2638 |
unless $$state{"collect_annotations"} & ($$state{"specification_version"} =~ /^draft[467]\z/u ? '18446744073709551359' : '18446744073709551615') |
|
844
|
37 |
2601 |
$$state{'_unknown'} ? : |
|
856
|
0 |
34 |
if $$state{"traverse"} |
|
861
|
0 |
0 |
unless defined wantarray |
|
862
|
0 |
0 |
unless exists $$schema{$$state{"keyword"}} |
|
867
|
0 |
42348 |
unless defined wantarray |
|
868
|
42331 |
17 |
if is_type($type, $$schema{$$state{"keyword"}}) |
|
869
|
3 |
14 |
$type =~ /^[aeiou]/u ? : |
|
873
|
0 |
2875 |
unless defined wantarray |
|
886
|
0 |
5886 |
unless defined wantarray |
|
891
|
26 |
2595 |
if fc "Mojo::URL"->new($string)->to_unsafe_string ne fc $string or $string =~ /[^[:ascii:]]/u or $string =~ /#/u and not $string =~ /#\z/u and not $string =~ /#[A-Za-z_][A-Za-z0-9_:.-]*\z/u and not $string =~ m[#/(?:[^~]|~[01])*\z]u |
|
904
|
0 |
6199 |
unless defined wantarray |
|
909
|
8 |
1 |
if fc $uri->to_unsafe_string ne fc $string or $string =~ /[^[:ascii:]]/u or not $uri->is_abs or $string =~ /#/u and not $string =~ /#\z/u and not $string =~ /#[A-Za-z][A-Za-z0-9_:.-]*\z/u and not $string =~ m[#/(?:[^~]|~[01])*\z]u |
|
926
|
102 |
1036 |
ref $$schema{$$state{'keyword'}} ? : |
|
931
|
121 |
1184 |
is_bignum($value) ? : |