X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FResolutionSpace.pm;fp=lib%2FDX%2FResolutionSpace.pm;h=51b849061bb88f17c67e0ab271804cb66b619701;hb=77bc0c6ec624fe585521bff7e9be61b70800d7ea;hp=4d6eeb4c596fb0824d8d7769178959498869d951;hpb=c147a2015ca991f32adb2c436f0c15be710e0eb1;p=scpubgit%2FDX.git

diff --git a/lib/DX/ResolutionSpace.pm b/lib/DX/ResolutionSpace.pm
index 4d6eeb4..51b8490 100644
--- a/lib/DX/ResolutionSpace.pm
+++ b/lib/DX/ResolutionSpace.pm
@@ -54,8 +54,8 @@ sub remaining_resolution_space {
 
 sub next_step {
   my ($self) = @_;
-  return DX::Step::Backtrack->new unless @{$self->members};
-  return DX::Step::ResolveProposition->new(resolution_space => $self);
+  my $step_type = (@{$self->members} ? 'ResolveProposition' : 'Backtrack');
+  return "DX::Step::${step_type}"->new(resolution_space => $self);
 }
 
 1;