excise non-functioning depency group system

[scpubgit/DX.git] / lib / DX / Predicate / MemberAt.pm

diff --git a/lib/DX/Predicate/MemberAt.pm b/lib/DX/Predicate/MemberAt.pm
index d999e77..e01f9d4 100644 (file)
--- a/lib/DX/Predicate/MemberAt.pm
+++ b/lib/DX/Predicate/MemberAt.pm
@@ -13,14 +13,10 @@ sub _possible_resolution_list {
     unless $coll->does('DX::Role::StructuredValue');
   my $basic_deps = sub {
     (depends_on => [
-      [ undef ,=>
-        [ EXISTENCE_OF ,=> $coll, ($_[1]||$_[0])->string_value ],
-        [ CONTENTS_OF ,=> $_[0] ],
-      ],
-      [ $value ,=>
-        [ CONTENTS_OF ,=> $coll, ($_[1]||$_[0])->string_value ],
-        [ CONTENTS_OF ,=> $value ],
-      ],
+      [ EXISTENCE_OF ,=> $coll, ($_[1]||$_[0])->string_value ],
+      [ CONTENTS_OF ,=> $_[0] ],
+      [ CONTENTS_OF ,=> $coll, ($_[1]||$_[0])->string_value ],
+      [ CONTENTS_OF ,=> $value ],
     ])
   };
   if ($value->is_set) {