CPAN::Groonga

sish::CoreHelpers;
use Railsish::TextHelpers qw(camelcase);
use MIME::Base64;
use Crypt::CBC;
use JSON::XS;

sub dispatch {
    my ($class, $request) = @_;
    my $path = $request->request_uri;

    m

_unbase64 = decode_base64($ciphertext_base64);
        my $json = $cipher->decrypt($ciphertext_unbase64);
        $session = decode_json($json);
    }
    return $session;
}

sub _store_session {
    

t::CBC->new(-key => "railsish", -cipher => "Rijndael");
    my $json = encode_json($session);
    my $ciphertext = $cipher->encrypt($json);
    my $ciphertext_base64 = encode_base64($ciphertext, '');

ss;

    for(qw(request response controller action format params
           session render render_json render_xml redirect_to)) {
        *{"$caller\::$_"} = *{"$_"};
    }

    for (@Railsish::Contro

utf8($output));
}


use JSON -convert_blessed_universally;
sub render_json {
    my %variables = @_;

    my $json = JSON->new;
    $json->allow_blessed(1);

    my $out = $json->encode(\%variables);

    $response->headers->header('Content-Type' => 'text/x-json');
    $response->body( Encode::encode_utf8($out) );
}

use XML::Simple;
sub render_xml {
    # still not write testing

    my %variable