view release on metacpan or  search on metacpan

lib/Catalyst/Controller/FormBuilder/Action.pm  view on Meta::CPAN

125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
sub execute {
    my $self = shift;
    my ( $controller, $c ) = @_;
 
    return $self->maybe::next::method(@_)
      unless exists $self->attributes->{ActionClass}
      && $self->attributes->{ActionClass}[0] eq
      $controller->_fb_setup->{action};
 
    my $form = $self->_setup_form(@_);
    Scalar::Util::weaken($form->{c});
    $controller->_formbuilder($form);
    $self->maybe::next::method(@_);
    $controller->_formbuilder($form);   # keep the same form in case of forwards
 
    $self->setup_template_vars( @_ );
}
 
1;