The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<!DOCTYPE html>
<html>

  <head>
<title>Yote Object Explorer</title>
<!-- TODO: rewrite this with templates and new info -->

<script src="/yote/js"></script>

<script>
    $().ready(function(){ 
	$.yote.debug = true;
	function show_header( name, obj, attachpoint ) {
	    var plus_id = $.yote.util.next_id();
	   var list_id = $.yote.util.next_id();
	   attachpoint.append( '<span><a id="a_' + obj.id + '" name="a_' + obj.id + '">name</a></span> <span id=' + plus_id +
			       '>[+]</span> <span>' +
			       'class : ' + obj.class + ', app : ' + 
			       obj._app + ", size : " + obj.length() +
			       '</span><div><ul id=' + list_id + '></ul></div>' 
			     );
	   $( '#' + plus_id ).hover(
	       function() {
		   $(this).css( 'cursor', 'pointer' );
	       }
	   );
	   $( '#' + plus_id ).click( 
	       (function( l_id, o ) {
		   return function() {
		       $( '#' + list_id ).empty();
		       if( this.innerHTML == '[+]' ) {
			   this.innerHTML = '[-]';
			   for( var key in o._d ) {
			       var val = o.get(key);
			       if( typeof val === 'object' ) {
				   var d_id = $.yote.util.next_id();
				   $( '#' + list_id ).append( '<li>' + key + ' => <div id='+d_id+'></div></li>' );
				   show_header( key, val, $('#'+d_id) );
			       } else {
				   $( '#' + list_id ).append( '<li>' + key + ' => ' + val + '</li>' );
			       }
			   }
		       } else {
			   this.innerHTML = '[+]';
		       }			
		   }		  
	       })( list_id, obj ) );
       } //show_header
       var root = $.yote.fetch_root();
       console.dir( root );
       show_header( '/', root, $('#root') );
   });
</script>
</head>
<body>
  <h1>Yote Object Explorer</h1>
  
  <div id="root"></div>
  
</body>
</html>