File Coverage

blib/lib/Catalyst/Controller/FormBuilder/MultiForm/Action/TT.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	1	2	50.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	24	26	92.3

package Catalyst::Controller::FormBuilder::MultiForm::Action::TT;

use strict;
use warnings;

use base qw| Catalyst::Controller::FormBuilder::Action::TT |;

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

  $self->SUPER::setup_template_vars(@_);

  # Get the name of this form from the formbuilder data
  my $form_name = $controller->_formbuilder->name;

  # Get configuration data from our formbuilder instance
  my $stash_name     = $controller->_fb_setup->{stash_name};
  my $obj_name       = $controller->_fb_setup->{obj_name};
  my $multiform_name = $controller->_stash_name;

  # If a form name is defined, create aliases to this form in our forms hash
  if ( defined $form_name )
  {
    $c->stash->{$multiform_name}{$form_name}{$stash_name} = $c->stash->{$stash_name};
    $c->stash->{$multiform_name}{$form_name}{$obj_name}   = $c->stash->{$obj_name};
  }
}

1;