perllib/FixMyStreet/App/Form/Page/Simple.pm


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

package FixMyStreet::App::Form::Page::Simple;
use Moose;
extends 'HTML::FormHandler::Page';

# What page to go to after successful submission of this page
has next => ( is => 'ro', isa => 'Str|CodeRef' );

# A function that will be called to generate an update_field_list parameter
has update_field_list => (
    is => 'ro',
    isa => 'CodeRef',
    predicate => 'has_update_field_list',
);

# A function called after all form processing, just before template display
# (to e.g. set up the map)
has post_process => (
    is => 'ro',
    isa => 'CodeRef',
);

# Catalyst action to forward to once this page has been reached
has finished => ( is => 'ro', isa => 'CodeRef' );

1;