package
Core::Output::StepOne;
use
Moose;
use
Magpie::Constants;
__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;