1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
package Core::Declined::StepTwo;
use Moose;
use Magpie::Constants;
extends 'Magpie::Component';
__PACKAGE__->register_events(qw(init first last));
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>declined::StepTwo::event_init</p>';
return OK;
}
sub first {
my $self = shift;
my $ctxt = shift;
$ctxt->{content} .= '<p>declined::StepTwo::event_first</p>';
return OK;
}
sub last {
my $self = shift;
my $ctxt = shift;
$ctxt->{content} .= '<p>declined::StepTwo::event_last</p>';
return OK;
}
1;
|
