view release on metacpan or  search on metacpan

lib/Data/Hash/Patch/Smart/Engine.pm  view on Meta::CPAN

		_remove_value($parent, $leaf, $opts);
	} else {
		die "Unsupported op: $op";
	}
}

sub _split_path {
	my $path = $_[0];

	return () if !defined $path || $path eq '';
	my @parts = grep { length $_ } split m{/}, $path;
	return @parts;
}

# Walk down the structure following the given path segments,
# stopping at the parent of the leaf. In strict mode, we die on
# invalid paths. With create_missing => 1, we auto-create
# intermediate hashes/arrays as needed.
sub _walk_to_parent {
	my ($cur, $parts, $leaf, $opts) = @_;