deparse steps

[scpubgit/DX.git] / lib / DX / Deparse.pm

diff --git a/lib/DX/Deparse.pm b/lib/DX/Deparse.pm
index 2d3b2ac..2df9a0f 100644 (file)
--- a/lib/DX/Deparse.pm
+++ b/lib/DX/Deparse.pm
@@ -181,4 +181,12 @@ sub _fmt_searchstate {
   ], $meta);
 }
 
+sub _fmt_step_normal {
+  my ($self, $step, $meta) = @_;
+  $self->_fmt_object([
+    [ actions => $step->actions ],
+    [ alternative_step => $step->alternative_step ],
+  ], $meta);
+}
+
 1;