|
|
|
|
73
|
line => $master_step->{line},
|
73
|
line => $master_step->{line},
|
74
|
warnings => []
|
74
|
warnings => []
|
75
|
};
|
75
|
};
|
76
|
- # test against each condition from the pre-parsed condblock
|
|
|
77
|
- # refuse step only in case all conditions passed without warnings,
|
|
|
78
|
- # in all other cases (fail, warning), accept
|
|
|
|
|
76
|
+
|
|
|
77
|
+ # Test against each condition from the pre-parsed condblock.
|
|
|
78
|
+ # * refuse step only in case all conditions passed without
|
|
|
79
|
+ # warnings
|
|
|
80
|
+ # * in all other cases (fail, warning), accept
|
79
|
COND: foreach my $condstr (@{ $master_step->{conds} }) {
|
81
|
COND: foreach my $condstr (@{ $master_step->{conds} }) {
|
80
|
my $c = SugarTrail::Template::Condition->new($condstr);
|
82
|
my $c = SugarTrail::Template::Condition->new($condstr);
|
81
|
my ($r, $w) = $c->match($args);
|
83
|
my ($r, $w) = $c->match($args);
|