Yet Another CPAN Grep

Mojolicious-Plugin-InlineJSON ( V/VE/VEESH/Mojolicious-Plugin-InlineJSON-1.000000.tar.gz, VEESH, 2020; MetaCPAN )

Mojolicious-Plugin-InlineJSON/lib/Mojolicious/Plugin/InlineJSON.pm ( view source; MetaCPAN )

us::Plugin::InlineJSON;

our $VERSION = '1.000000'; # 1.0.0
$VERSION = eval $VERSION;

use Mojo::Base 'Mojolicious::Plugin';
use Mojo::ByteStream qw(b);
use Mojo::JSON qw(encode_json);
use Mojo::Util

s_json_string => \&js_json_string);
  $app->helper(js_data_via_json => \&js_data_via_json);
}

sub _escape_tag { $_[0] =~ s/>/\\>/gr }

sub _js_data { _escape_tag(encode_json($_[1]))  }

sub _js_json_

e_tag(encode_json(encode_json($_[1]))) }

# returns '{ "foo": 1 }'

sub js_data { b(&_js_data) }

# returns '"{ \"foo\": 1 }"'

sub js_json_string { b(&_js_json_string) }

# returns 'JSON.parse("{ \"f