Added basic workflow parts

lib/SugarTrail/Repo.pm

@@ -0,0 +1,33 @@
+package SugarTrail::Repo;
+# provide access to STM objects
+#
+# * load_stm()
+
+use strict;
+use warnings;
+use Carp;
+use helper;
+
+# initialize repo
+sub new {
+    my $class   = shift;
+    my $args    = { @_ };
+    exists($args->{type}) or $args->{type} = 'SugarTrail::Repo::Filesystem';
+    $class = $args->{type};
+    #TODO: remove use fail
+    use SugarTrail::Repo::Filesystem;
+    return $class->new(%$args);
+}
+
+sub load_stm {
+    my $self = shift;
+    my $args = { @_ };
+
+    my $stm = {};
+    $stm->{text} = $self->load_text(stm => $args->{stm})
+        or return;
+
+    return bless $stm, 'SugarTrail::STM';
+}
+
+1;

lib/SugarTrail/Repo/Filesystem.pm

@@ -0,0 +1,43 @@
+package SugarTrail::Repo::Filesystem;
+# provide access to STM data
+# * init()
+# * load_text()
+# * load_vcs()
+
+use strict;
+use warnings;
+use parent 'SugarTrail::Repo';
+use Carp;
+
+# initialize repo
+sub new {
+    my $class   = shift;
+    my $args    = { @_ };
+    exists($args->{$_}) or croak "missing mandatory parameter: $_" foreach (qw/root/);
+    my $self    = { %$args };
+    unless (-d $args->{root}) {
+       $self->{last_error} = "invalid repository root directory: " . $args->{root};
+       carp $self->{last_error};
+    }
+    return bless $self, $class;
+}
+
+sub load_text {
+    my $self = shift;
+    my $args = { @_ };
+
+    # load
+    my $fn = $self->{root} . $args->{stm};
+    my $fh;
+    unless (open $fh, "<", $fn) {
+        $self->{last_error} = "cannot open STM file $fn for reading: $!";
+        carp $self->{last_error};
+        return;
+    }
+    my $text = join "", <$fh>;
+    close $fh;
+
+    return $text;
+}
+
+1;