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}) { }