The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<html>
<title>Yaml Test</title>
<body>

<table border=1 cellspacing=0>
  <tr>
    <td colspan=2>
<script src="../lib/CGI/Ex/yaml_load.js"></script>
<script>

if (! document.yaml_load) {
  document.writeln('<span style="color:red"><h1>Missing document.yaml_load</h1>Path to ../lib/CGI/Ex/yaml_load.js may be invalid.</span>');
} else {
  document.writeln('<span style="color:green"><h1>Found document.yaml_load</h1></span>');
}

</script>
    </td>
  </tr>

  <tr><th colspan=2>YAML text</th></tr>
  <tr>
    <td colspan=2>
<pre><script>
var yaml = "foo: bar\nbaz: bee\nhem: haw\n";
document.write(yaml)
</script></pre>
    </td>
  </tr>


  <tr>
    <th>Produces</th><th>Should look like</th>
  </tr>
  <tr>
    <td>
<pre><script>
var t1 = new Date();
var y  = document.yaml_load(yaml)
var t2 = new Date();
document.write(document.js_dump(y));
</script></pre>
    </td>
    <td>
<pre>Dump:
[obj].0.baz=bee
[obj].0.foo=bar
[obj].0.hem=haw
</pre>
    </td>
  </tr>

  <tr>
    <td colspan=2>
<script>
document.write("Elapsed time: "+((t2.getTime() - t1.getTime())/1000)+" seconds");
</script>
    </td>
  </tr>

</body>
</html>