The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
GRICHTER / HTML-Embperl-1.3.6 / test / html / mdatsess.htm 
<html>
<head>
<title>Tests for Embperl - Session Data (%mdat)</title>
</head>


<body>

        [- if ($fdat{cnt} == 0)
			{
			$Apache::Session::Win32::sessions = {} if ($HTML::Embperl::TEST::loop++) ;
			$mdat{cnt} = 0 ;
			}
		-]

        $mdat{cnt} = [+ $mdat{cnt}  +] <br>
        $fdat{cnt} = [+ $fdat{cnt}  +] <br>

        equal ? [+ ($mdat{cnt} == $fdat{cnt})?'yes':'no'  +] <br>

		[- @ks = grep (!/^_/, sort (keys %mdat)) ; $num = keys (%mdat) - $#ks - 1 ; -]
		[+ $num > 0?"ok (num=$num)":"Not a session hash (num=$num)" +]<p>

        [- $mdat{cnt}++  -]

		[#
		tied (%mdat) [+ $m = tied (%mdat) +]  <br>
		ref          [+ ref ($m) +]  <br>
		content      [+ do { my @tmp = map { "$_ = $mdat{$_}" } keys (%mdat) ; join (', ', @tmp) } +]  <br>
		tied (%udat) [+ $u = tied (%udat) +]  <br>
		ref          [+ ref ($u) +]  <br>
		content      [+ do { my @tmp = map { "$_ = $udat{$_}" } keys (%udat) ; join (', ', @tmp) } +]  <br>
		#]

</body>
</html>