Branch Coverage

blib/lib/Datify.pm
Criterion Covered Total %
branch 225 376 59.8


line true false branch
26 0 2817 if (defined(my $blessed = &Scalar::Util::blessed($class)))
30 1 2816 @_ ? :
42 0 7281 unless my $count = scalar @_
45 7237 44 if (&Scalar::Util::blessed($self)) { }
50 7237 0 $count == 1 ? :
51 0 0 unless exists $self->{$_} and $self
56 0 0 if exists $SETTINGS->{$_}
44 0 $count == 1 ? :
64 6554 689 $setting ? :
65 0 689 unless $_[0]->_internal(1)
74 6368 7 if (defined(my $class = &Scalar::Util::blessed($self))) { }
78 5921 447 $count == 1 ? :
0 6368 $count == 0 ? :
83 6 0 $count == 1 ? :
1 6 $count == 0 ? :
93 0 1238 unless @_
98 1111 127 if (defined($class = &Scalar::Util::blessed($self))) { }
108 6 1232 if $set{'keywords'}
113 2 1433 unless $internal or $class->exists($k)
115 699 736 if defined $v and not ref $v
128 0 0 length $_[0] ? :
130 0 0 if (my $name = _nameify($pkg))
173 41 0 if (defined $_[0] and not ref $_[0])
176 41 0 if length $name
178 41 0 1 == @_ ? :
180 41 0 if (length $name) { }
181 0 41 if ($name =~ /[[:cntrl:]]/u)
186 0 0 if (defined(my $ref = &Scalar::Util::blessed($value))) { }
192 0 41 unless length $name
194 22 19 unless ($sigil)
196 0 22 $ref eq 'HASH' ? :
0 22 $ref eq 'ARRAY' ? :
204 0 0 $sigil eq '%' ? :
0 0 $sigil eq '@' ? :
41 0 $sigil eq '$' ? :
212 0 41 if (my $beautify = $self->get('beautify')) { }
232 0 17 if @_ and defined $_[0]
250 0 0 if @_
251 0 0 unless defined $_
252 0 0 $_ ? :
262 400 0 if @_
263 0 400 unless defined $_
264 0 400 if ref $_
272 1 399 if ($quote1 ne $open)
273 0 1 if ($open =~ /\w/u)
290 60 0 if @_
291 0 60 unless defined $_
292 0 60 if ref $_
297 60 0 if (my $sigils = $self->get('sigils'))
306 0 60 if ($quote2 ne $open)
307 0 0 if ($open =~ /\w/u)
374 422 0 if @_
375 0 422 unless defined $_
376 0 422 if ref $_
380 0 422 if ($quote)
381 0 0 if $quote1 and $quote1 eq $quote
382 0 0 if $quote2 and $quote2 eq $quote
390 12 410 if $longstr and $longstr < length $_ or $also and /[$also]/u
394 410 0 unless $tr1
397 389 21 unless $single_quotes
400 21 0 unless $tr2
403 20 1 unless $double_quotes
425 3322 0 if @_
427 0 3322 unless defined $_
429 0 3322 if (ref $_)
430 0 0 if (my $method = $self->overloaded($_)) { }
444 384 0 if @_
446 1 383 unless defined $_
448 369 14 if ($self->is_numeric($_)) { }
12 2 elsif (&Scalar::Util::looks_like_number($_)) { }
449 0 369 unless my $sep = $self->get('num_sep')
462 0 6 defined($_ <=> 0) ? :
3 6 $_ == '-inf' ? :
3 9 $_ == 'inf' ? :
484 548 0 if @_
487 507 41 $self->isa(scalar caller) ? :
495 542 0 if @_
497 16 526 unless defined $_
499 36 490 if (defined(my $blessed = &Scalar::Util::blessed($_)))
501 4 32 $blessed eq 'Regexp' ? :
506 384 106 unless ($ref)
510 36 344 &Scalar::Util::looks_like_number($_) ? :
380 0 $ref2 eq 'SCALAR' ? :
2 380 $ref2 eq 'VSTRING' ? :
0 382 $ref2 eq 'LVALUE' ? :
2 382 $ref2 eq 'GLOB' ? :
529 0 18 $ref eq 'REGEXP' ? :
40 18 $ref eq 'REF' ? :
0 58 $ref eq 'IO' ? :
16 58 $ref eq 'HASH' ? :
4 74 $ref eq 'FORMAT' ? :
8 78 $ref eq 'CODE' ? :
20 86 $ref eq 'ARRAY' ? :
533 2 0 $ref eq 'VSTRING' ? :
10 2 $ref eq 'SCALAR' ? :
4 12 $ref eq 'LVALUE' ? :
2 16 $ref eq 'GLOB' ? :
573 0 4 if (defined(my $vsep = $self->get('vsep'))) { }
611 4 0 if @_
615 4 0 unless $tr3
618 0 4 shift() // $quoter ? :
627 0 4 if ($open =~ /\w/u)
677 63 259 unless ($keyword_set)
679 0 63 unless @$keywords
689 489 0 if @_
691 0 489 unless defined $_
692 0 489 if ref $_
694 167 322 if ($self->is_numeric($_)) { }
290 32 elsif (length $_ < $self->get('longstr') and not $self->is_keyword($_) and /\A-?[[:alpha:]_]\w*\z/u) { }
728 5 0 $^V >= v5.16.0 ? :
733 5 0 unless eval $keysort
743 0 58 if (my $ref = ref(my $keyfilter = $self->get('keyfilter')))
746 0 0 if ($ref eq 'ARRAY' or $ref eq 'HASH') { }
0 0 elsif ($ref eq 'CODE') { }
0 0 elsif ($ref eq 'Regexp') { }
0 0 elsif ($ref eq 'SCALAR') { }
749 0 0 $ref eq 'ARRAY' ? :
753 0 0 exists $keyfilterhash{$_} ? :
761 0 0 /$keyfilterregexp/u ? :
769 58 0 if (my $keysort = $self->get('keysort'))
785 28 0 if (1 == @_)
787 0 28 if ($ref eq 'ARRAY') { }
28 0 elsif ($ref eq 'HASH') { }
832 32 0 @_ ? :
834 32 0 unless defined &Scalar::Util::blessed($object) and overload::Overloaded($object)
839 0 0 if (my $method = overload::Method($object, $overload))
860 32 0 @_ ? :
862 0 32 unless defined(my $class = &Scalar::Util::blessed($object))
866 0 32 if (do { my $code = $self->_find_handler($class) }) { }
0 32 elsif (my $method = $self->overloaded($object)) { }
0 32 elsif (my $attrkeyvals = $object->can('_attrkeyvals')) { }
877 12 0 $data eq 'SCALAR' ? :
0 12 $data eq 'REGEXP' ? :
0 12 $data eq 'REF' ? :
4 12 $data eq 'IO' ? :
12 16 $data eq 'HASH' ? :
0 28 $data eq 'GLOB' ? :
0 28 $data eq 'FORMAT' ? :
0 28 $data eq 'CODE' ? :
4 28 $data eq 'ARRAY' ? :
912 4 0 @_ ? :
917 4 4 if (*{"main::STD$ioe";}{'IO'} == $io)
952 8 0 if (@_ and defined $_[0])
954 8 0 if (my $ref = &Scalar::Util::reftype($_)) { }
955 8 0 if ($ref eq 'CODE') { }
956 4 4 unless ((my $subname = Sub::Util::subname($_)) =~ /\A(?:\w+\::)*__ANON__\z/u)
985 52 0 if @_
1010 4 0 if ($name =~ /^\*$package\::(?:$word|$digits)?$/u) { }
1026 0 0 if (my $beauty = $self->get('beautify')) { }
1037 1 10 unless @_
1040 10 0 if (defined($class = &Scalar::Util::blessed($_[0])) or not ref $_[0] and length($class = $_[0]))
1043 8 2 if ($class->isa($caller))
1052 5097 2642 defined &Scalar::Util::blessed($self) ? :
1056 1 6533 unless $_[0]->_internal(1)
1064 44 0 if @_
1074 44 0 unless my $code = $self->can(_nameify($c))
1081 0 531 unless defined $_[0]
1091 0 464 if (1 < length $open)
1094 0 0 if ($qpairs{$open}) { }
1100 464 0 unless $close
1117 0 1048 if (&Scalar::Util::looks_like_number($element)) { }
1048 0 elsif (length $element == 1) { }
1131 2061 18 $_ <= 255 ? :
1146 5 1 if (do { $ord <= 65535 if 0 <= $ord }) { }
1 0 elsif (65536 <= $ord and $ord <= 1114111) { }
1147 6 0 if 0 <= $ord
1148 0 5 if (55296 <= $ord and $ord <= 57343)
1174 0 6 if (do { $ord <= 127 if 0 <= $ord }) { }
4 2 elsif (128 <= $ord and $ord <= 2047) { }
1 1 elsif (2048 <= $ord and $ord <= 65535) { }
1 0 elsif (65536 <= $ord and $ord <= 1114111) { }
1175 6 0 if 0 <= $ord
1188 0 1 if (55296 <= $ord and $ord <= 57343)
1224 153 142 if (defined $encode->{$ord}) { }
6 136 elsif ($utf == 8) { }
6 130 elsif ($utf == 16) { }
127 3 elsif ($ord <= 255) { }
2 1 elsif ($ord <= 65535) { }
1244 1 0 if @_
1259 22 1 ($counts{$a} //= 0) <= ($counts{$b} //= 0) ? :
1282 142 0 length $var ? :
1283 0 142 if ($sigil eq '@' or $sigil eq '%') { }
32 110 elsif ($pos) { }
1284 0 0 if ($pos) { }
1308 397 110 unless my $refaddr = &Scalar::Util::refaddr($ref)
1311 0 110 if @$entry == $self->get('_cache_hit')
1319 400 148 unless my $refaddr = &Scalar::Util::refaddr($item)
1322 6 142 if (my $entry = $_cache->{$refaddr}) { }