|
|
|
|
63
|
sub generate_slave {
|
63
|
sub generate_slave {
|
64
|
my $self = shift;
|
64
|
my $self = shift;
|
65
|
my $args = shift;
|
65
|
my $args = shift;
|
66
|
- $self->parse() unless $self->{parsed};
|
|
|
67
|
my $slave = SugarTrail::Template::Slave->new($args);
|
66
|
my $slave = SugarTrail::Template::Slave->new($args);
|
68
|
|
67
|
|
|
|
68
|
+ $self->parse() unless $self->{parsed};
|
|
|
69
|
+
|
69
|
my @slave_steps;
|
70
|
my @slave_steps;
|
70
|
STEP: foreach my $master_step (@{ $self->{steps} }) {
|
71
|
STEP: foreach my $master_step (@{ $self->{steps} }) {
|
71
|
my $accept = 1; # accept by default
|
72
|
my $accept = 1; # accept by default
|