use Moose;
__PACKAGE__->register_events(qw(init first));
sub load_queue {
my ($self, $ctxt) = @_;
my @events = ('init');
if ( my $event = $self->request->param('appstate') ) {
push @events, $event;
}
return @events;
}
sub init {
my $self = shift;
my $ctxt = shift;
$ctxt->{content} = '<p>output::StepOne::event_init</p>';
return OUTPUT;
}
sub first {
die "Event method called after event_init returned 'OUTPUT'";
}
1;