File: TestAppSessionCookieName.pm

package info (click to toggle)
libcgi-application-plugin-session-perl 1.06-1
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 244 kB
  • sloc: perl: 533; makefile: 2
file content (41 lines) | stat: -rw-r--r-- 723 bytes parent folder | download
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
package TestAppSessionCookieName;

use warnings;
use strict;

use CGI::Application;
use CGI::Application::Plugin::Session;

@TestAppSessionCookieName::ISA = qw(CGI::Application);

sub cgiapp_init {
    my $self = shift;

    $self->session_config(
        {   CGI_SESSION_OPTIONS =>
                [ "driver:File", $self->query, {},
            { name => 'foobar' }
            ],
            SEND_COOKIE    => 1,
            DEFAULT_EXPIRY => '+1h'
        }
    );
}

sub setup {
   my $self = shift;
   $self->start_mode( 'test_mode' );
   $self->run_modes(
      [ qw( test_mode ) ]
   );
}

sub test_mode {
   my $self    = shift;
   my $session = $self->session;

   return "session: " . $session->id . "\n";
}

1;