From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

CROMEDOME / Dancer2-0.206000_01 / lib / Dancer2 / Session / Simple.pm 

            

              
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
42
43
44
45
46
47
48
—
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94

              
package Dancer2::Session::Simple;
# ABSTRACT: in-memory session backend for Dancer2
$Dancer2::Session::Simple::VERSION = '0.206000_01'; # TRIAL
$Dancer2::Session::Simple::VERSION = '0.20600001';use Moo;
use Dancer2::Core::Types;
use Carp;
with 'Dancer2::Core::Role::SessionFactory';
# The singleton that contains all the session objects created
my $SESSIONS = {};
sub _sessions {
    my ($self) = @_;
    return [ keys %{$SESSIONS} ];
}
sub _retrieve {
    my ( $class, $id ) = @_;
    my $s = $SESSIONS->{$id};
    croak "Invalid session ID: $id"
      if !defined $s;
    return $s;
}
sub _change_id {
    my ( $class, $old_id, $new_id ) = @_;
    $SESSIONS->{$new_id} = $class->_retrieve($old_id);
    delete $SESSIONS->{$old_id};
}
sub _destroy {
    my ( $class, $id ) = @_;
    delete $SESSIONS->{$id};
}
sub _flush {
    my ( $class, $id, $data ) = @_;
    $SESSIONS->{$id} = $data;
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Dancer2::Session::Simple - in-memory session backend for Dancer2
=head1 VERSION
version 0.206000_01
=head1 DESCRIPTION
This module implements a very simple session backend, holding all session data
in memory.  This means that sessions are volatile, and no longer exist when the
process exits.  This module is likely to be most useful for testing purposes.
=head1 DISCLAIMER
This session factory should not be used in production and is only for
single-process application workers. As the sessions objects are stored
in-memory, they cannot be shared among multiple workers.
=head1 CONFIGURATION
The setting B<session> should be set to C<Simple> in order to use this session
engine in a Dancer2 application.
=head1 SEE ALSO
See L<Dancer2::Core::Session> for details about session usage in route handlers.
=head1 AUTHOR
Dancer Core Developers
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2017 by Alexis Sukrieh.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut