1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
<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} = [+ 0+$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>
|
