Yet Another CPAN Grep

MojoX-Session ( V/VT/VTI/MojoX-Session-0.33.tar.gz, VTI, 2015; MetaCPAN )

MojoX-Session/lib/MojoX/Session/Store/Couchdb.pm ( view source; MetaCPAN )

db;

use strict;
use warnings;

use base 'MojoX::Session::Store';

use Mojo::UserAgent;
use Mojo::JSON;

__PACKAGE__->attr(is_async => 1);

__PACKAGE__->attr(client => sub { Mojo::UserAgent->new; } );

eturn $url;
}

sub _encode_json {
    my $self = shift;
    my $data = shift;

    my $json = Mojo::JSON->new;

    $data = $json->encode($data);
    unless ($data && !$json->error) {
        $self->e

turn $data;
}

sub _decode_json {
    my $self = shift;
    my $body = shift;

    my $json = Mojo::JSON->new;

    $body = $json->decode($body);

    unless ($body && !$json->error) {
        $self->