Finished condition processing, first run

lib/SugarTrail/Template/Master.pm

 use warnings;
 use Carp;
 use SugarTrail::Template::Slave;
+use SugarTrail::Template::Condition;
 
 sub new {
     my $class = shift;
     $self->{steps} = [];
     foreach (split "\n", $self->{body}) {
         chomp; s/ *$//;
-        my ($line, $cond) = $_ =~ m/^(.*?)(\{(.*)\})?$/;
+        my @conds;
+        my ($line, $cond_block) = $_ =~ m/^(.*?)(\{(.*)\})?$/;
         $line =~ s/ *$//;
-        push @{ $self->{steps} }, { line => $line, cond => $cond };
+        if ($cond_block) {
+            $cond_block =~ s/\}$//;
+            $cond_block =~ s/^\{//;
+            @conds = split m/\s*;\s*/, $cond_block;
+        }
+        push @{ $self->{steps} }, { line => $line, conds => \@conds };
     }
     return scalar @{ $self->{steps} };
 }
 
     my @lines;
 
-    STEP: foreach (@{ $self->{steps} }) {
-        unless ($_->{cond}) {
-            push @lines, $_->{line};
-            next STEP;
-        } else {
-            push @lines, $_->{line} if &matches($_->{cond}, $args);
+    STEP: foreach my $step (@{ $self->{steps} }) {
+        my $accept = 1;
+        COND: foreach my $condstr (@{ $step->{conds} }) {
+            my $c = SugarTrail::Template::Condition->new($condstr);
+            unless ($c->match($args)) { $accept = 0; last COND; }
         }
+        push @lines, $step->{line} if $accept;
     }
 
     $slave->{meta}->{'Stm'} = $self->{stm};
     return $slave;
 }
 
-# skel: matches if cond has m
-sub matches {
-    my $cond = shift;
-    my $args = shift;
-    $cond =~ m/m/;
-}
-
 # skel: returns time (might be useful in absence of VCS)
 sub get_current_revision {
     return time;

t/data/strepo/release/rc.stm

     > result is OK
 3. Some XP thing        {os==wxx}
 3. Some Win7 thing      {os=~w7*}
-4. Some amd64 thing     {arch==amd64}
+4. Some amd64 thing     {arch==amd64;proto==pop3}
 
 Some final comments.