Added basic header passing

lib/SugarTrail/STM.pm

@@ -70,6 +70,10 @@ sub generate_sts {
         }
     }
 
+    $sts->{meta}->{'Stm'} = $self->{stm};
+    $sts->{meta}->{'Stm Revision'} = $self->get_current_revision();
+    $sts->{meta}->{'Params'} = mkmymime($args);
+
     $sts->{lines} = \@lines;
     return $sts;
 }

t/Repo.t

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