Yet Another CPAN Grep

Catalyst-Plugin-CookiedSession ( L/LB/LBROCARD/Catalyst-Plugin-CookiedSession-0.35.tar.gz, LBROCARD, 2009; MetaCPAN )

Catalyst-Plugin-CookiedSession/lib/Catalyst/Plugin/CookiedSession.pm ( view source; MetaCPAN )

t::Plugin::CookiedSession;
use strict;
use warnings;
use Catalyst::Exception;
use Crypt::CBC;
use JSON::XS::VersionOneAndTwo;
use MIME::Base64;
use NEXT;
use base qw/Class::Accessor::Fast/;
our $VERSI

      my $json = $c->_cookiedsession_cipher->decrypt($ciphertext_unbase64);
        $session = decode_json($json);
        $c->log->debug("CookiedSession: found cookie $name containing $json")

     = $c->_cookiedsession_session;
    my $json              = encode_json($session);
    my $ciphertext        = $c->_cookiedsession_cipher->encrypt($json);
    my $ciphertext_base64 = encode_base64