move to on_solution_step concept

[scpubgit/DX.git] / lib / DX / Step / MarkAsSolution.pm

diff --git a/lib/DX/Step/MarkAsSolution.pm b/lib/DX/Step/MarkAsSolution.pm
new file mode 100644 (file)
index 0000000..e2fc7e3
--- /dev/null
+++ b/lib/DX/Step/MarkAsSolution.pm
@@ -0,0 +1,15 @@
+package DX::Step::MarkAsSolution;
+
+use DX::Class;
+
+with 'DX::Role::Step';
+
+sub apply_to {
+  my ($self, $ss) = @_;
+  $ss->but(
+    is_solution_state => 1,
+    next_step => DX::Step::Backtrack->new
+  );
+}
+
+1;