X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FPredicate%2FMemberAt.pm;h=e01f9d45a2938f2d11e221cdb4c4104f913dfaae;hb=8c6c955154351eb1b049869d4c9f038155cdd00d;hp=d999e777d07bb997b086362582b6e4c31fddfc74;hpb=255e1884e387c0971e83542924c91593b05a0739;p=scpubgit%2FDX.git diff --git a/lib/DX/Predicate/MemberAt.pm b/lib/DX/Predicate/MemberAt.pm index d999e77..e01f9d4 100644 --- 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) {