X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FUtils.pm;h=37a0829016591e667732c10405b82280cce54039;hb=7f385fb233701e2f749cff0ab718774828e4d1d1;hp=0cb207ddddaf8a515b73706969a20505948f2bb0;hpb=80d78e1b96b3db270c57269ab0bb41db584e1170;p=scpubgit%2FDX.git diff --git a/lib/DX/Utils.pm b/lib/DX/Utils.pm index 0cb207d..37a0829 100644 --- a/lib/DX/Utils.pm +++ b/lib/DX/Utils.pm @@ -10,7 +10,7 @@ my @const = ( our @EXPORT_OK = ( @const, - (my @builders = qw(step string number dict proposition)), + (my @builders = qw(step rspace rstrat res string number dict proposition)), 'deparse', '*trace', ); @@ -65,6 +65,21 @@ sub step { ); } +sub rspace { + require DX::ResolutionSpace; + DX::ResolutionSpace->new(@_); +} + +sub rstrat { + require DX::ResolutionStrategy; + DX::ResolutionStrategy->new(@_); +} + +sub res { + require DX::Resolution; + DX::Resolution->new(@_); +} + sub string { require DX::Value::String; DX::Value::String->new(string_value => $_[0])