CGI: Session, tt_config, header

__PACKAGE__->tt_config( TEMPLATE_OPTIONS => {
                ABSOLUTE => 1,
                RELATIVE => 1,
        }
);

App->new(__PACKAGE__->tt_config(TEMPLATE_OPTIONS => {ABSOLUTE => 1,RELATIVE => 1}))->run;

App->new->tt_config(TEMPLATE_OPTIONS => {ABSOLUTE => 1,RELATIVE => 1})->run;

use CGI::Application::Plugin::Session;
use constant SESSION => "$Bin/session/";
...
sub cgiapp_init 
{
  my $self = shift;
  $self->session_config(
    CGI_SESSION_OPTIONS => [ "driver:File", $self->query, {Directory=>SESSION} ],
    DEFAULT_EXPIRY      => '+1w',
    COOKIE_PARAMS       => {
      -expires => '+24h',
      -path    => '/',
    },
    SEND_COOKIE         => 1,
  );
}
...

$self->session->param('name', $q->param('name'));
$self->session->param('email', $q->param('email'));

my $session_name=$self->session->param('name');
my $session_email=$self->session->param('email');

    our $TEMPLATE_OPTIONS = {
        COMPILE_DIR => '/tmp/tt_cache',
        DEFAULT     => 'notfound.tmpl',
        PRE_PROCESS => 'defaults.tmpl',
    };
    __PACKAGE__->tt_config( TEMPLATE_OPTIONS => $TEMPLATE_OPTIONS );

#!/usr/bin/perl
 
package MyApp;
use strict;
use warnings;
 
use base 'CGI::Application';
 
use CGI::Application::Plugin::TT;
use CGI::Session::Driver::file;
use CGI::Application::Plugin::Session;
 
our $TEMPLATE_OPTIONS = {
#        COMPILE_DIR => '/tmp/tt_cache',# Не понял на что влияет, создал папку пусто
#        Directory => '/tmp', # Тоже не помогает
# файлы создаются в   /tmp/systemd-private-18.....9-apache2.service-STnBXs/tmp     
#        DEFAULT     => 'notfound.tmpl',
#        PRE_PROCESS => 'defaults.tmpl',
        ABSOLUTE => 1,
        RELATIVE => 1,
    };
 
sub setup {
  my $self = shift;
  $self->tt_config( TEMPLATE_OPTIONS => $TEMPLATE_OPTIONS );
  $self->mode_param('step');
  $self->start_mode('on_start');
  
  $self->run_modes(
    on_start => \&on_start,
    on_save_addr => \&on_save_addr,
    on_close_session => \&on_close_session,
    AUTOLOAD => sub { return 'Запрошенной страницы не существует' }
  );
}
 
sub cgiapp_init {
  my $self = shift;
 
  # Configure the session
  $self->session_config(
    CGI_SESSION_OPTIONS => [ "driver:File", $self->query, {Directory=>'/tmp'} ],
    DEFAULT_EXPIRY      => '+1w',
    COOKIE_PARAMS       => {
      -expires => '+24h',
      -path    => '/',
    },
    SEND_COOKIE         => 1,
  );
}
 
sub on_start {
  my $self = shift;
  my $q = $self->query();
  my $tt_params = {};
    
  $tt_params->{addr} = $self->session->param('addr');
  $tt_params->{block} = 'show_index_page';
 
  return $self->tt_process('/home/xxx/www/perl/test.tmpl', $tt_params);
}
 
sub on_save_addr {
  my $self = shift;
  my $tt_params = {};
  my $q = $self->query();
 
  $self->session->param('addr', $q->param('addr'));
  return $self->on_start;
}
 
sub on_close_session {
  my $self = shift;
  my $tt_params = {};
 
  $self->session_delete;
 
  $tt_params->{block} = 'show_close_session_page';
  return $self->tt_process('/home/xxx/www/perl/test.tmpl', $tt_params);
}
 
 
package main;
 
use strict;
use warnings;
 
# use MyApp;
 
my $App = MyApp->new(RELATIVE => 1);
$App->header_add(-type => 'text/html; charset=utf-8' );
#или скорее всего header_add() правильнее делать где-то в методах 
$App->run;
1;