sub main_form { my $self = shift; # Format NEXTRMS the way H::T expects my @NEXTRMS = map +{NEXTRMS => $_}, @{$self->{__NEXTRMS}->{$self->get_current_runmode()}}; $self->{template}->param(RUNMODE => $self->get_current_runmode(), HANDLER => (caller(1))[3], NEXTRMS => \@NEXTRMS, ); return $self->{template}->output(); } __DATA__ Runmode:
Dispatched sub:
Test