Added skeleton for basic STS generation

lib/SugarTrail/STM.pm

@@ -8,6 +8,7 @@ package SugarTrail::STM;
 use strict;
 use warnings;
 use Carp;
+use SugarTrail::STS;
 
 sub new {
     my $class = shift;
@@ -52,6 +53,27 @@ sub parse_body {
     return scalar @{ $self->{steps} };
 }
 
+sub generate_sts {
+    my $self = shift;
+    my $args = shift;
+
+    my $sts = SugarTrail::STS->new($args);
+
+    my @lines;
+
+    STEP: foreach (@{ $self->{steps} }) {
+        unless ($_->{cond}) {
+            push @lines, $_->{line};
+            next STEP;
+        } else {
+            push @lines, $_->{line} if &matches($_->{cond}, $args);
+        }
+    }
+
+    $sts->{lines} = \@lines;
+    return $sts;
+}
+
 # skel: matches if cond has m
 sub matches {
     my $cond = shift;

t/Repo.t

@@ -19,4 +19,8 @@ is($stm->parse_body(), 13, "parse_body() still returns 13");
 
 &helper::dmupp(stm=>$stm);
 
+my $sts = $stm->generate_sts({ proto => "imap" });
+ok($sts,            "sts is true");
+&helper::dmupp(sts=>$sts);
+
 done_testing();