From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

DAVEWOOD / CatalystX-Resource-0.01-TRIAL / lib / CatalystX / Resource / TraitFor / Controller / Resource / Form.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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
—
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114

              
package CatalystX::Resource::TraitFor::Controller::Resource::Form;
{
    $CatalystX::Resource::TraitFor::Controller::Resource::Form::VERSION = '0.01'; # TRIAL
}
use MooseX::MethodAttributes::Role;
use MooseX::Types::LoadableClass qw/ LoadableClass /;
use namespace::autoclean;
# ABSTRACT: handles form related stuff
requires qw/
    resource_key
    _msg
    _redirect
    /;
has 'form_class' => (
    is       => 'ro',
    required => 1,
    isa      => LoadableClass,
    coerce   => 1,
);
has 'form_template' => (
    is        => 'ro',
    predicate => 'has_form_template',
);
sub form {
    my ( $self, $c, $activate_fields ) = @_;
    my $resource = $c->stash->{ $self->resource_key };
    # activate_form_fields in stash overrides activate_fields from config
    my $activate_form_fields = $c->stash->{activate_form_fields}
        || [@$activate_fields];
    # if you want to pass additional attributes to the form put a hashref in
    # the stash key 'form_attrs'
    my $form_attrs = $c->stash->{form_attrs} || {};
    my $form = $self->form_class->new(%$form_attrs);
    $form->process(
        active => $activate_form_fields,
        item   => $resource,
        params => $c->req->params,
    );
    if ( $self->has_form_template ) {
        $c->stash( template => $self->form_template, form => $form );
    }
    else {
        my $rendered_form = $form->render;
        $c->stash( template => \$rendered_form );
    }
    return unless $form->validated;
    if ( $c->stash->{set_create_msg} ) {
        $c->flash( msg => $self->_msg( $c, 'create' ) );
    }
    elsif ( $c->stash->{set_update_msg} ) {
        $c->flash( msg => $self->_msg( $c, 'update' ) );
    }
    $self->_redirect($c);
}
1;
__END__
=pod
=head1 NAME
CatalystX::Resource::TraitFor::Controller::Resource::Form - handles form related stuff
=head1 VERSION
version 0.01
=head1 ATTRIBUTES
=head2 form_class
HTML::FormHandler class to use for this resource.
e.g.: 'MyApp::Form::Resources'
=head2 form_template
template file for HTML::FormHandler
optional, if you don't supply a form_template a stringified version will be used
=head1 METHODS
=head2 form
handle form validation, configuration of visible fields
and setting of notification messages
=head1 AUTHOR
David Schmidt <davewood@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2011 by David Schmidt.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut