From 5306c3b8190790e25056c4ac07eb70aca1795ae6 Mon Sep 17 00:00:00 2001
From: Hauke D <haukex@zero-g.net>
Date: Sun, 10 Mar 2019 21:36:56 +0100
Subject: [PATCH] Added experiments/use_http.html

---
 experiments/use_http.html | 59 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100644 experiments/use_http.html
diff --git a/experiments/use_http.html b/experiments/use_http.html
new file mode 100644
index 0000000..f891234
--- /dev/null
+++ b/experiments/use_http.html
@@ -0,0 +1,59 @@
+<!doctype html>
+<html lang="en-us">
+<head>
+<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
+<title>WebPerl Sync HTTP Demo</title>
+
+<!--
+This is a demo of dynamically loading modules via synchronous
+XMLHttpRequests.
+
+WARNING: Please note that https://xhr.spec.whatwg.org/ says:
+"Synchronous XMLHttpRequest outside of workers is in the process of
+being removed from the web platform as it has detrimental effects to
+the end user’s experience. (This is a long process that takes many
+years.)"
+
+The method was first described by LanX at
+https://www.perlmonks.org/?node_id=1225490
+Thank you! :-)
+-->
+
+<script src="webperl.js"></script>
+<script type="text/perl">
+use warnings;
+use 5.028;
+use WebPerl qw/js js_new/;
+
+BEGIN {
+	push @INC, sub {
+		my (undef,$file) = @_;
+		
+		# sadly, MetaCPAN doesn't send CORS headers (yet)
+		#my $url = 'https://fastapi.metacpan.org/v1/source/'
+		#	. ( $file =~ s/\//::/r =~ s/\.pm$//ir );
+		
+		# this requires one to copy Dump.pm into web/Data/:
+		my $url = $file;
+		
+		my $xhr = js_new('XMLHttpRequest');
+		$xhr->open('GET', $url, 0);
+		$xhr->send();
+		if ($xhr->{status}==200)
+			{ return \$xhr->{responseText} }
+		else { return }
+	};
+}
+
+use Data::Dump 'pp';
+js('window')->alert(pp({Hello=>"World!"}));
+
+</script>
+
+</head>
+<body>
+
+<p>Output: see JS console</p>
+
+</body>
+</html>
