Accept') || '') =~ /(application\/json|text\/javascript)/) {
$self->response->content_type("$1; charset=UTF-8");
$self->response->data(to_json({error => gettext('Internal Serve
($text);
}
sub as_json {
my ($self, $data) = @_;
$self->response->content_type('application/json; charset=UTF-8');
$self->response->data(to_json($data));
}
sub as_jsonp {
my ($self,
response->content_type('text/javascript; charset=UTF-8');
$self->response->data("$func(" . to_json($data) . ')');
}
sub from_template {
my ($self, $name, %opts) = @_;
$self->response->da
}
return $dump_text;
},
to_json => sub {
return to_json(shift);
},
cmd_link => sub {
my ($new