Added base (plaintext) for rendering functions

lib/SugarTrail/Template/Slave.pm

@@ -11,7 +11,45 @@ sub new {
     my $args = shift;
     my $self = {};
     $self->{args} = $args;
+    $self->{steps} = [];
     return bless $self, $class;
 }
 
+sub source {
+    my $self = shift;
+    return sprintf "%s\n\n%s%s", $self->head, $self->warnings, $self->body; 
+}
+
+sub head {
+    my $self = shift;
+    my @head;
+    push @head, sprintf "%s: %s", $_, $self->{meta}->{$_} foreach keys %{$self->{meta}};
+    return join "\n", @head;
+}
+
+sub body {
+    my $self = shift;
+    my @source;
+    push @source, $_->{line} foreach @{$self->{steps}};
+    return join "\n", @source;
+}
+
+sub warnings {
+    my $self = shift;
+    my @warnings;
+    foreach my $step (@{$self->{steps}}) {
+        push @warnings, $_ foreach @{$step->{warnings}};
+    }
+    my $warnings;
+    if (@warnings) {
+        $warnings .= "---\n# SUGAR-TRAIL WARNINGS #\n\n";
+        foreach (@warnings) {
+            $warnings .= "> warning: $_\n";
+        }
+        $warnings .= "---\n\n";
+    }
+    return $warnings;
+}
+
+
 1;