2 use DX::Utils qw(:all);
4 use List::Util qw(reduce);
7 my $start = DX::DependencyMap->new(deps => {}, revdeps => {});
11 my @xyz = qw(x x.y x.z);
13 my $content = reduce {
14 $a->with_entry_for($b, [ [ CONTENTS_OF ,=> split(/\./,$b) ] ])
18 (join ' ', sort $content->_dependents_of([ VALUE_SET ,=> qw(x y) ])),
20 'x.y set clears contents_of x',
23 (join ' ', sort $content->_dependents_of([ VALUE_SET ,=> qw(x) ])),
25 'x set clears contents_of all x.*',