our @EXPORT_OK = (
@const,
(my @builders = qw(rspace rstrat res string number dict proposition)),
- 'deparse', '*trace', 'expand_deps',
+ 'deparse', '*trace', 'expand_deps', 'format_deps',
);
our %EXPORT_TAGS = (
[ map _expand_dep($_), @{$_[0]} ]
}
+sub format_deps {
+ [ block => [
+ map [ statement => [
+ [ symbol => (split '::', ${$_->[0]})[-1] ],
+ [ value_path => [ @{$_}[1..$#$_] ] ]
+ ] ], @{$_[0]}
+ ] ]
+}
+
sub rspace {
require DX::ResolutionSpace;
DX::ResolutionSpace->new(@_);