CPAN::Groonga

;
use JSON;

sub print_blog {
    my $self = shift;
    my $r = $self->{rester};
    
    my $params = $self->load_config($r);
    my $json = objToJson($params);
    $json =~ s/'/\\'/g;
    $json =~ s

#<script .+script>##;

    return $self->render_template( { json_data => $json } );
}

1;

Blikistan::MagicEngine::TT2';
use base 'Blikistan::MagicEngine::YamlConfig';
use URI::Escape;
use JSON;

=head1 NAME

Blikistan::MagicEngine::PerlSite

=head1 SYNOPSIS

use Blikistan;
my $b = Blikista

    # Need to get the metadata here
    $r->accept('application/json');
    my $return = _get_page($r, $page);
    my $page_obj = jsonToObj($return);
    my $page_name = $page_obj->{name};
    my $pa

use warnings;
use base 'Blikistan::MagicEngine';
use Template;
use FindBin;
use URI::Escape;
use JSON;

sub render_template {
    my $self = shift;
    my $params = $self->{params} = shift || {};
   

pace_tags} ||= sub {
        my $skip = shift || '';
        $r->accept('application/json');
        my $tags = jsonToObj($r->get_workspace_tags);
        $tags = [ 
            sort { $b->{page_count

};

    my $r    = $self->{rester};
    $r->accept('application/json');
    $r->json_verbose(1);
    my $p = $self->{_page}{$page} = jsonToObj( $r->get_page($page) );
    while ($p->{html} =~ s/<a hre