Yet Another CPAN Grep

HTML-CallJS ( T/TO/TOKUHIROM/HTML-CallJS-0.02.tar.gz, TOKUHIROM, 2013; MetaCPAN )

HTML-CallJS/lib/HTML/CallJS.pm ( view source; MetaCPAN )

ct;
use warnings;

our $VERSION = "0.02";

use parent qw(Exporter);

use JSON::XS;

our @EXPORT = qw(call_js);

my $JSON = JSON::XS->new()->ascii(1)->allow_nonref();

my %_ESCAPE = (
    '+' => '\\u00

    my $json = $JSON->encode($data);
    $json =~ s!([&+<>])!$_ESCAPE{$1}!g;

    join('',
        q{<script class="call_js" type="text/javascript">},
        $func,
        '(',
        $json,