Branch Coverage

blib/lib/Pcore/Util/Data.pm
Criterion Covered Total %
branch 15 140 10.7


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)