| line |
true |
false |
branch |
|
63
|
0 |
0 |
if ($args{'readable'} and $type != $DATA_TYPE_CBOR)
|
|
73
|
0 |
0 |
if ($type == $DATA_TYPE_PERL) { }
|
|
|
0 |
0 |
elsif ($type == $DATA_TYPE_JSON) { }
|
|
|
0 |
0 |
elsif ($type == $DATA_TYPE_CBOR) { }
|
|
|
0 |
0 |
elsif ($type == $DATA_TYPE_YAML) { }
|
|
|
0 |
0 |
elsif ($type == $DATA_TYPE_XML) { }
|
|
|
0 |
0 |
elsif ($type == $DATA_TYPE_INI) { }
|
|
92
|
0 |
0 |
$args{'readable'} ? :
|
|
94
|
0 |
0 |
if (not defined $data) { }
|
|
107
|
0 |
0 |
if ($args{'readable'})
|
|
124
|
0 |
0 |
if ($args{'json'}) { }
|
|
|
0 |
0 |
elsif ($args{'readable'}) { }
|
|
176
|
0 |
0 |
$args{'readable'} ? :
|
|
188
|
0 |
0 |
if ($args{'compress'})
|
|
189
|
0 |
0 |
if (&bytes::length($$res) >= $args{'compress_threshold'}) { }
|
|
190
|
0 |
0 |
if ($args{'compress'} == $DATA_COMPRESS_ZLIB) { }
|
|
205
|
0 |
0 |
if (defined $args{'secret'})
|
|
208
|
0 |
0 |
if (XXX) { }
|
|
215
|
0 |
0 |
if (defined $secret) { }
|
|
229
|
0 |
0 |
if ($args{'encode'})
|
|
230
|
0 |
0 |
if ($args{'encode'} == $DATA_ENC_B64) { }
|
|
|
0 |
0 |
elsif ($args{'encode'} == $DATA_ENC_HEX) { }
|
|
|
0 |
0 |
elsif ($args{'encode'} == $DATA_ENC_B85) { }
|
|
245
|
0 |
0 |
if ($args{'token'})
|
|
246
|
0 |
0 |
defined $args{'secret'} ? :
|
|
255
|
8 |
0 |
ref $_[1] ? :
|
|
271
|
0 |
8 |
if ($$data_ref =~ /#([[:xdigit:]]{1,8})#([[:xdigit:]]{1,16})\z/msu)
|
|
274
|
0 |
0 |
if (&bytes::length($$data_ref) - $token_len == hex $2)
|
|
286
|
0 |
8 |
if ($args{'encode'})
|
|
287
|
0 |
0 |
if ($args{'encode'} == $DATA_ENC_B64) { }
|
|
|
0 |
0 |
elsif ($args{'encode'} == $DATA_ENC_HEX) { }
|
|
|
0 |
0 |
elsif ($args{'encode'} == $DATA_ENC_B85) { }
|
|
302
|
0 |
8 |
if ($args{'cipher'} and defined $args{'secret'})
|
|
305
|
0 |
0 |
if (XXX) { }
|
|
312
|
0 |
0 |
if (defined $secret)
|
|
324
|
0 |
8 |
if ($args{'compress'})
|
|
325
|
0 |
0 |
if ($args{'compress'} == $DATA_COMPRESS_ZLIB) { }
|
|
330
|
0 |
0 |
unless defined $$data_ref
|
|
340
|
5 |
3 |
if ($type == $DATA_TYPE_PERL) { }
|
|
|
0 |
3 |
elsif ($type == $DATA_TYPE_JSON) { }
|
|
|
0 |
3 |
elsif ($type == $DATA_TYPE_CBOR) { }
|
|
|
0 |
3 |
elsif ($type == $DATA_TYPE_YAML) { }
|
|
|
0 |
3 |
elsif ($type == $DATA_TYPE_XML) { }
|
|
|
3 |
0 |
elsif ($type == $DATA_TYPE_INI) { }
|
|
353
|
0 |
5 |
if $@
|
|
355
|
0 |
5 |
unless $res
|
|
358
|
0 |
0 |
if ($args{'json'}) { }
|
|
412
|
0 |
8 |
if (wantarray and $args{'return_token'}) { }
|
|
579
|
0 |
0 |
if (ref $_[0]) { }
|
|
580
|
0 |
0 |
XXX && $_[0]->isa('Pcore::Util::Hash::Multivalue') ? :
|
|
584
|
0 |
0 |
if (XXX) { }
|
|
586
|
0 |
0 |
defined $data->[$i] ? :
|
|
|
0 |
0 |
defined $$data[$i + 1] ? :
|
|
593
|
0 |
0 |
if (ref $v) { }
|
|
597
|
0 |
0 |
defined $v1 ? :
|
|
601
|
0 |
0 |
defined $v ? :
|
|
622
|
0 |
0 |
if ($args{'encoding'})
|
|
627
|
0 |
0 |
unless (eval {
do {
$u = $$encoding{$args{'encoding'}}->decode($u, 9);
1
}
})
|
|
628
|
0 |
0 |
if $@
|
|
632
|
0 |
0 |
if (defined wantarray) { }
|
|
651
|
0 |
0 |
if ($args{'encoding'})
|
|
666
|
0 |
0 |
if ((my $idx = index($key, '=')) != -1)
|
|
676
|
0 |
0 |
if ($enc)
|
|
679
|
0 |
0 |
unless (eval {
do {
$key = $enc->decode($key, 9);
1
}
})
|
|
680
|
0 |
0 |
if $@
|
|
684
|
0 |
0 |
if (defined $val)
|
|
685
|
0 |
0 |
unless (eval {
do {
$val = $enc->decode($val, 9);
1
}
})
|
|
686
|
0 |
0 |
if $@
|
|
694
|
0 |
0 |
if (defined wantarray) { }
|
|
713
|
0 |
0 |
if (length $buf > $max_mlen and $mlen < $max_mlen)
|