t/lib/Catalyst/Plugin/Session/Store/Dummy.pm

   1 #!/usr/bin/perl
   2
   3 package Catalyst::Plugin::Session::Store::Dummy;
   4 use base qw/Catalyst::Plugin::Session::Store/;
   5
   6 use strict;
   7 use warnings;
   8
   9 my %store;
  10
  11 sub get_session_data {
  12     my ( $c, $sid ) = @_;
  13     $store{$sid};
  14 }
  15
  16 sub store_session_data {
  17     my ( $c, $sid, $data ) = @_;
  18     $store{$sid} = $data;
  19 }
  20
  21 sub delete_session_data {
  22     my ( $c, $sid ) = @_;
  23     delete $store{$sid};
  24 }
  25
  26 sub delete_expired_sessions { }
  27
  28 __PACKAGE__;
  29
  30 __END__
  31
  32 =pod
  33
  34 =head1 NAME
  35
  36 Catalyst::Plugin::Session::Store::Dummy -
  37
  38 =head1 SYNOPSIS
  39
  40     use Catalyst::Plugin::Session::Store::Dummy;
  41
  42 =head1 DESCRIPTION
  43
  44 =cut
  45
  46