excise remaining identity_path code

[scpubgit/DX.git] / lib / DX / Value / Dict.pm

diff --git a/lib/DX/Value/Dict.pm b/lib/DX/Value/Dict.pm
index 44cc0ab..85decc7 100644 (file)
--- a/lib/DX/Value/Dict.pm
+++ b/lib/DX/Value/Dict.pm
@@ -44,16 +44,4 @@ sub to_data {
   +{ map +($_ => $m->{$_}->to_data), $self->index_list };
 }
 
-sub but_set_identity_path {
-  my ($self, $path) = @_;
-  my $m = $self->members;
-  $self->but(
-    identity_path => $path,
-    members => +{
-      map +($_ => $m->{$_}->but_set_identity_path([ @$path, $_ ])),
-        keys %$m
-    },
-  );
-}
-
 1;