1 package DX::Predicate::Eq;
3 use DX::Utils qw(rspace res CONTENTS_OF);
6 with 'DX::Role::Predicate';
8 sub _resolution_space_for {
9 my ($self, $left, $right) = @_;
11 my $deps = [ [ CONTENTS_OF ,=> $left ], [ CONTENTS_OF ,=> $right ] ];
13 my $aperture = [ map @{$_->aperture_for_set_value}, $left, $right ];
15 if ($left->equals($right)) {
17 geometry_depends_on => $deps,
18 aperture => $aperture,
22 veracity_depends_on => $deps,
29 my ($set_this, $to_this) = @$_;
31 actions => [ $set_this->action_for_set_value($to_this) ],
32 veracity_depends_on => $deps,
35 $_->[0]->can_set_value
42 geometry_depends_on => $deps,
43 aperture => $aperture,