Branch Coverage

blib/lib/Datify.pm

Criterion	Covered	Total	%
branch	220	370	59.4

line	true	false	branch
26	0	2835	if (defined(my $blessed = &Scalar::Util::blessed($class)))
30	1	2834	@_ ? :
42	0	7305	unless my $count = scalar @_
45	7261	44	if (&Scalar::Util::blessed($self)) { }
50	7261	0	$count == 1 ? :
51	0	0	unless exists $self->{$_} and $self
56	0	0	if exists $SETTINGS->{$_}
	44	0	$count == 1 ? :
64	6578	689	$setting ? :
65	0	689	unless $_[0]->_internal(1)
74	6392	7	if (defined(my $class = &Scalar::Util::blessed($self))) { }
78	5945	447	$count == 1 ? :
	0	6392	$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	3340	0	if @_
427	0	3340	unless defined $_
429	0	3340	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 (LooksLike::number($_)) { }
449	0	369	unless my $sep = $self->get('num_sep')
485	548	0	if @_
488	507	41	$self->isa(scalar caller) ? :
496	542	0	if @_
498	16	526	unless defined $_
500	36	490	if (defined(my $blessed = &Scalar::Util::blessed($_)))
502	4	32	$blessed eq 'Regexp' ? :
507	384	106	unless ($ref)
511	36	344	LooksLike::number($_) ? :
	380	0	$ref2 eq 'SCALAR' ? :
	2	380	$ref2 eq 'VSTRING' ? :
	0	382	$ref2 eq 'LVALUE' ? :
	2	382	$ref2 eq 'GLOB' ? :
530	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' ? :
534	2	0	$ref eq 'VSTRING' ? :
	10	2	$ref eq 'SCALAR' ? :
	4	12	$ref eq 'LVALUE' ? :
	2	16	$ref eq 'GLOB' ? :
574	0	4	if (defined(my $vsep = $self->get('vsep'))) { }
612	4	0	if @_
616	4	0	unless $tr3
619	0	4	shift() // $quoter ? :
628	0	4	if ($open =~ /\w/u)
678	63	259	unless ($keyword_set)
680	0	63	unless @$keywords
690	489	0	if @_
692	0	489	unless defined $_
693	0	489	if ref $_
695	167	322	if ($self->is_numeric($_)) { }
	290	32	elsif (length $_ < $self->get('longstr') and not $self->is_keyword($_) and /\A-?[[:alpha:]_]\w*\z/u) { }
729	5	0	$^V >= v5.16.0 ? :
734	5	0	unless eval $keysort
744	0	58	if (my $ref = ref(my $keyfilter = $self->get('keyfilter')))
747	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') { }
750	0	0	$ref eq 'ARRAY' ? :
754	0	0	exists $keyfilterhash{$_} ? :
762	0	0	/$keyfilterregexp/u ? :
770	58	0	if (my $keysort = $self->get('keysort'))
786	28	0	if (1 == @_)
788	0	28	if ($ref eq 'ARRAY') { }
	28	0	elsif ($ref eq 'HASH') { }
833	32	0	@_ ? :
835	32	0	unless defined &Scalar::Util::blessed($object) and overload::Overloaded($object)
840	0	0	if (my $method = overload::Method($object, $overload))
861	32	0	@_ ? :
863	0	32	unless defined(my $class = &Scalar::Util::blessed($object))
867	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')) { }
878	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' ? :
913	4	0	@_ ? :
918	4	4	if (*{"main::STD$ioe";}{'IO'} == $io)
953	8	0	if (@_ and defined $_[0])
955	8	0	if (my $ref = &Scalar::Util::reftype($_)) { }
956	8	0	if ($ref eq 'CODE') { }
957	4	4	unless ((my $subname = Sub::Util::subname($_)) =~ /\A(?:\w+\::)*__ANON__\z/u)
986	52	0	if @_
1011	4	0	if ($name =~ /^\*$package\::(?:$word|$digits)?$/u) { }
1027	0	0	if (my $beauty = $self->get('beautify')) { }
1038	1	10	unless @_
1041	10	0	if (defined($class = &Scalar::Util::blessed($_[0])) or not ref $_[0] and length($class = $_[0]))
1044	8	2	if ($class->isa($caller))
1053	5097	2660	defined &Scalar::Util::blessed($self) ? :
1057	1	6557	unless $_[0]->_internal(1)
1065	44	0	if @_
1075	44	0	unless my $code = $self->can(_nameify($c))
1082	0	531	unless defined $_[0]
1092	0	464	if (1 < length $open)
1095	0	0	if ($qpairs{$open}) { }
1101	464	0	unless $close
1118	0	1048	if (LooksLike::number($element)) { }
	1048	0	elsif (length $element == 1) { }
1132	2061	18	$_ <= 255 ? :
1147	5	1	if (do { $ord <= 65535 if 0 <= $ord }) { }
	1	0	elsif (65536 <= $ord and $ord <= 1114111) { }
1148	6	0	if 0 <= $ord
1149	0	5	if (55296 <= $ord and $ord <= 57343)
1175	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) { }
1176	6	0	if 0 <= $ord
1189	0	1	if (55296 <= $ord and $ord <= 57343)
1225	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) { }
1245	1	0	if @_
1260	22	1	($counts{$a} //= 0) <= ($counts{$b} //= 0) ? :
1283	142	0	length $var ? :
1284	0	142	if ($sigil eq '@' or $sigil eq '%') { }
	32	110	elsif ($pos) { }
1285	0	0	if ($pos) { }
1309	397	110	unless my $refaddr = &Scalar::Util::refaddr($ref)
1312	0	110	if @$entry == $self->get('_cache_hit')
1320	400	148	unless my $refaddr = &Scalar::Util::refaddr($item)
1323	6	142	if (my $entry = $_cache->{$refaddr}) { }