Commit | Line | Data |
---|---|---|
9d759b64 | 1 | package DX::Role::Predicate; |
2 | ||
3 | use List::Util qw(reduce); | |
3e465d5d | 4 | use DX::Utils qw(step CONTENTS_OF); |
9d759b64 | 5 | use DX::Role; |
6 | ||
7 | sub resolution_step_for { | |
ccf0d4fe | 8 | my ($self, $prop, @args) = @_; |
839c0018 | 9 | my $rspace = $self->_resolution_space_for(@args); |
10 | return undef unless @{$rspace->members}; | |
11 | return step( | |
12 | resolves => $prop, | |
13 | resolution_space => $rspace | |
14 | ); | |
9d759b64 | 15 | } |
16 | ||
9d759b64 | 17 | 1; |