Test for Embperl::Req::SetupSession

# # run this under mod_perl / Apache::Registry # use Embperl ; my($r) = @_; $Embperl::DebugDefault = 811005 ; eval "use Apache2::compat" ; $r -> status (200) ; $r -> send_http_header () ; print "
\n" ; my $session = Embperl::Req::SetupSession ($r) ; $off = 0 ; #$off-- if ($Embperl::SessionMgnt == 2 && !defined (tied (%$session) -> getid)) ; @ks = grep (!/^_/, sort (keys %$session)) ; $num = keys (%$session) - $#ks - 1 + $off ; foreach (@ks) { print "$_ = $session->{$_}
\n" ; } $tst1 = '

Here is some text inside of Execute

' ; Embperl::Execute ({input => \$tst1, mtime => 1, inputfile => 'Some text session test', }) ; print "
\n" ;