X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FPredicate%2FEq.pm;h=6f1db999c31f52f893c86cd3da7df5f969c391af;hb=fe5af11f90482c9f5bdf74cd1f7699849451e211;hp=e0b3899d91e283992ec80cca78dbfe302461cc54;hpb=2548ce615db02d9ebd44d15359c1220aaf06798f;p=scpubgit%2FDX.git diff --git a/lib/DX/Predicate/Eq.pm b/lib/DX/Predicate/Eq.pm index e0b3899..6f1db99 100644 --- a/lib/DX/Predicate/Eq.pm +++ b/lib/DX/Predicate/Eq.pm @@ -1,6 +1,6 @@ package DX::Predicate::Eq; -use DX::Utils qw(rspace res CONTENTS_OF); +use DX::Utils qw(rspace res CONTENTS_OF expand_deps); use DX::Class; with 'DX::Role::Predicate'; @@ -8,7 +8,9 @@ with 'DX::Role::Predicate'; sub _resolution_space_for { my ($self, $left, $right) = @_; - my $deps = [ [ CONTENTS_OF ,=> $left ], [ CONTENTS_OF ,=> $right ] ]; + my $deps = expand_deps([ + [ CONTENTS_OF ,=> $left ], [ CONTENTS_OF ,=> $right ] + ]); my $aperture = [ map @{$_->aperture_for_set_value}, $left, $right ];