1 package DX::Predicate::Eq;
3 use DX::Utils qw(step 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 if ($left->equals($right)) {
15 geometry_depends_on => $deps,
19 veracity_depends_on => $deps,
26 my ($set_this, $to_this) = @$_;
28 actions => [ $set_this->action_for_set_value($to_this) ],
29 veracity_depends_on => $deps,
32 $_->[0]->can_set_value
39 geometry_depends_on => $deps,