Yet Another CPAN Grep

Win32-HTA ( T/TO/TOMK/Win32-HTA-1.02.tar.gz, TOMK, 2016; MetaCPAN )

Win32-HTA/lib/Win32/HTA.pm ( view source; MetaCPAN )




    # AJAX communication
    require JSON;
    $hta->show(
        AJAX => sub {
            my($request) = @_;
            print JSON::encode_json($request);
            my $ok = int(rand(

(JSON::decode_json($rq_raw));

                my $reply = "HTTP/1.1 200 OK\n";
                $reply   .= "Content-Type: text/html; charset=utf-8\n\n";
                $reply   .= JSON::encode_json

  or die "Win32::Process is needed for ajax fuctionality\n";
        eval { require JSON }
            or die "JSON is needed for ajax fuctionality\n";

        Win32::Process::Create(
            m