Added class SugarTrail::STM

lib/SugarTrail/Repo.pm

@@ -7,6 +7,7 @@ use strict;
 use warnings;
 use Carp;
 use helper;
+use SugarTrail::STM;
 
 # initialize repo
 sub new {
@@ -23,11 +24,11 @@ sub load_stm {
     my $self = shift;
     my $args = { @_ };
 
-    my $stm = {};
+    my $stm = SugarTrail::STM->new();
     $stm->{text} = $self->load_text(stm => $args->{stm})
         or return;
 
-    return bless $stm, 'SugarTrail::STM';
+    return $stm;
 }
 
 1;

lib/SugarTrail/STM.pm

@@ -0,0 +1,40 @@
+package SugarTrail::STM;
+# STM holder
+# new()
+# parse_headers()
+
+
+
+use strict;
+use warnings;
+use Carp;
+
+sub new {
+    my $class = shift;
+    my $args = { @_ };
+    my $self = {};
+    $self->{args} = $args;
+    return bless $self, $class;
+}
+
+sub parse_headers {
+    my $self = shift;
+
+    my ($head, $body) = split "\n\n", $self->{text}, 2;
+
+    my @lines = split "\n", $head;
+
+    $self->{head} = $head;
+    $self->{body} = $body;
+
+    foreach (@lines) {
+        my ($n, $v) = split ": ", $_, 2;
+        $self->{meta}->{$n} = $v;
+    }
+
+    return 1;
+
+}
+
+
+1;