CPAN::Groonga

package meon::Web::View::JSON;

use strict;
use base 'Catalyst::View::JSON';

use JSON::XS;

sub encode_json ($) {
    my($self, $c, $data) = @_;
    my $encoder = JSON::XS->new->utf8;
    $encoder->p

Imager;
use URI::Escape 'uri_escape';
use List::MoreUtils 'none';
use WWW::Mechanize;
use JSON::XS 'decode_json';
use Data::asXML 0.07;

use meon::Web::Form::Login;
use meon::Web::Form::Delete;
use me

                 if ($res->header('Content-Type') =~ m{application/json}) {
                            my $data = eval { decode_json($res->content) };
                            if ($data && $data->

username = meon::Web::Util->username_cleanup($username, $c->default_auth_store->folder);

    $c->json_reply({
        username => $username,
    });
}

sub email : Chained('base') PathPart('email') {

ail(
        members_folder => $members_folder,
        email          => $email,
    );

    $c->json_reply({
        registered => ($member ? 1 : 0),
    });
}


__PACKAGE__->meta->make_immutable;

EMPLATE_EXTENSION => '.xsl',
    },
    'View::JSON' => {
        allow_callback  => 1,
        callback_param  => 'cb',
        expose_stash    => 'json',
    },
    'Plugin::Session' => { expires =>

e_dir, 'www') ];
}

sub json_reply {
    my ( $c, $json_data ) = @_;

    $c->res->header('X-Ajax-Controller',1);
    $c->stash->{json} = $json_data;
    $c->detach('View::JSON');
}

sub member {