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
|
#!/usr/bin/perl
use strict;
use warnings;
use File::Temp;
use File::Spec;
use Catalyst::Plugin::Session::Test::Store (
backend => 'Redis',
config => { redis_server => $ENV{SESSION_STORE_REDIS_URL} },
extra_tests => 1
);
{
package SessionStoreTest;
use Catalyst;
sub store_scalar : Global {
my ($self, $c) = @_;
$c->res->body($c->session->{'scalar'} = 456);
}
sub get_scalar : Global {
my ($self, $c) = @_;
$c->res->body($c->session->{'scalar'});
}
__PACKAGE__->setup_actions;
}
1;
|
