File: TT.pm

package info (click to toggle)
libcatalyst-controller-formbuilder-perl 0.06-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 272 kB
  • sloc: perl: 2,320; makefile: 2
file content (15 lines) | stat: -rw-r--r-- 413 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
package Catalyst::Controller::FormBuilder::Action::TT;

use strict;
use base qw/Catalyst::Controller::FormBuilder::Action/;

sub setup_template_vars {
    my ( $self, $controller, $c ) = @_;

    my $stash_name = $controller->_fb_setup->{stash_name};
    $c->stash->{$stash_name} = $controller->_formbuilder->prepare;
    $c->stash->{ $controller->_fb_setup->{obj_name} } =
      $controller->_formbuilder;
}

1;