Tests for Embperl - Set Session Data

[# [- $s = $Apache::Session::Win32::sessions || $Apache::Session::MemoryStore::store -] [- @ks = sort keys %$s -] sessions:

[+ $ks[$row] +] | [+ $sh = $s -> {$ks[$row] || ''} +] | [$if ref($sh) eq 'HASH' $][+ do { my @tmp = map { "$_ = $sh->{$_}" } keys (%$sh) ; join (', ', @tmp) } +][$endif$]

tied (%mdat) [+ $m = tied (%mdat) +]
ref [+ ref ($m) +]
content [+ do { my @tmp = map { "$_ = $mdat{$_}" } keys (%mdat) ; join (', ', @tmp) } +]
tied (%udat) [+ $u = tied (%udat) +]
ref [+ ref ($u) +]
content [+ do { my @tmp = map { "$_ = $udat{$_}" } keys (%udat) ; join (', ', @tmp) } +]
a=[+ scalar (do {$udat{'a'}}) +][+ $aa +] #] fdat:
[- @ks = sort keys %fdat -]

[+ $ks[$row] +] | [+ $fdat{$ks[$row] || ''} +]

udat:
[- $id = tied (%udat) -> getid -] [- @ks = grep (!/^_/, sort (keys %udat)) ; $num = keys (%udat) - @ks - ($id?0:1) -]

[+ $ks[$row] +] | [+ 0+$udat{$ks[$row] || ''} +]

[+ $id?"ok (num=$num)":"Not a session hash (num=$num)" +]

[- while (($k, $v) = each (%fdat)) { $udat{$k} = $fdat{$k} ; } -] $mdat{cnt} = -[+ 0+$mdat{cnt} +]-
$udat{cnt} = -[+ $udat{cnt} +]-
[- $s = $Apache::Session::Win32::sessions || $Apache::Session::MemoryStore::store -] [- @ks = sort keys %$s -] sessions:

[+ $ks[$row] +] | [+ $sh = $s -> {$ks[$row] || ''} +] | [$if ref($sh) eq 'HASH' $][+ do { my @tmp = map { "$_ = $sh->{$_}" } keys (%$sh) ; join (', ', @tmp) } +][$endif$]

continue continue continue