Added auto-parsing

lib/SugarTrail/Template/Master.pm

@@ -16,6 +16,7 @@ sub new {
     my $args = { @_ };
     my $self = {};
     $self->{args} = $args;
+    $self->{parsed} = 0;
     return bless $self, $class;
 }
 
@@ -24,10 +25,12 @@ sub parse {
     my ($head, $body) = split "\n\n", $self->{text}, 2;
     $self->{head} = $head;
     $self->{body} = $body;
-    return (
+    my @counts = (
         $self->_parse_headers(),
         $self->_parse_body()
     );
+    $self->{parsed}++;
+    return @counts;
 }
 
 sub _parse_headers {
@@ -60,12 +63,12 @@ sub _parse_body {
 sub generate_slave {
     my $self = shift;
     my $args = shift;
+    $self->parse() unless $self->{parsed};
 
     #create an "empty" slave
     my $slave = SugarTrail::Template::Slave->new($args);
 
     my @slave_steps;
-
     STEP: foreach my $master_step (@{ $self->{steps} }) {
         my $accept = 1;     # accept by default
         my $slave_step = {

t/Slave.t

@@ -6,12 +6,9 @@ use SugarTrail::Repo;
 
 my $repo = SugarTrail::Repo->new(root => './t/data/strepo', vcs => 'git');
 
-
 my $m1 = $repo->load_stm(stm=>'/selftest/posititve/multiple_parameters.stm');
 ok($m1,             "multiple_parameters: master is true");
 
-$m1->parse();
-
 my $s1 = $m1->generate_slave({ proto => "imap", os => "w7a" });
 ok($s1,            "multiple_parameters: slave is true");