| line |
true |
false |
branch |
|
37
|
6 |
0 |
unless (exists $self->{'_data'}{$key}) |
|
51
|
0 |
0 |
exists $self->{'_data'}{$key} ? : |
|
56
|
0 |
0 |
unless exists $self->{'_data'}{$key} |
|
71
|
0 |
0 |
unless @{$self->{'_keys'};} |
|
79
|
0 |
0 |
if $i >= scalar @{$self->{'_keys'};} |
|
100
|
0 |
0 |
unless defined $val |
|
101
|
0 |
0 |
if ref $val |
|
104
|
0 |
0 |
$flags & 768 ? : |
|
109
|
0 |
0 |
unless defined $val |
|
110
|
0 |
0 |
if ref $val |
|
114
|
0 |
0 |
$flags & 1024 && !($flags & 768) ? : |
|
236
|
0 |
0 |
$_[0] ? : |
|
241
|
0 |
0 |
${$_[0];} ? : |
|
242
|
0 |
0 |
${$_[0];} ? : |
|
243
|
0 |
0 |
${$_[0];} ? : |
|
245
|
0 |
0 |
${$_[0];} ? : |
|
265
|
0 |
0 |
unless defined $val and builtin::blessed($val) and builtin::blessed($val) eq "Voxgig::Struct::Sentinel" |
|
310
|
0 |
0 |
unless defined $ref |
|
312
|
0 |
0 |
unless $rt eq "HASH" |
|
313
|
0 |
0 |
defined tied %$ref ? : |
|
320
|
0 |
0 |
unless defined $ref |
|
322
|
0 |
0 |
unless $rt eq "HASH" |
|
323
|
0 |
0 |
if (my $tied = tied %$ref) |
|
333
|
0 |
0 |
unless ref $ref eq "HASH" |
|
334
|
0 |
0 |
if _is_tied_hash($ref) |
|
362
|
0 |
0 |
unless defined $t |
|
364
|
0 |
0 |
if $t == 0 |
|
371
|
0 |
0 |
defined $name && $name ne '' ? : |
|
376
|
0 |
0 |
defined $val ? : |
|
|
0 |
0 |
is_none($val) ? : |
|
381
|
0 |
0 |
unless defined $val |
|
382
|
0 |
0 |
if is_none($val) or is_jnull($val) or is_sentinel($val) or is_jbool($val) |
|
383
|
0 |
0 |
unless ref $val |
|
385
|
0 |
0 |
if $r eq "HASH" or $r eq "ARRAY" |
|
391
|
0 |
0 |
unless defined $val |
|
392
|
0 |
0 |
if is_none($val) or is_jnull($val) or is_sentinel($val) or is_jbool($val) |
|
393
|
0 |
0 |
unless ref $val |
|
395
|
0 |
0 |
$r eq 'HASH' ? : |
|
400
|
0 |
0 |
unless defined $val |
|
401
|
0 |
0 |
if is_none($val) or is_jnull($val) or is_sentinel($val) or is_jbool($val) |
|
402
|
0 |
0 |
unless ref $val |
|
404
|
0 |
0 |
$r eq 'ARRAY' ? : |
|
409
|
0 |
0 |
unless defined $k |
|
410
|
0 |
0 |
if is_none($k) or is_jnull($k) |
|
411
|
0 |
0 |
unless (ref $k) |
|
412
|
0 |
0 |
if $k eq "" |
|
421
|
0 |
0 |
if not defined $val or is_none($val) or is_jnull($val) |
|
422
|
0 |
0 |
unless (ref $val) |
|
423
|
0 |
0 |
$val eq '' ? : |
|
425
|
0 |
0 |
@$val == 0 ? : |
|
|
0 |
0 |
if (islist($val)) |
|
426
|
0 |
0 |
_map_keys($val) == 0 ? : |
|
|
0 |
0 |
if (ismap($val)) |
|
432
|
0 |
0 |
defined $val && ref $val eq 'CODE' ? : |
|
437
|
0 |
0 |
if not defined $val or is_none($val) or is_jnull($val) |
|
438
|
0 |
0 |
$$val ? : |
|
|
0 |
0 |
if (is_jbool($val)) |
|
439
|
0 |
0 |
if (ref $val) |
|
440
|
0 |
0 |
if (islist($val)) |
|
441
|
0 |
0 |
if (ismap($val)) |
|
444
|
0 |
0 |
if (&looks_like_number($val) and not "$val" =~ /[^0-9eE.+\-]/u) |
|
456
|
0 |
0 |
if (defined $val and not ref $val and &looks_like_number($val) and not $val =~ /[^0-9eE.+\-]/u and $val ne "") |
|
458
|
0 |
0 |
defined $start && &looks_like_number($start) ? : |
|
459
|
0 |
0 |
defined $end && &looks_like_number($end) ? : |
|
461
|
0 |
0 |
if $v < $lo |
|
462
|
0 |
0 |
if $v > $hi |
|
466
|
0 |
0 |
if (defined $end and not defined $start) |
|
467
|
0 |
0 |
if (defined $start) |
|
468
|
0 |
0 |
if ($start < 0) { } |
|
|
0 |
0 |
elsif (defined $end) { } |
|
470
|
0 |
0 |
if $end < 0 |
|
474
|
0 |
0 |
if ($end < 0) { } |
|
|
0 |
0 |
elsif ($vlen < $end) { } |
|
476
|
0 |
0 |
if $end < 0 |
|
485
|
0 |
0 |
if $vlen < $start |
|
486
|
0 |
0 |
if (-1 < $start and $start <= $end and $end <= $vlen) { } |
|
487
|
0 |
0 |
if (islist($val)) { } |
|
|
0 |
0 |
elsif (not ref $val) { } |
|
488
|
0 |
0 |
if ($mutate) |
|
500
|
0 |
0 |
if (islist($val)) { } |
|
|
0 |
0 |
elsif (not ref $val) { } |
|
501
|
0 |
0 |
if $mutate |
|
502
|
0 |
0 |
$mutate ? : |
|
514
|
0 |
0 |
_is_string_sv($str) ? : |
|
515
|
0 |
0 |
unless defined $padding |
|
518
|
0 |
0 |
defined $padchar && length $padchar ? : |
|
521
|
0 |
0 |
if $need <= 0 |
|
523
|
0 |
0 |
$padding < 0 ? : |
|
529
|
0 |
0 |
if not defined $value or is_none($value) |
|
530
|
0 |
0 |
if is_jnull($value) |
|
531
|
0 |
0 |
if (is_jbool($value)) |
|
532
|
0 |
0 |
if (is_sentinel($value)) |
|
533
|
0 |
0 |
if (ref $value) |
|
534
|
0 |
0 |
if (islist($value)) |
|
535
|
0 |
0 |
if (isfunc($value)) |
|
536
|
0 |
0 |
if (ismap($value)) |
|
540
|
0 |
0 |
if (_is_number_sv($value)) |
|
541
|
0 |
0 |
if ($value =~ /[.eE]/u or int $value != $value) |
|
553
|
0 |
0 |
exists $_[2] ? : |
|
|
0 |
0 |
is_none($_[2]) ? : |
|
554
|
0 |
0 |
unless islist($val) |
|
557
|
0 |
0 |
if (defined $key and not ref $key and &looks_like_number($key)) { } |
|
|
0 |
0 |
elsif (ref $key eq 'CODE') { } |
|
563
|
0 |
0 |
if $k < 0 |
|
564
|
0 |
0 |
if $k < 0 or $k >= $len |
|
568
|
0 |
0 |
if (not defined $v or is_none($v) or is_jnull($v)) |
|
569
|
0 |
0 |
typify($alt) & 16777216 ? : |
|
576
|
0 |
0 |
unless exists $_[2] |
|
577
|
0 |
0 |
unless defined $val and ref $val |
|
578
|
0 |
0 |
if (islist($val)) |
|
581
|
0 |
0 |
if (ismap($val)) |
|
583
|
0 |
0 |
if $k eq "" |
|
584
|
0 |
0 |
unless exists $val->{$k} |
|
587
|
0 |
0 |
if not defined $v or is_jnull($v) or is_none($v) |
|
596
|
0 |
0 |
unless defined $val and ref $val |
|
597
|
0 |
0 |
if (islist($val)) |
|
598
|
0 |
0 |
unless defined $key and not ref $key and &looks_like_number($key) |
|
601
|
0 |
0 |
if $k < 0 |
|
602
|
0 |
0 |
if $k < 0 or $k >= $len |
|
604
|
0 |
0 |
is_none($v) ? : |
|
606
|
0 |
0 |
if (ismap($val)) |
|
608
|
0 |
0 |
if $k eq "" |
|
609
|
0 |
0 |
unless exists $val->{$k} |
|
617
|
0 |
0 |
if not defined $key or is_none($key) |
|
619
|
0 |
0 |
if ($t & 33554432) |
|
620
|
0 |
0 |
if ($t & 536870912) |
|
621
|
0 |
0 |
if ($t & 67108864) |
|
623
|
0 |
0 |
$key == int $key ? : |
|
630
|
0 |
0 |
unless defined $val and ref $val |
|
631
|
0 |
0 |
if (islist($val)) |
|
635
|
0 |
0 |
if (ismap($val)) |
|
644
|
0 |
0 |
unless defined $val and ref $val |
|
645
|
0 |
0 |
if (islist($val)) |
|
646
|
0 |
0 |
unless defined $key and not ref $key and &looks_like_number($key) |
|
649
|
0 |
0 |
if $k < 0 |
|
650
|
0 |
0 |
if $k < 0 or $k >= $len |
|
652
|
0 |
0 |
defined $v && !is_jnull($v) && !is_none($v) ? : |
|
654
|
0 |
0 |
if (ismap($val)) |
|
656
|
0 |
0 |
if $k eq "" |
|
657
|
0 |
0 |
unless exists $val->{$k} |
|
659
|
0 |
0 |
defined $v && !is_jnull($v) && !is_none($v) ? : |
|
672
|
0 |
0 |
$islist ? : |
|
674
|
0 |
0 |
defined $apply ? : |
|
681
|
0 |
0 |
unless islist($list) |
|
690
|
0 |
0 |
if ($depth > 0 and islist($item)) { } |
|
703
|
0 |
0 |
unless defined $val and ref $val |
|
705
|
0 |
0 |
if (islist($val)) { } |
|
|
0 |
0 |
elsif (ismap($val)) { } |
|
708
|
0 |
0 |
if &$pred($pair) |
|
714
|
0 |
0 |
if &$pred($pair) |
|
723
|
0 |
0 |
unless defined $s |
|
732
|
0 |
0 |
unless defined $s |
|
743
|
0 |
0 |
size($sepdef) == 1 ? : |
|
757
|
0 |
0 |
if (not is_none($sepre) and "" ne $sepre) |
|
758
|
0 |
0 |
if ($url and 0 == $i) |
|
761
|
0 |
0 |
if (0 < $i) |
|
764
|
0 |
0 |
if ($i < $sarr - 1 or not $url) |
|
786
|
0 |
0 |
if (islist($val)) { } |
|
|
0 |
0 |
elsif (not ref $val and defined $val and _is_string_sv($val)) { } |
|
|
0 |
0 |
elsif (not ref $val and defined $val and _is_number_sv($val)) { } |
|
799
|
0 |
0 |
$startin > -1 ? : |
|
|
0 |
0 |
!defined($startin) ? : |
|
800
|
0 |
0 |
$endin > -1 ? : |
|
|
0 |
0 |
!defined($endin) ? : |
|
802
|
0 |
0 |
if (not is_none($path) and $start >= 0) |
|
804
|
0 |
0 |
if (scalar @$path == 0) { } |
|
813
|
0 |
0 |
if (not ref $p and _is_number_sv($p)) |
|
822
|
0 |
0 |
if (is_none($pathstr)) |
|
826
|
0 |
0 |
$absent ? : |
|
842
|
0 |
0 |
if (defined $flags) |
|
843
|
0 |
0 |
if (ismap($flags)) { } |
|
|
0 |
0 |
elsif (not ref $flags and &Scalar::Util::looks_like_number($flags)) { } |
|
844
|
0 |
0 |
if defined $flags->{'indent'} |
|
845
|
0 |
0 |
if defined $flags->{'offset'} |
|
852
|
0 |
0 |
if (defined $offset and $offset > 0) |
|
865
|
0 |
0 |
if not defined $val or is_jnull($val) |
|
866
|
0 |
0 |
if is_none($val) |
|
867
|
0 |
0 |
$$val ? : |
|
|
0 |
0 |
if (is_jbool($val)) |
|
868
|
0 |
0 |
if (is_sentinel($val)) |
|
873
|
0 |
0 |
unless (ref $val) |
|
874
|
0 |
0 |
if (_is_number_sv($val)) |
|
879
|
0 |
0 |
if (islist($val)) |
|
880
|
0 |
0 |
unless @$val |
|
885
|
0 |
0 |
if ($indent > 0) |
|
892
|
0 |
0 |
if (ismap($val)) |
|
894
|
0 |
0 |
unless @keys |
|
899
|
0 |
0 |
if ($indent > 0) { } |
|
906
|
0 |
0 |
if ($indent > 0) |
|
913
|
0 |
0 |
if (isfunc($val)) |
|
920
|
0 |
0 |
if ($v == int $v and not $v =~ /[.eE]/u) |
|
930
|
0 |
0 |
unless defined $s |
|
949
|
0 |
0 |
$pretty ? : |
|
|
0 |
0 |
if is_none($val) |
|
951
|
0 |
0 |
if (not defined $val) { } |
|
|
0 |
0 |
elsif (not ref $val and _is_string_sv($val)) { } |
|
961
|
0 |
0 |
if (defined $maxlen and $maxlen > -1) |
|
962
|
0 |
0 |
if (length $s > $maxlen) |
|
971
|
0 |
0 |
if not defined $val or is_jnull($val) or is_none($val) |
|
972
|
0 |
0 |
$$val ? : |
|
|
0 |
0 |
if (is_jbool($val)) |
|
973
|
0 |
0 |
if (is_sentinel($val)) |
|
977
|
0 |
0 |
unless (ref $val) |
|
978
|
0 |
0 |
if (_is_number_sv($val)) |
|
981
|
0 |
0 |
if (islist($val)) |
|
982
|
0 |
0 |
unless @$val |
|
985
|
0 |
0 |
if (ismap($val)) |
|
987
|
0 |
0 |
if $sort_keys |
|
988
|
0 |
0 |
unless @keys |
|
994
|
0 |
0 |
if (isfunc($val)) |
|
1006
|
0 |
0 |
unless defined $val |
|
1007
|
0 |
0 |
if is_none($val) or is_jnull($val) or is_jbool($val) |
|
1008
|
0 |
0 |
if is_sentinel($val) |
|
1009
|
0 |
0 |
unless ref $val |
|
1010
|
0 |
0 |
if isfunc($val) |
|
1012
|
0 |
0 |
if defined $addr and exists $seen->{$addr} |
|
1013
|
0 |
0 |
if (islist($val)) |
|
1015
|
0 |
0 |
if defined $addr |
|
1019
|
0 |
0 |
if (ismap($val)) |
|
1021
|
0 |
0 |
if defined $addr |
|
1033
|
0 |
0 |
unless defined $val and ref $val |
|
1034
|
0 |
0 |
if (islist($val)) |
|
1035
|
0 |
0 |
unless defined $key and not ref $key and &looks_like_number($key) |
|
1039
|
0 |
0 |
if $k < 0 or $k >= $len |
|
1043
|
0 |
0 |
if (ismap($val)) |
|
1045
|
0 |
0 |
if $k eq "" |
|
1055
|
0 |
0 |
unless defined $val and ref $val |
|
1056
|
0 |
0 |
if (is_sentinel($newval)) |
|
1058
|
0 |
0 |
if ($mark eq "`\$SKIP`") |
|
1059
|
0 |
0 |
if ($mark eq "`\$DELETE`") |
|
1061
|
0 |
0 |
if (is_none($newval)) |
|
1062
|
0 |
0 |
if (islist($val)) |
|
1063
|
0 |
0 |
unless defined $key and not ref $key and &looks_like_number($key) |
|
1066
|
0 |
0 |
if ($k >= 0) { } |
|
1068
|
0 |
0 |
if $k > $len |
|
1077
|
0 |
0 |
if (ismap($val)) |
|
1079
|
0 |
0 |
if $k eq "" |
|
1107
|
0 |
0 |
if $self->{'pos'} < $self->{'len'} |
|
1115
|
0 |
0 |
unless $c eq " " or $c eq "\t" or $c eq "\n" or $c eq "\r" |
|
1122
|
0 |
0 |
$self->{'pos'} < $self->{'len'} ? : |
|
1129
|
0 |
0 |
if $c eq "{" |
|
1130
|
0 |
0 |
if $c eq "[" |
|
1131
|
0 |
0 |
if $c eq "\"" |
|
1132
|
0 |
0 |
if $c eq "t" or $c eq "f" or $c eq "n" |
|
1142
|
0 |
0 |
if ($self->_peek eq "}") |
|
1145
|
0 |
0 |
unless $self->_peek eq "\"" |
|
1148
|
0 |
0 |
unless $self->_peek eq ":" |
|
1154
|
0 |
0 |
if ($c eq ",") |
|
1155
|
0 |
0 |
if ($c eq "}") |
|
1166
|
0 |
0 |
if ($self->_peek eq "]") |
|
1172
|
0 |
0 |
if ($c eq ",") |
|
1173
|
0 |
0 |
if ($c eq "]") |
|
1185
|
0 |
0 |
if ($c eq "\"") |
|
1186
|
0 |
0 |
if ($c eq '\\') { } |
|
1188
|
0 |
0 |
if ($esc eq '"') { } |
|
|
0 |
0 |
elsif ($esc eq '\\') { } |
|
|
0 |
0 |
elsif ($esc eq '/') { } |
|
|
0 |
0 |
elsif ($esc eq 'b') { } |
|
|
0 |
0 |
elsif ($esc eq 'f') { } |
|
|
0 |
0 |
elsif ($esc eq 'n') { } |
|
|
0 |
0 |
elsif ($esc eq 'r') { } |
|
|
0 |
0 |
elsif ($esc eq 't') { } |
|
|
0 |
0 |
elsif ($esc eq 'u') { } |
|
1216
|
0 |
0 |
if (substr($self->{'text'}, $self->{'pos'}, 4) eq "true") |
|
1220
|
0 |
0 |
if (substr($self->{'text'}, $self->{'pos'}, 5) eq "false") |
|
1224
|
0 |
0 |
if (substr($self->{'text'}, $self->{'pos'}, 4) eq "null") |
|
1235
|
0 |
0 |
if $c eq "-" |
|
1238
|
0 |
0 |
unless $d =~ /[0-9.eE+\-]/u |
|
1243
|
0 |
0 |
if ($s =~ /[.eE]/u) { } |
|
1268
|
0 |
0 |
unless defined $maxdepth |
|
1274
|
0 |
0 |
if (defined $before) |
|
1277
|
0 |
0 |
if ($depth >= $maxdepth) |
|
1280
|
0 |
0 |
if (islist($val)) { } |
|
|
0 |
0 |
elsif (ismap($val)) { } |
|
1292
|
0 |
0 |
if (defined $after) |
|
1305
|
0 |
0 |
unless islist($vals) |
|
1306
|
0 |
0 |
unless @$vals |
|
1307
|
0 |
0 |
if @$vals == 1 |
|
1309
|
0 |
0 |
unless defined $depth |
|
1318
|
0 |
0 |
if not defined $a or is_none($a) |
|
1319
|
0 |
0 |
unless isnode($a) |
|
1320
|
0 |
0 |
unless isnode($b) |
|
1321
|
0 |
0 |
if islist($a) != islist($b) |
|
1322
|
0 |
0 |
if ($depth >= $maxdepth) |
|
1323
|
0 |
0 |
if (islist($a)) |
|
1325
|
0 |
0 |
if ($i < @$a) { } |
|
1337
|
0 |
0 |
if (exists $a->{$k}) { } |
|
1359
|
0 |
0 |
if ($ptype & 16384) { } |
|
|
0 |
0 |
elsif ($ptype & 33554432) { } |
|
|
0 |
0 |
elsif ($ptype & 67108864) { } |
|
1380
|
0 |
0 |
unless (isnode($next_parent)) |
|
1384
|
0 |
0 |
$nexttype & 67108864 ? : |
|
1411
|
0 |
0 |
if (islist($path_in)) { } |
|
|
0 |
0 |
elsif (defined $path_in and not ref $path_in and not is_jbool($path_in) and not is_jnull($path_in)) { } |
|
1415
|
0 |
0 |
if (_is_number_sv($path_in)) { } |
|
|
0 |
0 |
elsif ("$path_in" eq '') { } |
|
1430
|
0 |
0 |
defined $inj ? : |
|
1431
|
0 |
0 |
defined $base ? : |
|
1433
|
0 |
0 |
defined $inj ? : |
|
1435
|
0 |
0 |
if (not defined $path_in && defined $store or $numparts == 1 and $parts[0] eq '') { } |
|
|
0 |
0 |
elsif ($numparts > 0) { } |
|
1442
|
0 |
0 |
if ($numparts == 1) |
|
1445
|
0 |
0 |
unless (isfunc($val)) |
|
1448
|
0 |
0 |
if (defined $inj and $inj->{'meta'} and $parts[0] =~ /$R_META_PATH/u) |
|
1453
|
0 |
0 |
defined $inj ? : |
|
1456
|
0 |
0 |
if (defined $inj and defined $part and $part eq '$KEY') { } |
|
|
0 |
0 |
elsif (defined $inj and defined $part and index($part, '$GET:') == 0) { } |
|
|
0 |
0 |
elsif (defined $inj and defined $part and index($part, '$REF:') == 0) { } |
|
|
0 |
0 |
elsif (defined $inj and defined $part and index($part, '$META:') == 0) { } |
|
1471
|
0 |
0 |
unless defined $part |
|
1473
|
0 |
0 |
if ($part eq '') { } |
|
1479
|
0 |
0 |
if (defined $inj and $ascends > 0) { } |
|
1480
|
0 |
0 |
if $pI == $#parts |
|
1481
|
0 |
0 |
if ($ascends == 0) { } |
|
1483
|
0 |
0 |
islist($dpath) ? : |
|
1485
|
0 |
0 |
if $cut < 0 |
|
1487
|
0 |
0 |
if $pI + 1 <= $#parts |
|
1488
|
0 |
0 |
if ($ascends <= scalar @dp) { } |
|
1507
|
0 |
0 |
if (defined $inj and defined $inj->{'handler'} and isfunc($inj->{'handler'})) |
|
1554
|
0 |
0 |
unless $inj->{'path'} |
|
1555
|
0 |
0 |
unless $inj->{'nodes'} |
|
1563
|
0 |
0 |
unless $inj->{'dpath'} |
|
1574
|
0 |
0 |
unless $inj->{'path'} |
|
1575
|
0 |
0 |
if ($plen >= 2) |
|
1576
|
0 |
0 |
if (is_none($inj->{'dparent'})) { } |
|
|
0 |
0 |
elsif (defined $parentkey) { } |
|
1578
|
0 |
0 |
if (defined $inj->{'dpath'} and scalar @{$inj->{'dpath'};} > 1 and defined $parentkey) |
|
1584
|
0 |
0 |
unless $inj->{'dpath'} |
|
1585
|
0 |
0 |
scalar @{[] unless $inj->{'dpath'};} > 0 ? : |
|
1587
|
0 |
0 |
if (defined $last and $last eq '$:' . $parentkey) { } |
|
1603
|
0 |
0 |
if (not defined $ancestor or $ancestor < 2) { } |
|
1608
|
0 |
0 |
unless $inj->{'nodes'} |
|
1609
|
0 |
0 |
unless $inj->{'path'} |
|
1610
|
0 |
0 |
if $ancestor > $nlen or $ancestor > $plen |
|
1614
|
0 |
0 |
if (is_none($val)) { } |
|
1624
|
0 |
0 |
if ($iscmd) { } |
|
|
0 |
0 |
elsif ($inj->{'mode'} == 4 and $inj->{'full'}) { } |
|
1638
|
0 |
0 |
unless defined $val and not ref $val |
|
1639
|
0 |
0 |
if $val eq "" |
|
1644
|
0 |
0 |
if ($val =~ /^`(\$[A-Z]+|[^`]*)[0-9]*`$/u) |
|
1646
|
0 |
0 |
if defined $inj |
|
1647
|
0 |
0 |
if (length $pathref > 3) |
|
1653
|
0 |
0 |
if index($val, "`") == -1 |
|
1654
|
0 |
0 |
if defined $inj |
|
1658
|
0 |
0 |
if (length $ref > 3) |
|
1662
|
0 |
0 |
if defined $inj |
|
1664
|
0 |
0 |
if (is_none($found)) { } |
|
|
0 |
0 |
elsif (not ref $found and _is_string_sv($found)) { } |
|
|
0 |
0 |
elsif (is_jnull($found)) { } |
|
|
0 |
0 |
elsif (is_jbool($found)) { } |
|
|
0 |
0 |
elsif (isnode($found)) { } |
|
|
0 |
0 |
elsif (not ref $found and _is_number_sv($found)) { } |
|
1667
|
0 |
0 |
$$found ? : |
|
1672
|
0 |
0 |
if (defined $inj and isfunc($inj->{'handler'})) |
|
1684
|
0 |
0 |
if (not defined $injdef && defined $injdef->{'mode'}) { } |
|
1691
|
0 |
0 |
if (defined $injdef) |
|
1692
|
0 |
0 |
if defined $injdef->{'modify'} |
|
1693
|
0 |
0 |
if defined $injdef->{'extra'} |
|
1694
|
0 |
0 |
if defined $injdef->{'meta'} |
|
1695
|
0 |
0 |
if defined $injdef->{'handler'} |
|
1703
|
0 |
0 |
if (isnode($val)) { } |
|
|
0 |
0 |
elsif (defined $val and not ref $val and _is_string_sv($val)) { } |
|
1705
|
0 |
0 |
if (ismap($val)) { } |
|
1723
|
0 |
0 |
unless (is_none($prekey)) |
|
1740
|
0 |
0 |
unless (is_sentinel($val) and (_map_keys($val))[0] eq "`\$SKIP`") |
|
1745
|
0 |
0 |
if ($inj->{'modify'} and not is_sentinel($val) && (_map_keys($val))[0] eq '`$SKIP`') |
|
1790
|
0 |
0 |
unless ($inj->{'mode'} & $modes) |
|
1797
|
0 |
0 |
if ($parent_types) |
|
1799
|
0 |
0 |
unless ($ptype & $parent_types) |
|
1810
|
0 |
0 |
unless islist($args) |
|
1816
|
0 |
0 |
if ($expected != 2147483647 and not $atype & $expected) |
|
1831
|
0 |
0 |
if (defined $inj->{'prior'}) |
|
1832
|
0 |
0 |
if (defined $inj->{'prior'}{'prior'}) { } |
|
1859
|
0 |
0 |
unless checkPlacement(4, "COPY", 2147483647, $inj) |
|
1867
|
0 |
0 |
if $inj->{'mode'} != 4 |
|
1870
|
0 |
0 |
unless (is_none($keyspec)) |
|
1876
|
0 |
0 |
unless (is_none($k)) |
|
1898
|
0 |
0 |
if ($mode == 1) { } |
|
|
0 |
0 |
elsif ($mode == 2) { } |
|
1902
|
0 |
0 |
islist($args) ? : |
|
1912
|
0 |
0 |
unless checkPlacement(4, "EACH", 16384, $inj) |
|
1916
|
0 |
0 |
unless (is_none($err)) |
|
1930
|
0 |
0 |
if ($srctype & 16384) { } |
|
|
0 |
0 |
elsif ($srctype & 8192) { } |
|
1942
|
0 |
0 |
if (size($tval) > 0) |
|
1943
|
0 |
0 |
!defined($src) || is_none($src) ? : |
|
1948
|
0 |
0 |
if (size($tpath) > 1) |
|
1974
|
0 |
0 |
unless checkPlacement(1, "EACH", 8192, $inj) |
|
1977
|
0 |
0 |
unless (is_none($err)) |
|
1989
|
0 |
0 |
unless (islist($src)) |
|
1990
|
0 |
0 |
if (ismap($src)) { } |
|
1999
|
0 |
0 |
if is_none($src) or not defined $src |
|
2008
|
0 |
0 |
unless (is_none($keypath)) |
|
2009
|
0 |
0 |
if (index($keypath, '`') == 0) { } |
|
2021
|
0 |
0 |
if (is_none($anno)) { } |
|
2025
|
0 |
0 |
unless (isempty($tval)) |
|
2030
|
0 |
0 |
if (is_none($keypath)) { } |
|
|
0 |
0 |
elsif (index($keypath, '`') == 0) { } |
|
2043
|
0 |
0 |
if (size($tpath) > 1) |
|
2064
|
0 |
0 |
if $inj->{'mode'} != 4 |
|
2069
|
0 |
0 |
isfunc($specfn) ? : |
|
2079
|
0 |
0 |
if (isnode($resolved)) |
|
2082
|
0 |
0 |
if (defined $v and not ref $v and $v eq "`\$REF`") |
|
2092
|
0 |
0 |
unless ($hasSubRef and is_none($tval)) |
|
2104
|
0 |
0 |
if (islist($grandparent) and $inj->{'prior'}) |
|
2157
|
0 |
0 |
if $inj->{'mode'} != 4 |
|
2167
|
0 |
0 |
typify($name) & 16777216 ? : |
|
2168
|
0 |
0 |
unless (defined $formatter) |
|
2169
|
0 |
0 |
defined $name ? : |
|
2179
|
0 |
0 |
unless checkPlacement(4, "APPLY", 16384, $inj) |
|
2182
|
0 |
0 |
unless (is_none($err)) |
|
2206
|
0 |
0 |
defined $injdef ? : |
|
2208
|
0 |
0 |
$injdef && $injdef->{'errs'} ? : |
|
2211
|
0 |
0 |
if (defined $extra) |
|
2215
|
0 |
0 |
if (index($k, '$') == 0) { } |
|
2223
|
0 |
0 |
defined $extraData && !isempty($extraData) ? : |
|
2252
|
0 |
0 |
if (size($errs) > 0 and not $collect) |
|
2253
|
0 |
0 |
defined $_ ? : |
|
2267
|
0 |
0 |
$novalue ? : |
|
2268
|
0 |
0 |
size($path) > 1 ? : |
|
2269
|
0 |
0 |
$novalue ? : |
|
2277
|
0 |
0 |
unless ($t & 33554432) |
|
2281
|
0 |
0 |
if (defined $out and not ref $out and $out eq "") |
|
2310
|
0 |
0 |
if ($tname eq "number") |
|
2315
|
0 |
0 |
unless ($t & $typev) |
|
2334
|
0 |
0 |
if ($mode == 1) |
|
2338
|
0 |
0 |
if (not defined $tval or is_none($tval)) { } |
|
|
0 |
0 |
elsif (not ismap($tval)) { } |
|
2351
|
0 |
0 |
if ($mode == 4) |
|
2352
|
0 |
0 |
unless (islist($parent)) |
|
2357
|
0 |
0 |
if (is_none($inj->{'dparent'})) |
|
2361
|
0 |
0 |
unless (islist($inj->{'dparent'})) |
|
2383
|
0 |
0 |
if ($mode == 4) |
|
2384
|
0 |
0 |
if (not islist($parent) or $keyI != 0) |
|
2395
|
0 |
0 |
if (size($tvals) == 0) |
|
2411
|
0 |
0 |
if size($terrs) == 0 |
|
2420
|
0 |
0 |
size($tvals) > 1 ? : |
|
2431
|
0 |
0 |
if ($mode == 4) { } |
|
2432
|
0 |
0 |
if (not islist($parent) or $keyI != 0) |
|
2443
|
0 |
0 |
if (size($tvals) == 0) |
|
2452
|
0 |
0 |
if (not $exactmatch and isnode($tval)) |
|
2457
|
0 |
0 |
if $exactmatch |
|
2467
|
0 |
0 |
size($inj->{'path'}) > 1 ? : |
|
|
0 |
0 |
size($tvals) == 1 ? : |
|
2480
|
0 |
0 |
if $a_na and $b_na |
|
2481
|
0 |
0 |
if $a_na or $b_na |
|
2482
|
0 |
0 |
if is_jnull($a) and is_jnull($b) |
|
2483
|
0 |
0 |
if is_jnull($a) or is_jnull($b) |
|
2484
|
0 |
0 |
if (is_jbool($a) and is_jbool($b)) |
|
2485
|
0 |
0 |
if is_jbool($a) or is_jbool($b) |
|
2486
|
0 |
0 |
unless (ref $a or ref $b) |
|
2487
|
0 |
0 |
if (_is_number_sv($a) and _is_number_sv($b)) |
|
2498
|
0 |
0 |
if is_none($inj) |
|
2499
|
0 |
0 |
if is_sentinel($pval) and (_map_keys($pval))[0] eq "`\$SKIP`" |
|
2501
|
0 |
0 |
$exact ? : |
|
|
0 |
0 |
is_jbool($exact) ? : |
|
2503
|
0 |
0 |
if is_none($inj) or not $exact_bool and is_none($cval) |
|
2505
|
0 |
0 |
if ($ptype & 33554432 and defined $pval and not ref $pval and index($pval, "\$") != -1) |
|
2509
|
0 |
0 |
if ($ptype != $ctype and not is_none($pval)) |
|
2514
|
0 |
0 |
if (ismap($cval)) { } |
|
|
0 |
0 |
elsif (islist($cval)) { } |
|
|
0 |
0 |
elsif ($exact_bool) { } |
|
2515
|
0 |
0 |
unless (ismap($pval)) |
|
2525
|
0 |
0 |
is_jbool($open_flag) && ${$open_flag;} ? : |
|
2526
|
0 |
0 |
if (size($pkeys) > 0 and not $is_open) { } |
|
2529
|
0 |
0 |
if (is_none(_lookup($pval, $ck))) |
|
2533
|
0 |
0 |
if (@badkeys) |
|
2540
|
0 |
0 |
if (isnode($pval)) |
|
2544
|
0 |
0 |
unless (islist($pval)) |
|
2551
|
0 |
0 |
unless ($eq) |
|
2553
|
0 |
0 |
size($inj->{'path'}) > 1 ? : |
|
2567
|
0 |
0 |
if (defined $ref and not ref $ref and $ref =~ /$R_META_PATH/u) |
|
2569
|
0 |
0 |
if ($sym eq '=') { } |
|
2583
|
0 |
0 |
defined $injdef ? : |
|
2585
|
0 |
0 |
$injdef && $injdef->{'errs'} ? : |
|
2621
|
0 |
0 |
if (size($errs) > 0 and not $collect) |
|
2622
|
0 |
0 |
defined $_ ? : |
|
2633
|
0 |
0 |
unless $inj->{'mode'} == 1 |
|
2646
|
0 |
0 |
if (size($terrs) != 0) |
|
2660
|
0 |
0 |
unless $inj->{'mode'} == 1 |
|
2673
|
0 |
0 |
if (size($terrs) == 0) |
|
2688
|
0 |
0 |
unless $inj->{'mode'} == 1 |
|
2700
|
0 |
0 |
if (size($terrs) == 0) |
|
2713
|
0 |
0 |
unless $inj->{'mode'} == 1 |
|
2727
|
0 |
0 |
if ($ref eq '$GT') { } |
|
|
0 |
0 |
elsif ($ref eq '$LT') { } |
|
|
0 |
0 |
elsif ($ref eq '$GTE') { } |
|
|
0 |
0 |
elsif ($ref eq '$LTE') { } |
|
|
0 |
0 |
elsif ($ref eq '$LIKE') { } |
|
2728
|
0 |
0 |
$both_num ? : |
|
2732
|
0 |
0 |
$both_num ? : |
|
2736
|
0 |
0 |
$both_num ? : |
|
2740
|
0 |
0 |
$both_num ? : |
|
2745
|
0 |
0 |
defined $term && $s =~ /$term/u ? : |
|
2747
|
0 |
0 |
if ($pass) { } |
|
2761
|
0 |
0 |
unless isnode($children) |
|
2762
|
0 |
0 |
if (ismap($children)) { } |
|
2792
|
0 |
0 |
if (ismap($v)) |
|
2806
|
0 |
0 |
if (size($errs) == 0) |
|
2821
|
0 |
10 |
if ref $pattern eq "Regexp" |
|
2822
|
0 |
10 |
$flags ? : |
|
2827
|
0 |
5 |
unless defined $input |
|
2829
|
3 |
2 |
$input =~ /$re/u ? : |
|
2835
|
0 |
1 |
unless defined $input |
|
2837
|
1 |
0 |
if ($input =~ /$re/u) |
|
2841
|
0 |
0 |
defined $-[$i] ? : |
|
2853
|
0 |
1 |
unless defined $input |
|
2860
|
0 |
0 |
defined $-[$i] ? : |
|
2865
|
1 |
3 |
if length $whole == 0 and (pos $input // 0) >= length $input |
|
2874
|
0 |
2 |
unless defined $input |
|
2876
|
0 |
2 |
if (ref $replacement eq "CODE") |
|
2882
|
0 |
0 |
defined $-[$i] ? : |