Added method to construct full path from source path

lib/SugarTrail/Repo/Filesystem.pm

@@ -24,12 +24,18 @@ sub new {
     return bless $self, $class;
 }
 
+sub _get_filename {
+    my $self = shift;
+    my $source = shift;
+    return $self->{root} . $source;
+}
+
 sub load_text {
     my $self = shift;
     my $source = shift;
 
     # load
-    my $fn = $self->{root} . $source;
+    my $fn = $self->_get_filename($source);
     my $fh;
     unless (open $fh, "<", $fn) {
         $self->{last_error} = "cannot open master $fn for reading: $!";