Added parse_body()

lib/SugarTrail/STM.pm

@@ -35,5 +35,21 @@ sub parse_headers {
     return scalar keys %{ $self->{meta} };
 }
 
+sub parse_body {
+    my $self = shift;
+    my @lines = split "\n", $self->{body};
+
+    $self->{steps} = [];
+
+    foreach (@lines) {
+        chomp;
+        s/ *$//;
+        my ($line, $cond) = $_ =~ m/^(.*?)(\{(.*)\})?$/;
+        $line =~ s/ *$//;
+        push @{ $self->{steps} }, { line => $line, cond => $cond };
+    }
+
+    return scalar @{ $self->{steps} };
+}
 
 1;

t/Repo.t

@@ -15,6 +15,9 @@ ok($stm,            "stm is true");
 
 ok($stm->parse_headers(), "parse_headers() returns 6");
 ok($stm->parse_headers(), "parse_headers() still returns 6");
+is($stm->parse_body(), 13, "parse_body() returns 13");
+is($stm->parse_body(), 13, "parse_body() still returns 13");
+
 &helper::dmupp(stm=>$stm);
 
 done_testing();