rspace tracing

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

diff --git a/lib/DX/Role/Predicate.pm b/lib/DX/Role/Predicate.pm
index 0612168..e4e83ba 100644 (file)
--- a/lib/DX/Role/Predicate.pm
+++ b/lib/DX/Role/Predicate.pm
@@ -1,13 +1,13 @@
 package DX::Role::Predicate;
 
-use List::Util qw(reduce);
-use DX::Utils qw(step CONTENTS_OF);
+use Object::Tap;
 use DX::Role;
 
 sub resolution_step_for {
   my ($self, $prop, @args) = @_;
   $self->_resolution_space_for(@args)
        ->but(proposition => $prop)
+       ->$_tap(sub { trace rspace => $_[0] })
        ->next_step;
 }