Branch Coverage

blib/lib/Hash/DotPath.pm

Criterion	Covered	Total	%
branch	98	176	55.6

line	true	false	branch
149	10	0	@_ ? :
186	4	0	@_ ? :
	0	4	if @_ != 1
	4	0	$#_ >= 0 ? :
	4	0	Type::Tiny::XS::Str($path) ? :
	4	0	if ($#_ >= 0)
192	3	1	if (@keys)
197	2	2	if ($self->List->isArray($ptr)) { }
198	1	1	if ($self->String->isInt($lastKey)) { }
238	18	0	@_ ? :
	0	18	if @_ != 1
	18	0	$#_ >= 0 ? :
	18	0	Type::Tiny::XS::Str($path) ? :
	18	0	if ($#_ >= 0)
270	8	0	@_ ? :
	0	8	if @_ != 1
	8	0	$#_ >= 0 ? :
	8	0	Type::Tiny::XS::Str($path) ? :
	8	0	if ($#_ >= 0)
314	1	0	@_ ? :
	0	1	if @_ < 1
	0	1	if @_ > 2
	1	0	$#_ >= 0 ? :
	1	0	Type::Tiny::XS::AUTO::TC1($merge) ? :
	1	0	if ($#_ >= 0)
	0	1	$#_ >= 1 ? :
	1	0	Type::Tiny::XS::Bool($overwrite) ? :
317	1	0	if ($self->Hash->isHash($merge)) { }
322	0	0	if ($ref eq 'Hash::DotPath') { }
331	1	0	if $overwrite
367	7	0	@_ ? :
	0	7	if @_ != 2
	7	0	$#_ >= 0 ? :
	7	0	Type::Tiny::XS::Str($path) ? :
	7	0	if ($#_ >= 0)
	7	0	$#_ >= 1 ? :
	7	0	if ($#_ >= 1)
376	1	6	if ($self->List->isArray($ptr)) { }
377	0	1	if ($self->String->isInt($lastKey)) { }
406	0	0	@_ ? :
425	10	0	@_ ? :
434	37	0	@_ ? :
	0	37	if @_ != 1
	37	0	$#_ >= 0 ? :
	37	0	Type::Tiny::XS::Str($key) ? :
	37	0	if ($#_ >= 0)
443	8	0	@_ ? :
	0	8	if @_ != 2
	8	0	$#_ >= 0 ? :
	8	0	XXX ? :
	8	0	if ($#_ >= 0)
	8	0	$#_ >= 1 ? :
	8	0	XXX ? :
	8	0	if ($#_ >= 1)
448	0	8	if ($self->List->isArray($ptr)) { }
450	0	0	if ($self->String->isInt($currKey))
451	0	0	if (@remKeys) { }
	0	0	elsif (exists $ptr->[$currKey]) { }
461	7	1	if (exists $ptr->{$currKey})
462	6	1	if (@remKeys) { }
475	58	0	@_ ? :
	0	58	if @_ != 2
	58	0	$#_ >= 0 ? :
	58	0	Type::Tiny::XS::AUTO::TC2($ptr) ? :
	58	0	if ($#_ >= 0)
	58	0	$#_ >= 1 ? :
	58	0	XXX ? :
	58	0	if ($#_ >= 1)
480	11	47	if ($self->List->isArray($ptr)) { }
482	9	2	if ($self->String->isInt($currKey))
483	4	5	if (@remKeys) { }
493	44	3	if (exists $ptr->{$currKey})
494	27	17	if (@remKeys) { }
507	18	0	@_ ? :
	0	18	if @_ != 2
	18	0	$#_ >= 0 ? :
	18	0	Type::Tiny::XS::AUTO::TC2($ptr) ? :
	18	0	if ($#_ >= 0)
	18	0	$#_ >= 1 ? :
	18	0	XXX ? :
	18	0	if ($#_ >= 1)
511	11	7	if (@remKeys > 1)
516	2	9	if ($self->String->isInt($nextKey)) { }
523	2	9	if ($self->List->isArray($ptr)) { }
	9	0	elsif ($self->Hash->isHash($ptr)) { }
525	2	0	if ($self->String->isInt($currKey)) { }
526	2	0	unless (exists $ptr->[$currKey])
538	5	4	unless (exists $ptr->{$currKey})