Reduced empty data fields

lib/SugarTrail/Template/Master.pm

@@ -30,6 +30,7 @@ sub parse {
         $self->_parse_body()
     );
     $self->{parsed}++;
+    delete $self->{text};
     return @counts;
 }
 
@@ -39,6 +40,7 @@ sub _parse_headers {
         my ($n, $v) = split ": ", $_, 2;
         $self->{meta}->{$n} = $v;
     }
+    delete $self->{head};
     return scalar keys %{ $self->{meta} };
 }
 
@@ -55,8 +57,11 @@ sub _parse_body {
             $cond_block =~ s/^\{//;
             @conds = split m/\s*;\s*/, $cond_block;
         }
-        push @{ $self->{steps} }, { line => $line, conds => \@conds };
+        my $step = { line => $line };
+        $step->{conds} = \@conds if @conds;
+        push @{ $self->{steps} }, $step;
     }
+    delete $self->{body};
     return scalar @{ $self->{steps} };
 }
 
@@ -72,34 +77,36 @@ sub generate_slave {
         my $accept = 1;     # accept by default
         my $slave_step = {
             line        => $master_step->{line},
-            warnings    => []
         };
 
         # Test against each condition from the pre-parsed condblock.
         # *   refuse step only in case all conditions passed without
         #     warnings
         # *   in all other cases (fail, warning), accept
-        COND: foreach my $condstr (@{ $master_step->{conds} }) {
-            my $c = SugarTrail::Template::Condition->new($condstr);
-            unless ($c) {
-                $self->{error} = "condition error: $c->{error}";
-                return;
-            }
-            my ($r, $w) = $c->match($args);
-
-            # if warnings, store them, prepare to accept and ignore result
-            if (scalar @$w) {
-                $accept = 1;
-                push @{$slave_step->{warnings}}, @$w;
-                next COND;
-            } else {
-                # point of no warnings -- refusal should be valid here
-                $accept = 0 unless $r;
+        if ($master_step->{conds}) {
+            COND: foreach my $condstr (@{ $master_step->{conds} }) {
+                my $c = SugarTrail::Template::Condition->new($condstr);
+                unless ($c) {
+                    $self->{error} = "condition error: $c->{error}";
+                    return;
+                }
+                my ($r, $w) = $c->match($args);
+
+                # if warnings, store them, prepare to accept and ignore result
+                if (scalar @$w) {
+                    $accept = 1;
+                    push @{$slave_step->{warnings}}, @$w;
+                    next COND;
+                } else {
+                    # point of no warnings -- refusal should be valid here
+                    $accept = 0 unless $r;
+                }
             }
         }
 
         push @slave_steps, $slave_step
-            if ($accept || scalar @{$slave_step->{warnings}});
+            if ($accept || defined $slave_step->{warnings}
+                        && scalar @{$slave_step->{warnings}});
     }
 
     $slave->{meta}->{'Master'} = $self->{source};