projects
/
scpubgit/DX.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
0612168ebcce5ac07b3ef08b8a6bc4f4dd788277
[scpubgit/DX.git]
/
lib
/
DX
/
Role
/
Predicate.pm
1
package DX::Role::Predicate;
2
3
use List::Util qw(reduce);
4
use DX::Utils qw(step CONTENTS_OF);
5
use DX::Role;
6
7
sub resolution_step_for {
8
my ($self, $prop, @args) = @_;
9
$self->_resolution_space_for(@args)
10
->but(proposition => $prop)
11
->next_step;
12
}
13
14
1;