X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FValue%2FDict.pm;h=85decc74d259b24092e20c3e58f51dc25a0a4fdc;hb=7a5595d3819482e2715a029120eb439fa5c6afbd;hp=44cc0ab3960f1edbeec854cbaaaad9daeb39d4dd;hpb=cd830321b81dc281b0a9c5d527c4eb0aae8b9178;p=scpubgit%2FDX.git

diff --git a/lib/DX/Value/Dict.pm b/lib/DX/Value/Dict.pm
index 44cc0ab..85decc7 100644
--- 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;